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Now  Including  Home  And 
Educational  COMPUTING! 
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MusicSyslem  generates  the  sound  of  any  musical 
instrument— real  or  imagined!  Soio  or  sextet.  Rocl(  or 
classical.  Laid-I}acl(  or  loud.  At  home,  the  concert  hall, 
or  the  classroom.  MusicSystem  sets  new  standards  for 
computer  generated  music. 

•  Works  in  your  Apple®. 
Digital  Synthesizer  with  16  voices. 
Stereo  output. 
Polyphonic — multivoice  chords  and  note  sequences. 

•  Additive  synthesis  of  instruments. 

•  Waveforms  are  fully  programmable  for  each  voice 
to  create  instrument  definitions  and  music  dynamics. 

•  35Khz  sample  rate. 

•  Frequency  resolution  is  .5Hz  steps. 

•  Graphical  input  of  sheet  music  with  a  graphics  printer. 

•  Complete  software  operating  system. 

•  Graphical  music  editor  using  light  pen  (provided), 
game  paddles,  or  keyboard. 


•  Pre-entered  music  provided  for  immediate  playing 
and  enjoyment. 

•  Thorough  documentation  and  tutorial  user's  manual. 

Drop  by  your  Apple®  Dealer  and  ask  to  hear  "Mountain 
Music"  for  yourself. 

suggested  retail 

0  Mountain  Computer 
IHCOBPOBATID 

300  El  Pueblo,  Scotts  Valley,  CA  95066 
TWX:  910  598-4504       (4081438-6650 

The  word  "Mountain"  In  MDunlain  CompuOr  and  the  logo  are  ttadanurlw  ol  Mountain 

Compuler  tnc. 

Apple  it  a  Trademark  ol  Apple  Computer,  Inc. 


IF  YOU'RE  WAITING  FOR  THE 

PRICE  OF  WORD  PROCESSORS 

TO  FALL  WITHIN  REASON 


Everyone  expected  it  would  happen 
sooner  or  later. .  .with WordPro  PLUS'" 
it  already  has!  Now  all  the  marvelous 
benefits  of  expensive  and  advanced 
word  processing  systems  are  available 
on  Commodore  computers,  America's 
largest  selling  computer  line.  WordPro 
PLUS,  when  combined  with  the  new  80 
column  CBM  8032,  creates  a  word  pro- 
cessing system  comparable  to  virtually 
any  other  top  quality  word  processor 
available— but  at  savings  of  thousands 
of  dollars! 

TM  WordPro  is  a  Registered  Trademark  of  Protessional  Software. 


New,  low  cost  computer  technology  is 
now  available  at  a  fraction  of  what  you 
would  expect  to  pay.  This  technology 
allowed  Commodore  to  introduce  the 
new  and  revolutionary  CBM  8032 
Computer. 

WondPro  PLUS  turns  this  new  CBM 
8032  Computer  into  a  sophisticated, 
time  saving  word  processing  tool.  With 
WordPro  PLUS,  documents  are  dis- 
played on  the  computer's  screen.  Edit- 
ing and  last  minute  revisions  are  simple 
and  easy.  No  more  lengthy  re-typing 
sessions.  Letters  and  documents  are 
easily  re-called  from  memory  storage 
for  editing  or  printing  with  final  drafts 
printed  perfectly  at  over  five  hundred 
words  per  minute! 

Inc.  WordPro  was  wntton  by  Steve  Punier. 


Our  nationwide  team  of  professional 
dealers  will  show  you  how  your  office 
will  benefit  by  using  WordPro  PLUS.  At 
a  price  far  less  than  you  realize. 


Invest  In  your  office's  future. . . 
Invest  In  WordPro  PLUS. . . 
Call  us  today  for  thte  name  of  the 
WordPro  PLUS  dealer  nearest  you. 

Professional  Software  Inc. 

166  Crescent  Road 
Needham,  MA  02194 
(617)444-5224 
TELEX:  95  1579 


For  the  Commodore  8000 


Now  there  is  an  interactive 
General  Accounting  System 
designed  especially  for  the 
first  time  user.  The  user  is  led 
through  each  function  by 
highlighted  prompts  explain- 


ing the  required  input  at  each 
point.  And  all  input  requests 
are  prompted  with  complete 
verification.  Plus,  a  step-by- 
step  instruction  manual 
guides  the  user  through  the 


General  Ledger 

Cash  Disbursements  and 
Cash  Receipts  Journal  as  wel 
as  a  General  Journal.  Main- 
tains account  balances  for 
Present  Month,  Quarter  to 
Date  and  Year  to  Date, 
Accepts  postings  from 


program.  The  user  prompts 
and  the  detailed  manual 
make  it  virtually  impossible 
for  the  first  time  user  to  get 
lost  or  to  accidentally  crash. 


Accounts  Receivable, 
Accounts  Payable,  Payroll 
and  other  programs.  Also 
provides  user  customized 
financial  statements,  Gp  to 
1000  accounts  and  up  to 
99  departments. 
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Series  Computer  System 


Accounts  Receivable 

Invoices  and  Monthly  State- 
ments as  well  as  Credit  and 
Debit  Memos.  Accomodates 
full  or  partial  payments.  User 
sets  finance  charge  rate  and 
period.  User  also  sets  invoice 
aging  reports  and  aging 
breaks.  Invoices  may  be  dis- 
tributed among  nine  different 
General  Ledger  accounts  with 


Accounts  Payable 

Accounts  Payable  checks 
with  full  voucher  detail. 
Detailed  check  register.  Auto- 
matic application  of  Credit 
Memos.  User  sets  invoice 
aging  reports  and  aging 
breaks.  Invoices  may  be  dis- 


Payroll 

Payroll  checks  with  full 
deductions  and  pay  detail. 
Pays  regular,  overtime, 
holiday  and  piece  work  hours. 
Accommodates  Weekly, 
Bi-Weekly,  Semi-Monthly  and 
Monthly  employees.  Up  to 
eight  miscellaneous  deduc- 
tions or  payments  per 


automatic  updating  to  the 
General  Ledger.  During 
invoice  data  entry  the  invoice 
is  displayed  on  the  screen 
and  typed  exactly  as  if  in  a 
typewriter.  File  capacity  is 
2000  minus  number  of 
customers  multiplied  by  1.4. 
Five  hundred  customers 
allows  room  for  2100  invoices. 


tributed  among  nine  different 
General  Ledger  accounts  with 
automatic  updating  to  the 
General  Ledger.  File  capacity 
is  2000  minus  the  number  of 
vendors  multiplied  by  two. 


employee.  Prints  Payroll 
Journal,  Payroll  Check 
Register  and  an  Absentee 
Report  as  well  as  941  infor- 
mation and  W2  forms.  Main- 
tains Monthly,  Quarterly  and 
Yearly  totals  for  up  to  350 
employees.  Automatic 
General  Ledger  updating. 


See  your  nearest 
Commodore  dealer  for 
a  demonstration. 


CMS  Soft:ware  Systems 

2204  Camp  David     Mesquite,  TX.  75149     214  285-3581 
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TASC:  The  Applesoft  Compiler. 

It  turns  your  Apple  into 

a  power  tool. 


step  up  to  speed.  TASC,  the  Applesoft  Compiler, 
converts  a  standard  Applesoft  BASIC  program 
into  super-fast  machine  code.  By 
increasing  program  execution  speed 
up  to  20  times,  Microsoft  gives 
you  a  power  tool  for  Applesoft 
BASIC  programming. 
Highest  capacity  available. 
TASC  will  compile  and  run 
larger  programs  than  any 
other  Applesoft  Compiler.  As  a 
disk-based  system,  it  doesn't 
require  the  simultaneous  pres- 
ence of  compiler  and  program 
in  memory.  The  memory  you  save 
allows  you  to  compile  significantly 
bigger  programs. 

Power  without  bulk.  Code  expansion  of  up  to  100% 
severely  restricts  other  compilers.  TASC's  special 
code  compression  schemes  typically  limit  code 
expansion  to  only  25%.  You'll  really  appreciate  that 
with  complex  programs  or  programs  that  utilize 
Apple's  hi-res  graphic  pages. 
More  BASIC  power.  TASC's  powerful  new 
commands  increase  Applesoft  BASIC  programming 
capability.  Chain  with  COMMON  allows  compiled 
programs  to  share  variables,  so  a  main  menu 


supports  several  programs  in  a 
single  runtime  environment. 
TASC's  True  Integer  Arithmetic 
and  Integer  FOR... NEXT 
capabilities  maximize  the  execu- 
tion speed  of  compiled  programs. 
TASC's  near  total  compatibility 

with  Applesoft  speeds  compil- 
ation of  existing  programs 
with  little  or  no  modification. 
What  about  mistakes?  You 
perfect  your  programs  inter- 
actively with  Applesoft.  If  some- 
thing does  slip  by,  TASC  recovers 
from  errors  discovered  in  compilation 
and  traps  all  runtime  errors.  It  even  permits 
graceful  interruptions  during  compilation. 
See  for  yourself.  Ask  for  a  demonstration  of 
TASC  at  your  Microsoft  dealer.  Discover  the  software 
package  that  turns  your  Apple  into  a  power  tool. 
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THE  Atari^  Star  ^ 


Win  $25,000  in  cash, 

plus  prizes  and  an  ATARI  STAR 

by  entering  your  software  in 

the  ATARI' ASAP  competition. 


I 


ATARI  is  looking  for  some  of 
the  greatest  software  from  the 
brightest  stars  in  the  software  field. 
-And  naturally,  we're  willing  to  re- 
ward you  for  it. 

Every  three  months,  ATARI 
will  be  presenting  ATARI  STARS  to 
the  writers  of  software  [programs 
judged  first, second  and  third  place 
in  the  following  categories:  con- 
sumer (including  entertainment, 
personal  interest  and  develop- 
ment); education;  home  business 
(personal  finance  and  record  keep- 
ing); and  system  software.  Tlie  de- 
cision of  the  ATARI  judges  is  final. 
Quarterly  prizes  will  be  from 
$750  to  $3,000  worth*  of  .selected 
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ATARI  products  and  an  ATARI  STAR, 
Tine  annual  Grand  Prize  toU  be  the 
coveted  Super  Star  trophy  and 
125,000  in  cash** 

To  be  eligible,  your  software 
idea  must  be  submitted  to  and 
published  in  the  ATARI 
Program  Exchange  cata 
log.  Submit  your  pro 
gram  on  the  official 
entn'  form  which  we'll 
rush  to  you  if  you  send 
in  the  attached  coupon. 

The  ATARI  STAR 
Awards  are  in  addition 
to  the  percentage  of  rev- 
enues you  ^-ill  automat- 
ically be  entitled  to  as 


a  result  of  sales  of  your  software 
programs  in  the  ATARI  Program 
Exchange. 

If  \ou're  a  star  ATARI  v\ants 
to  reu^ard  \'ou.  Send  in  the  coupcMi 
today,  or  call  toO-free  800-538-1862, 
in  California  800-672- 
1850,  and  you  could  be 
the  proud  winner  of  an 
ATARI  ASAP  STAR  Tro- 
phy, and  some  great 
ATARI  prizes. 

'Based  on  manufacturer's  sug- 
gested retail  price, 

""Taxes  are  the  sole  responsibil- 
ity of  the  winner  Void  where  pro- 
hibited by  law.  Winners  will  be 
notified  by  mail.  ATARI  employees 
and  their  families  are  not  eligible. 
For  more  contest  details,  call  the 
toll-free  numbers.:  1981  atari,  inc. 


For  more  contest  details,  call  800-538- 
1862,  in  California  800-672-1850. 

Send  to:  ATARI  Software  Acquisition 
Program.  1196  Borregas,  RO. 
Box  427,  Sunnyvale.  CA  94086 
Yes.  I  want  to  enter  the  ATARI  ASAP  com- 
petition. Please  rush  me  my  entry  form. 

Name 


Address- 
City 


State/Zip. 


A 

ATARI 

(^  A  WVTV  CcflwpufflicaiitnB  Company 
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A  Database  Program 
For  Household  Insurance 
Inventories 

Transposition: 
Mathematically 
Transpose  Musical 
Compositions 

ViC-20  Secrets 

And  Much,  Much  More... 


Professional  Software  Introduces 
POWER 

by  Brad  Templeton 


II 


POWER  TO  YOUR    ^e^®* 
COMMODORE  COMPUTER 


POWER  produces  a  dramatic  improvement  in  the 
ease  of  editing  BASIC  on  Commodore's  computers. 
POWER  is  a  programmer's  utility  package  (in  a  4K 
ROM)  that  contains  a  series  of  new  commands  and 
utilities  which  are  added  to  the  Screen  Editor  and  the 
BASIC  Interpreter.  Designed  for  the  CBM  BASIC 
user,  POWER  contains  special  editing,  programming, 
and  software  debugging  tools  not  found  in  any  other 
microcomputer  BASIC.  POWER  is  easy  to  use  and  is 
sold  complete  with  a  full  operator's  manual  written  by 
Jim  Butterfield. 

power's  special  keyboard  'instant  action'  features 
and  additional  commands  make  up  for,  and  go  beyond 
the  limitations  of  CBM  BASIC.  The  added  features 
include  auto  line  numbering,  tracing,  single  stepping 
through  programs,  line  renumbering,  and  definition 
of  keys  as  BASIC  keywords.  POWER  even  includes 

TM  POWER  is  a  Registered  Trademafk  of  Professional  Software,  Inc. 


new  "stick-on"  keycap  labels,  The  cursor  movement 
keys  are  enhanced  by  the  addition  of  auto-repeat  and 
text  searching  functions  are  added  to  help  ease  pro- 
gram modification.  Cursor  UP  and  cursor  DOWN 
produce  previous  and  next  lines  of  source  code. 
COMPLETE  BASIC  program  listings  in  memory  can 
be  displayed  on  the  screen  and  scrolled  in  either  direc- 
tion. POWER  is  a  must  for  every  serious  CBM  user. 

Call  us  today,  for  the  name  of  the  Professional 
Software  dealer  nearest  you. 

Professional  Software  Inc. 

166  Crescent  Road 

Needham,  MA  02194 

Tel;  (6 1 7}  444-5224     Te  lex  #95 1 579 
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Robert  C^  Lock 
Publisher/Editor 

Injunctions,  Injunctions,  And  More  Injunctions 
Atari,  Inc.,  Goes  To  War 

And  I'm  not  talking  about  the  popular  Eastern 
Front  WW  11  simulation,  either.  It  you  picked  up  a 
computer  magazine  recently,  you  couldn't  help 
noticing  the  full-page  software  piracy  ads  Atari 
Personal  Computer  Systems  has  been  running 
everywhere.  Atari  has  been  moving  quickly  and 
quietly  against  major  and  minor  software  vendors 
whose  products  step  on  the  toes  of  Atari  arcade 
games. 

One  vendor  on  the  West  coast,  reccnih'  losing  a 
round  oi  injunctions  and  coiuuer-injunclioiis. 
serves  as  a  case  in  point.  The  popular  game,  devel- 
oped by  the  vendor  from  "scratch"  for  the  Atari 
computer,  mirrors  in  part  a  very  successful  Atari 
arcade  game.  Does  Atari,  Inc.  have  the  software 
out  for  the  personal  computers?  Well  no,  but  that's 
not  the  point.  In  spite  of  the  fact  that  the  computer 
version  of  the  game  is  significantly  expanded, 
quite  original  in  coding  (there  was  none  before  this 
version),  and  rumored  to  be  a  real  pleasure,  the 
current  stale  of  software  law  appears  to  side  with 
Atari  ...  at  least  it  did  at  the  end  of  the  current 
round  of  claims.  The  visual  image  and  theme  of 
the  game  are  decidedly  Atari's,  thus  we  end  up 
with  protection  based  to  some  extent  on  concept. 
Pure  and  simple. 

Let  The  Vendor  Beware 

The  way  we  hear  it,  Atari  informed  these  vendors 
that  they  would  have  to  stop  the  sale  or  distribiuion 
of  this  software.  The  vendors  pointed  out  that  they 
had  developed  the  game  and  its  program  code 
originally,  etc.  To  no  avail,  it  turned  out;  Atari 
obtained  an  injunction  to  halt  distribution.  The 
vendors  asked  Atari  to  license  the  game  to  them, 
thus  generating  royalties  for  Atari,  and  permitting 
the  vendors  to  pursue  sale  and  distribution.  Atari 
said  no,  but  did  apparently  ask  the  vendors  \Uhey 
would  consider  developing  a  version  of  the  game 
for  Atari!  Predictably  enough,  the  vendors  de- 
clined, and  went  to  court,  obtaining  an  injunction 
allowing  .sale  and  distribution.  Whereupon,  Atari 
went  back  and  emerged  \ictorious,  foi'  tlic  mciment, 
quashing  that  injuncdon  (I  believe  that  was  Round 
2?),  and  obtaining  the  one  that's  cmrently  in  force 


(Round  3?). 

Ttien  Linda  Turned  To  John  And ... 

First  of  all,  I  fully  support  Atari's  right  to  protect 
their  proprietary  software.  That  principle  has  to  be 
firmly  embedded  in  the  computer  industry  to 
allow  it  to  grow  and  nurture  even  more  exciting 
future  growth.  But  there  does  seem  to  be  a  grey 
area  here  which  needs  to  be  more  fully  explored.  I 
suspect,  with  this  recent  flurry  of  legal  activity,  that 
the  .screen  is  becoming  cloudy,  as  it  were.  I  assmne 
no  one  is  arguing  whether  this  game  is  original, 
unique  program  code.  I  assume  no  one  argues  that 
it  took  months  to  develop,  perfect,  refine,  and  yes, 
enhance. 

So,  we're  back  lo  concept,  visual  image,  style  of 
presentation...  Would  it  have  made  any  difference 
if  the  imagery  had  been  uniquely  diflerent.-'  Can  it 
be?  I  mean  tlicrc  are  only  so  many  ways  to  program 
an  arcade  style  game  on  a  10  or  12  inch  screen. 
One  begins  with  chasers  and  chasees,  and  proceeds 
from  there.  The  general  form  is  thai  chasers  have 
sophisticated  weaponry,  and  grow  more  sophisti- 
cated as  the  game  progresses  (we  call  these  "skill 
levels").  Chasees  have  various  means  of  fighting 
back.  And  ihat,  with  allowance  for  creative  vari- 
ation, is  the  backbone  of  computer-based  gaming, 
arcade  style. 

At  this  point  in  the  analysis,  we're  several 
stages  removed  from  actual  program  code.  Its 
uniqueness  has  become  moot  for  the  moment.  In 
this  case  there  is  no  comjnitcr  soI(warc  to  check 
against  the  twice-released  game.  .'Vlari  hasn't  devel- 
oped it  yet.  If  the  existing  game  is  a  direct  "copy" 
of  the  Atari  arcade  game,  I  would  guess  lliey'U  end 
up  the  wiimers,  and  software  vendors  will  be  a  bit 
wiser  for  it. 

Let  The  Good  Times  Scroll 

Here's  the  danger  of  it  ...  depending  on  the  tight- 
ness of  court  interpretations  of  this  portion  of  the 
fight,  we're  leery  of  ending  up  in  a  situation  so 
broadly  dcfmed  it  defeats  "competitive"  gaming. 
Given  that  we're  arguing  concepts  and  imagery, 
rather  than  written  program  code  and  precisely 
comparable  listings,  a  broad  interpretation  of  the 
rights  to  "player-mi.ssile  graphics"  would  cri)>ple 
the  software  industry,  leaving  access  to  a  few.  Those 
few,  at  this  point,  would  be  the  companies  currendy 
holding  the  reins  on  the  arcade  market.  Two  big- 
gies, by  the  way,  are  Atari  and  Commodore.  Cxim- 


Right  for  the  time.  Finally 
someone  invented  an  RS-232C 
compatible  calendar/clock  system, 
complete  with  6-digit  display . . . 
and  selling  for  only  $249.  Hayes 
did  it! 

Introducing  the  Hayes  Stack 
Chronograph,  the  newest  addition 
to  the  Hayes  Stack  microcomputer 
component  series.  It  allows  your 
computer  to  accurately  record  all 
of  your  system  activities  by  date 
and  time . . .  down  to  the  second. 
Thanks  to  a  battery  back-up  sys- 
tem, you  never  have  to  reset  the 
time  when  your  computer  is  off, 
and  it  will  keep  on  ticking  even  when 
there's  a  power  failure.  A  write- 
protect  switch  prevents  accidental 


Microcomputer  Component  Systems 

changing  of  day  date  or  time. 

Right  for  the  job.  The  Hayes 
Stack  Chronograph  is  ideal  for  any 
home  or  business  application  re- 
quiring accurate  timekeeping.  Use 
it  for  timing  everything  from  lights, 
burglar  alarms,  or  sprinkler  systems 
. .  .to  sending  mail  electronically 
(with  the  Hayes  Stack  auto-dial 
Smartmodem  and  your  computer) 
. . .  logging  and  recording  reports 
or  time-sharing  access  time . . . 


and  batching  all  your  messages 
to  send  at  night,  when  rates  are 
lowest.  Chronog  aph  helps  do 
it  all. 

And  Chronograph  stacks 
up.  Keep  your  computer  system 
up-to-date  with  the  Hayes  stack- 
ables,  including  the  RS-232C  com- 
patible Smartmodem,  the  most 
sophisticated  30b-baud  originate/ 
answer  modem  you  can  buy  And 
yet,  its  probably  the  easiest  to 
use  too. 

The  Hayes  Stack  Chronograph 
and  Smartmodem  are  available 

whereverfinecomputerproductsare 
sold.  It's 
time.  And 
it's  now. 


The  Hayes  Stack  Chronograph. 
There's  no  better  time. 


Hayes  Microcomputer  Products,  Inc.     5835  Peachtree  Comers  East,  Ncrcross,  Georgia  30092  404/449-8791 

Hayes  Slack  is  a  trademark  of  Hayes  Microcomputer  Producis.  Inc.    ©  Hayes  Microcomputor  products.  Inc. 


modore,  you  see,  has  the  right  to  produce  all  Bally 
arcade  games  for  the  new  VIC-20. 

We're  confident  the  courts  would  not  allow  a 
TV  producer  to  claim  proprietary  rights  to  "soap 
operas,"  police  shows,  or  westerns.  Let's  hope  the 
situation  that's  just  now  shaping  up  in  the  computer 
gamiiig  industry  will  avoid  the  same  undue  con- 
straints, while  protecting  the  rights  of  all. 

An  Apology,  And  A  New  Year 

Our  1982  production  schedule  is  finalized  and,  as 
vou  should  discover  with  this  issue,  we're  back  on 
schedule.  You  should  be  receiving  your  magazine 
around  the  first  ofthe  cover  date  month  (tn- perhaps 
a  bit  earlier).  That's  the  way  we  want  it.  Never 
quite  wishing  to  bow  to  the  needs  of  newsstand 
distribution  overseas,  we  don't  see  much  point  in 
sending  you  the  Feliruary  is.sue  in  Decenilier.  We'll 
Slay  on  this  schedule  now,  our  production  depart- 
ment is  rolling  along,  and  COMPUTE!  grows  on. 
And,  oh  yes,  the  next  time  we  schedule  publication 
of  a  book,  we'll  know  whereof  we  speak  when  we 
calculate  our  production  time!  Thanks  for  your 
patience. 

Best  wishes  for  a  happy  and  productive  New- 
Year  from  all  of  us  at  COMPUTE! 


Mathetnatics,  Basic  Skills 

Paper  Exercises  in  Arithmetic 

For  use  u  ith 

■PET/CBM  Computer  &  Printer 

plus 

Oimpcilihle  Disk  System 

The  Teacher's  Aide 

Conipliter  programs  designed/or  use  by  the  classroom  teacher  as 

u  primaiy  source  of  exercises  in  mathematics,  basic  skills. 
Tbi-ougb  simple  cjuvstioii  and  aiisirer.  ami  with  the  use  of  only 
one  computer  system,  a  teacher  may  sallsfy  all  individualized,  in- 
class  and  homeuin-k  retjuirenwnts  for  drill  in  arithmetic. 
Students  work  directly  upon  exercise  slieets  Difficulty  leiv!  is 
easily  adjustable.  .4nsuers  are  always  prodded.  2,1  programs 
included,  coivring  integers,  decimals,  fracti<nis,  percent  and 
much  nuiiv. 

On  Disk  $99.99 

Algebra 

Explicitly  Produced  Exercises  in  Algebra 

Sixteen  programs  in  linear  and  fractional  a/uations,  simulta- 
neous etjuations,  tjuadratics.  signed  and  complex  number 
arithmetic. 

On  Disk  $99-99 

(Aiizojui  residents /}tetise  tidtt  i"'.  stiles  ttLX.) 
I'k'iise  mid  SL'id  fitr  postage  iiiiit  hiinclling. 

T'Aide  Software  Company 

P.O.  Box  65 
El  Mirage,  Arizona  85335 


Visa.  MtastfrCard,  Chocks,  COD 


Add  one  dollar  lor 


With  the  Hayes  direct-connect 
Micromodem  ll!"your  Apple  II  can 
communicate  by  phone  with  the 
outside  world.  You  can  access  in- 
formation networks  like      

The  Source  for  a  variety 
ofbusinessandpersonal 
applications,  exchange 
programs  with  friends  fn'Cr 
anywhere  in  North  _ ,  '  -^^ 
America,  and  -  ^         Dipf^ 

even  use  your 
Apple  II  when 
you're  away 
from  your  home 
or  office. 

Dependable.  The 
Micromodem  II  is  so  dependable 
it  comes  with  a  two-year  limited 


warranty  That's  another  reason 
why  it's  the  largest  selling  direct- 
connect  modem  for  Apple  II 
computers. 

Programmable. 

V  Automatic  dialing 

;■  and  answering? 
Of  course!  We  in- 
if^^^jgy     elude  programs  on 
:,     rirxrr.    disk  that  dial  phone 
I    numbers  for  you, 
Imessageswhileyou're 
:  -    away  and  much  more! 
Complete.  You    ^mm 
J      get  everything    f  X 
you  need  to  com-  I   y 
municate  with  other  Bell   VA 
103  compatible  modems  at  1 10 
or  300  baud.  The  serial  interface 


•      --■■•     "".„  . M  k...L 


is  built-in,  and  we  even  include  our 
FCC-approved  Microcoupler'" 
that  plugs  directly  into  any  modu- 
lar telephone  jack  in  the  U.S.  - 
you  don't  even  need  the  phone! 

S-100,  too.  The  Hayes 
Micromodem  100  gives  S-100 
microcomputers  ail  the  advan- 
tages of  our  Micromodem  II! 

Put  the  outside  world  Inside 
your  computer  with  a  data  com- 
munications system  from  Hayes. 
Available  at  computer  stores  na- 
tionwide-call 
LJ-^m  «^^^%  or  write  for  the 
llCly^W  location  near- 
^  est  you.  And 

don't  settle  for  anything  less 
than  Hayes.   | 


inure:      AVdiiauie  aicomp 

fflHayes 


The  Hayes  Micromodem  II 
opens  up  your  Apple  Ilto  the  outside  world 


Hayes  Microcomputer  Products  Inc. 


5835  Peacmree  Corners  Easi.  ^k3rc^oss,  Georgia  30092  (4CM)  449-8791 

Micromodem  II.  Mjcfomodem  lOO  and  Microcoupier  are  Irademarks  o(  Hayes  MicrMompuier  Producis  Inc. 

•TM  Appto  Computer  Inc.        Micfomodem  II  can  also  be  used  wilh  the  Belt  h  Howell  computer,      ©  1981  Hayes  Microcomputer  Products  Inc. 
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Ask The 
Readers 

Robert  Lock  Richard  Mansfield 
And  Readers 

If  you  have  any  questions  (or  answers  to  the  ques- 
tions printed  below)  please  write  to:  Ask  The 
Readers,  COMPUTE!  Magazine,  P.O.  Box  5406, 
Greensboro,  NC  27403. 

Answers 

'There  is  a  small  design  flaw  in  the  way  thai  Commodore 
BASIC  chaim  between  programs.  The  flaw  is  small,  hut 
wilt  result  in  certain  strings  disappearing  (and  being 
replaced  by  a  string  of  BASIC  tokens). 

Strings  defined  in  a  program  as  a  constant  (i.e. 
A$  =  "Hello")  are  not  allocated  space  in  RAM.  The 
pointer  to  that  string  points  bark  into  the  program  to  the 
line  containing  the  literal.  This  is  normally  J I  ne,  but 
when  the  program  chains  into  another  program,  the 
.string  pointers  noie  point  to  some  piece  of  your  new  pro- 
gram. Now  what? 

The  solution  is  to  not  use  any  stjings  assigned  as  a 
constant.  The  assignment  above  should  he  replaced  by 
A$=  "Hello"  +  "  '".  The  null  concatenation  insures  that 
BASIC  will  copy  the  string  to  RAM  somewhere,  and  it 
will  still  e.xist  after  chaining  to  the  next  routine.  Please 
note  that  DATA  statements  count  as  constants  in  this 
context.  Use  READ  A$:A$  =  A$  +  '-"  to  copy  the  .stririg 
to  upper  RAM. 

This  is  all  loasteful  if  you  do  not  chain  to  other 
routines,  or  if  you  don't  use  the  old  variables  in  the  new 
routine,  hut  be  careful.  Certain  tokens  (like  RETURN) 
will  redefine  the  character  set  or  windou'  size,  a  real 
problem  if  you  doti'i  realize  why  it  happened." 
Michael  Schaffer 


/  believe  that  if  there  must  be  a  change  (and  there 
will  be,  as  progress  demands)  then  COMPUTE!  magazine 
will  demonstrate  immeasurable  foresight  by  chousing  to 
lead  the  way  into  the  1 6  hit  personal  computer  world. 
Dr.  Charles  DeSantis 


"/  would  like  to  respond  to  the  question  raised  in  "Ask 
The  Readers."  COMPUTE!  #16.  regarding  the  future  of 
the  6502.  I  keep  hoping  some  manufacturer  will  do  a  16 
bit  version  of  the  6502  ...  as  good  as  the  6809  seems  to 
be,  it  is  still  a  traumatic  switch  for  those  who  have  cut 
their  teeth  on  the  6502,  to  iay  nothing  of  the  .software  and 
hardware  investment  in  the  6502  machines.  To  me,  this 
.shift  to  the  6809  seems  more  like  a  lateral  —  rather  than 
a  fonvard-looking  move  for  the  future. 

If  I  mu.st  su'itch,  my  choice  -would  be  to  opt  for  a  16 
bit  machine  .such  as  the  68000.  Then  my  present  6502 
unit  would  become  a  smart  terminal  to  access  the  power  of 
the  16  bit  unit.  In  the  interim,  maybe  .some  clever  and 
enterprising  reader  -will  create  a  dual  (parallel  operation?) 
6502  machine  to  emulate  16  bit  operation. 


"I  have  been  following  the  discussio72s  about  'software 
piracy'  in  various  publications  and  I  am  cjuite  impressed 
with  the  arguments  about  'protection  vs.  'backupability.' 
I'm  in  favor  of  the  backupists  in  general.  As  the  King  of 
Siam  is  reputed  to  have  said,  'Is  a  puzzlement!' 

I  kind  of  hate  to  do  this,  hut  all  of  the  discussion  so 
far  has  left  out  one  other  part  of  the  problem.  I  have  a 
PET  2001  with  Upgrade  ROM.  There  is  a  lot  of  good 
software  out  therefor  the  Apple,  Atari,  and  others  that  I 
can't  just  LOAD  and  RUN.  Say  I  have  a  friend  -with  cm 
Apple.  He  bought  a  $200  program  that  I  covet.  If  I 
coytvert  it  to  PET  and  use  it,  I'm  a  pirate!  I  certainly 
won't  buy  it  unconverted  aiul,  after  all  that  work,  I'm  in 
no  mood  to  pay  the  producer...  After  all,  he  igJiored  me!  I 
don't  know  the  ans-wer  to  this  searing,  burning  question 
either,  hut  I  thought  I  could  stir  the  pot  with  it. 

I'm  looking  forward  to  the  articles  about  the  2.1  and 
2.5  DOS.  Let  me  throw  in  one  thing  that  I've  leariwd  the 
hard  loay.  COPYDO  TO  Dl  doesn't  work  in  DOS  2.5 
unless  both  disks  have  the  same  ID!  During  the  copy 
sequence,  if  the  next  source  program  is  cataloged  on  a 
different  Directoty  block,  you  get  DISK  ID  ERROR.  In 
partial  answer  to  MJ.  Band,  the  U3  through  U9  com- 
mands access  RAM  locations  lehereyou  can  put  disk 
control  programs  of  your  own.  If  you  kneiv  the  di.sk  envir- 
onment.  The  possibilities  are  fa.scinating!  Eor  instance,  a 
sort  routine  could  be  put  in  there  -which  would  presort  the 
output  of  your  file  while  the  PET  did  other  work.  Or 
maybe  one  that  would  recognize  only  CHR$(I3)  as  a 
delimiter  so  you  wouldn't  have  to  use  all  those  GETs  to 
recover  ordinaiy  text  with  commas  in  it.  (Make  that 
delimiter  an  option,  I  have  a  propam  that  doesn't  put 
RETURNS  at  the  end  of  a  Une,jusl  CHR$(29}s  at  the 
beginning.  It's  in  ROM,  I  can't  fix  it.)" 
R.  Vanderbilt  Foster 


Questions 

"I  had  read  that  you  may  double  your  disk's  holding 
capacity  by  cutting  out  the  proper  notches  on  the  backside 
of  your  di.sk's  envelope.  So,  I  grabbed  my  Wabash  single 
density  disks,  a  scissor  and  went  snipping  aieay.  Several 
problems  arose  after  trying  to  use  the  backsides  on  my 
Atari  810  disk  drive.  First  I  received  many  144  errors 
(device  done)  while  formatting  the  disk  under  DOS  2.0S, 
but  successful  (I  thought)  under  DOS  1 .  My  second 
problem  occurred  when  I  failed  to  be  able  to  copy  any  files 
to  disk.  I  Imd  the  speed  and  head  pressure  adjusted  but 
still  no  hick." 

Thomas  M.  Krischan 
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CLUDES  2  UAMi  .PASH^ED  DISKS  OF  DATA  BUT 

Will  woR^yioup  i  d|i.ve  microcomputer! 

AVAILABLE  ON  DISK  ^11^^99       ^BttHP  ^  / 


jap^  m%j.- 


TRS-80  MODEL  1  32K 


£29.95 
©■'429.95 

Apple  2  AppiesofKihi flow:    0il2!-0100    'S29:95 
ATARI  40K  052-0100     S3*.95 


^  llVTERNATi'O'NAL 

Ai  DIVISION  OF  SCOTT  ADAMS.  INC 
BOX  3435.  LONGWOOD,  PL  32750 
(305)  862-69  IrT 
■QROER  FROM  YOURi  FA.«OR|iTE  DEAi 

or  CALL  TOLL  FREE  1.800)  327-7112^ 

SHIPPING  i  BAfJDUNO  ARE  EXTRA.  PRICES  SUSJE 


JINSAM 

Data  Manager  selected  by  NASA,  Kennedy  Space  Center 


SAVETIMEI  SAVE  MONEY! 

JINSAM  saves  taxpayers 

lOO's  of  thousands  of  $ 


"Much  more  powerful  than 
you  can  imagine!" 

Robert  Baker 
Kilobaud  Microcomputing 


JINSAM  is  an  integrated  system.  It  makes  it 
easy  to  use  your  information  to  its  fullest  No  more 
will  hundreds  of  valuable  hours  be  spent  searching 
or  analyzing  needed  information  nor  re-entering 
information  for  various  reports. 

jn^fSAM  transforms  your  desk-top  computer 
into  the  "state  of  the  art"  data  processing  machine 
with  features  and  accessories  found  nowhere,  even 
at  10  times  the  price.  NASA,  Kennedy  Space 
Center  selected  JINSAM  8.0  and  saved  approxi- 
mately S95,000  over  other  software/hardware 
costs.  Riley  County ,  Kansas  also  selected  J  INS  AM 
8.0  and  saved  approximately  $90,000  over  other 
software/hardware  costs. 

JINSAM  is  designed  for  you.  It  is  forgiving.  It 
has  help  commands  for  every  option,  available  at 
the  touch  of  a  button.  The  amount  of  information 
you  store,  its  structure  and/or  your  hardware  can 
change  but  your  data  won't  have  to  be  re-entered. 
Recovery  utilites  are  included  even  for  catastrophes, 
security  passwords  are  built  in  for  privacy,  simple 
editing  and  entry  includes  auto  recall,  and  deleting 
records  is  easy  and  the  space  is  reclaimed.  JINSAM 
includes  TWO  FREE  accessories  for  reports  and 
labels.  You  have  unlimited  report  formats  with 
summing  and  lined  up  decimals  and  the  label  printer 
prints  up  to  5  across  -  any  size  and  even  allows 
single  envelopes  or  index  cards. 

JINSAM  1 .0  allows  fast  and  easy  file  handling, 
manipulation  ar>d  report  generation  for  any  CBM 
computer  with  CBM  2040  disk  drive.  It  features  a 
menu  for  ease,  has  encrypted  passwords,  3  deep 
sorts,  .5  to  3  second  recall. 

JINSAM  4.0  for  CBM  4000  series  adds 
JINSORT,  user  accessible  machine  sort  of  1000 
records  in  15  seconds;  compaction/expansion  of 
infonmation,  automatic  list  maintainance,  unlimited 
number  of  fields,  unlimited  record  length  and  much 
more. 

JINSAM  8.0  for  CBM  800O  series  has  all  4.0 
features  plus  unlimited  sort,  horizontal  format,  and 
search  by  key  or  record  number. 

JINSAM  8.2,  NEW  FOR  '82  expands  8.0 
capabilities  by  adding  information  search  by  word, 
key  or  record  number  and  machine  language  print, 
format  and  manipulation  routines. 


•  CUSTOM  DATA  FILES 

•  CUSTOM  REPORTS/LABELS 

•  KEYED  RANDOM  ACCESS 

•  FAST/EASY/MENU  DRIVEN 

•  MULTIPLE  SEARCH  KEYS 

•  PRIVACY  ACCESS  CODES 

•  WILD  CARD  SEARCH 


JINSAM  EXECUTIVE  version  (soon  to  be 
released)  is  our  most  powerful  profession  al  system 
for  the  CBM  8000  and  9000  series.  Executive  will 
have  8.2  extended  features  plus  allow  multiple 
users  with  in-use  lockout  protection,  executive 
command  files,  automatic  math  relations,  join, 
merge  or  link  files,  greatly  increased  record  capacity 
and  machine  information  search  by  word,  as  well 
as  by  key  or  record  number  and  many,  many 
more  features. 

There  are  currently  7  more  interfacing  modules  - 
and  more  underdevelopment,  including  independent 
interfaces  between  JINSAM  and  business  packi 
ages  for  your  G/L,  A/R,  A/P  needs.  We  announce 
the  availability  of  modules  and  enhancements  in 
JIN  SAM'S  quarteriy  newsletter. 

WORDPROPACK  -  Intelligent  interface  for 
WordPro  3,  3+,  4, 4-t-,  creates  lists  of  information 
from  JINSAM  files.  It  allows  up  to  10  conditions 
based  on  each  item  of  information.  Produce  indi- 
vidualized letters,  report  cards,  special  reports, 
checks,  invoices,  etc, 

MULTI-LABEL  -  Prints  multiple  labels  per 
record  with  up  to  2  lines  for  messages  and 
consecutive  numbering.  Produce  inventory,  caution 
labels,  bulk  mail  labels,  etc. 

MATHPACK  -  global  calculator/editor  +,  -, 
*,  /,  by  another  field  or  constant;  null  (remove 
contents)  of  a  field  or  replace  contents  of  a  field 
with  any  word,  number  or  phrase.  Sum  multiple 
fields  in  each  record  or  running  sum  of  single  field 
in  all  records.  Extract  information  or  effect 
permanent  change.  Replace  in  the  same  field  or 
place  in  a  waiting  field. 

DESCRIPTIVE  STATPACK  -  Determine 
MEAN,  MEDIAN,  MODE.  STANDARD 
DEVIATION,  VARIANCE.  RANGE.  Generate 
HISTOGRAMS  from  1  to  25  steps,  and  produce 
Z-SCORE  reports. 

ADVANCED  STATPACK  -  (You  must  also 
acquire  DESCRIPTIVE  STATPACK)  Generate 
one.  two  or  three  way  CROSSTABS  (number  of 
occurance)  CHI  SQUARE,  LINEAR  RE- 
GRESSION, with  graphic  representation  and 
prediction,  LINEAR  CORRELATION  and 
SIMPLE  ANALYSIS  OF  VARIANCE. 

CALCPACK  -  2  way  interface  to  VisiCalc  or 
any  user  program.  It  lets  you  use  VisiCalc  for 
complex  manipulation,  editing,  placing  results  in 
JINSAM  for  sorting,  storing  or  moving  data  to 
WordPro  as  well  as  giving  the  ability  for  exchange 
with  your  own  applications. 

INTERAC  -  Interface  which  can  read  VisiCalc 
files,  WordPro  files  and  almost  any  sequential  files 


to  build  JINSAM  databases  automatically.  For 
example:  You  could  "download"  information  on 
holerith  cards  to  sequential  files  and  INTERAC 
would  place  them  into  JINSAM  files. 

All  accessories  are  accessed  thru  the  JINSAM 
menu  and  requite  security  password  to  gain  entrance. 

JINSAM  gives  you  FREEDOM  OF  CHOICE. 
Start  with  JINSAM  1,0  and  upgrade  hardware 
and  data  at  any  time.  Choose  from  accessories  at 
any  time.  The  JINSAM  Newsletter  brings  the 
latest  updates,  user  input  and  uses  and  keeps  an 
eye  on  the  future. 

JINSAM  stands  alone  by  placing  "a  lot  of 
potential  computing  power  in  one  integrated 
program  package"  (Fred  Klein.  Ferson  div.  of 
Bausch  &  Lomb).  "The  JINSAM  package  is 
juitification  for  buying  a  system  no  matter  what 
the  hardware,  be  it  Vector  or  Commodore  or 
whatever  the  system"  (Larry  Colvin,  Micro 
Computer  Systems).  It  is  a  "grandfather"  in  this 
young  field.  JINSAM  EXECUTIVE  will  be  the 
third  generation  in  development.  All  JINSAM 
systems  are  sophisticated  and  ttexible  yet  easy  to 
use.  JINSAM  is  saving  its  users  valuable  time 
and  money  in  government,  educational  and 
research  institutions,  business  and  industry 
worldwide, 

J INSAM  isa  Commodore  approved  product. 
See  your  local  dealer  for  a  demonstration. 


JINSAM  ia  a  mdemuk  of  JINI  MICRO-SYSTEMS,  Inc. 
WordPro  is  a  tndfmark  of  FrDfcsiiDO&l  Software,  lac. 
VisiCalc  is  a  iTsdtmHTk  at  l*rofeuioiu]  Software,  Iiu. 
CBM  ts  A  trademark  of  Commodore  Bntincis  Machines,  Inc. 


JINSAM  Data  Manager 

. .  Additional  Information  and  nearest  dealer 

. .  Newsletter  Subscription  (S5  US/S8  Woridwide) 
.  .JINSAM  Demo  Disk  ($15, plus  shipping&tax) 
. .  User's  Guide  ($40,00,  plus  shipping  &  tax) 


Company 

Address  _ 


City,  State,  Zip . 
Phone (     )    


Computer,  Disk_ 
Application 


JINI  MICRO-SYSTEMS,  Inc. 

Box  274C  •  Kingsbridge  Station 

Riverdale,  New  Yoric   10463 

(212)796-6200 


Dealer  Inquiry  Welcome 
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Although  it  is  possible,  in  theory,  to  record  on  both 
sides  of  ordinary  disks,  it  is  not  a  good  idea.  Some 
disks  are  designed  to  be  "double-sided"  and  provi- 
sions are  made  to  thicken  and  strengthen  the  disk 
so  that  the  recordings  on  each  side  will  not  interfere 
with  one  another.  "Print-through,"  where  the 
information  being  magnetized  on  one  side  also 
appears  on  the  second  side,  can  obviously  play 
havoc  with  whatever  was  already  on  the  second 
side. 

In  addition,  disk  surfaces  are  so  delicate  that  a 
single  cigarette  ash,  floating  onto  the  disk,  can 
render  it  useless.  This  would  suggest  tliat  cutting 
holes  in  the  outer  envelope  might  deform  the 
surface,  or  worse.  One  final  drawback:  attached  to 
the  inner  surface  of  the  envelope  is  a  .soft,  textured 
fabric  designed  to  trap  any  stray  particles  and  keep 
them  off  the  disk  surface.  Using  the  opposite  disk 
side  causes  it  to  spin  in  the  opposite  direction, 
dislodging  and  redepositing  any  foreign  matter 
back  onto  the  smface. 

"This  is  first  and  foremost  a  great  big  thank  you  letter. 
Thank  you  for  existing  so  that  uumhskulls  like  me  have  a 
place  to  turn  to  in  their  ignorance. 

Last  winter  I  wrote  another  computer  magazine  a 
letter  deploring  the  dearth  of  PET  material  in  their 
columns.  Almost  as  soon  as  the  i.ssne  with  my  letter  in  it  hit 
the  post-boxes,  I  was  inundated  hy  letters  from  helpful 
gays  (especially  Jim  Butte} field)  who  tinned  me  on  to  you 
all.  Thank  goodn.e.'is!  Wish  I  had  the  time  to  thank  each  of 
them  individually. 

One  big  cloud  still  hangs  over  my  head  though.  Why 
does  everybody  have  to  be  .so  much  .smarter  than  f?  Acro- 
nyms fly  all  over  the  place  in  eveiything  I  read.  And  a 
body  would  think  that  you  all  were  more  at  home  inside 
your  PET  than  you  are  in  your  own  living  rooms.  When 
I  open  up  my  2001,  Tm  lucky  if  I  can  tell  back  from 
front!  Is  there  any  way  short  of  becoming  an.  electronics 
wizard  for  us  above  referenced  numbskulls  to  get  to  knoze 
what  you  all  are  talking  so  glibly  about  ?  Tell  me  please, 
how  do  I  gel  to  address  SAOOO  fnnn  here? 

A  kind  ivord  which  you  may  ivish  to  pa.ss  on  to  your 
advertisers  is  this:  If  you  xvnnt  us  uumhskulls  to  buy  your 
products,  .stop  writing  your  ads  in  shorthand!"      '  '  I 
J.  Paul  NIorris 


subject  each  month  (this  month  it's  loops)  with 
extensive  definitions  of  terms  and  example  pro- 
grams. Finally,  "Ask  The  Readers"  itself  has  become 
a  popular  forum  for  the  exchange  of  information. 


We  strive  to  provide  articles  and  programs  which 
are  clearly  written  and  easily  utilized  by  all  readers. 
Nevertheless,  computer  terms  are  confusing  and 
new  ones  are  added  every  year.  One  solution  is  to 
buy  a  dictionary  of  microcomputer  terms  —  most 
bookstores  carry  several.  From  time  to  time,  wc 
reprint  glossaries  and  we  include  a  number  of 
articles  each  month  which  are.  essentially,  tutorial. 
Also,  "The  Beginner's  Page"  explores  a  different 


"How  canyon  get  access  to  all  48K  of  memory  in  a  48K 
Atari?  Is  it  possible  to  write  a  self-booting  program  (some- 
how) which  doesn't  need  to  use  a  cartridge  at  all?  Or  is 
there  a  way  to  remove  the  cartridge  while  in  DOS,  load 
the  object  code  in  hinaiy  form,  and  execute  it  directly?" 
Rick  Grosckiewicz 

When  you  remove  the  cartridge  from  a  48K  Atari, 
the  top  8K  is  accessible  as  RAM,  but  without  a 
programming  language,  how  do  you  u.se  it?  You 
can  use  6502  "machine  language"  in  which  pro- 
grams can  be  written  to  "boot"  (automatically  load) 
in  when  the  computer  is  turned  on.  They  can  be  in 
the  form  of  a  cassette  boot  (see  "SHOOT,"  COM- 
PUTE! #16)  or  with  DOS  as  an  AUTORUN.SYS 
file.  Commercial  software  such  as  Microsoft  BASIC, 
Visicalc,  or  BASIC  A  +  all  can  u.se  this  extra  RAM. 
There  is  more  information  on  this  in  the  DOS 
Manuals  and  in  COMPUTEI's  Atari  Gazette. 


"/  would  like  to  know  where  I  can  get  a  list  of  furniture 
manufacturers  who  make  desks  to  house  my  Atari  800 
and  peripherals." 

Robert  Fersch  © 


r^^  Having  trouble 

^>-^    learning  to  use 

your  computer? 

'Reference  manuals  cJon't  teach.  Most  BASIC 
texts  don't  cover  specific  personal  computers. 

TiS  solves  these  problems 

with  step-by-step  books 

tailored  for  your  machine. 

For  PET/CBM 

Understanding  Your  PET/CBM $16.95 

Vol  1:  Basic  Programming 

PET  Graphics $  6.95 

For  OSI  CIP/C4P 

Understanding  Your  CI  P/C4P $  9.95 

A  Workbook  of  BASIC  Exercises 

For  VIC 

Understanding  Your  VIC $13.95 

Vol.  1:  Basic  Programming 

Money  Back  Guarantee,  VISA/MC  accepted. 
All  prices  include  UPS  or  1st  Class  postage. 

TIS  INC 

•^  f   f^H' 

Total  Information  Services.  Inc.  f    r -X^ 

Box  921,  Dept.  C  T  V2l«v . 

Los  Alamos,  NM  87544  7        I 
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to  deduce,  from  the  responses,  which  terminal  is 
connected  to  the  conipiilcr.  Turing  suggested  that 
ii  the  experimenter  is  noi  able  lo  do  this  rcliahh  . 
then  we  can  say  that  llie  coiiipiiter  is,  in  fact,  tliink- 
ing. 


...  he  concentrates  in 

the  idea  that  the  mind 

is  on  intentional 

system ... 


Further  Ramblings  On  The  Mind  ... 

Wlien  1  first  started  reading  Douglas  Hofstadter's 
book,  Goedel.  Esclirr  and  Bach,  I  thought  I  would  be 
lucky  to  finish  reading  it  by  11)90,  While  the  book  is 
fascinating  and  1  pick  it  u])  Ironi  tiini'  to  time,  1 
have  had  lo  set  il  aside  ior  more  pressing  matters. 
It  was  thus  with  some  trepidation  that  I  bought  a 
copy  of  The  Mind's  /,  a  recent  Iv  publishcfi  book 
(Basic  Books)  by  Douglas  Hofstadter  and  Daniel 
Dennett. 

Hofstadter's  field  is  artificial  intelligence,  and 
Dennett's  is  philosophy.  Dennett  recently  published 
a  collection  olhis  essays  (»n  e]jistemology  (Brain- 
storms,  Philosofjhical  Essays  on  Mind  and  I'syrlnilogy. 
MIT  Press).  It  appeared  that  these  two  poweihouse 
thinkers  decided  to  collaborate  on  a  book  which 
covered  an  area  of  immense  interest  to  each  of 
iheni  —  the  nature  of  the  mind. 

At  I'irsl  glance.  Mind's  I  appears  to  be  a  collec- 
tion of  articles  from  various  sources,  each  of  which 
deals  with  one  perspective  on  the  concept  of  the 
mind.  f4ofsladter's  and  Dennett's  notes  after  each 
article  provide  a  cohesive  framework  which  helps 
the  hook  hang  together.  For  example.  .\lan  'iurings 
landmark  article  "Computing  .Machinery  and 
Intelligence,"  in  which  the  famous  Tm'ing  test  is 
described,  is  foflowed  bv  "The  Turing  Test:  A 
Coffeeliouse  CUimersaiion,"  an  article  Hofstadter 
first  published  in  Scirnlifir  Ami-rirau. 

The  Turing  Test 

Turing's  test,  in  its  si;nplest  form,  has  an  experi- 
menter sitting  at  two  terminals  —  one  of  which  is 
connected  to  a  com]nHer  and  the  other  of  which  is 
connected  to  a  similar  terminal  manned  by  another 
human  being.  The  experimenter  is  free  to  direct 
questions  through  each  terminal  and  is  supposed 


In  Hoistadter's  article,  the  issue  is  raised  as  to 
whether  a  good  simulation  of  thinking  is  the  same 
thing  as  thinking  itself.  This  theme  recurrs  .several 
times  in  the  book  and  is  not  easily  answered. 

The  collection  oi  articles  in  this  book  cover  the 
concept  of  the  mind  from  a  multitude  of  ap- 
proaches. Hofstadter  and  Dennett  provide  a  bal- 
anced picture.  The  strict  reductionist  view-  of  life 
and  mind  resulting  from  a  seething  nu)lecular 
soup  in  which  small  units,  at  cidentally  formed,  are 
subjected  to  fierce  coinpelilioii  lor  resources  with 
which  to  replicate,  is  picsented  by  an  excerpt  i rom 
Richard  Dawkin's  book,  Thr  Sclfisli  Crnc.  .\  more 
mysterious  quality  for  the  mind  is  suggested  by 
Harold  Morow  it  z's  article  "Rediscovering  the  Mind" 
wliich  first  appeared  in  Psyrholo!^- Today.  One  cannot 
help  but  be  struck  bv  the  tremendous  diversity  of 
opinion  expressed  in  this  book.  There  is  something 
to  please  and  infuriate  any  reader,  regardless  of 
his  or  her  philosophic  al  leanings. 

The  function  of  this  book  is  less  to  present  a 
particular  view  than  to  raise  the  level  of  conversa- 
tion about  the  topic.  After  all,  it  is  senseless  to  ask  if 
machines  can  think  when  we  have  yet  to  agree  on 
just  what  thinking  or  consciousness  is. 

Dennett's  book,  Hrainsli>nr/s.  has  a  fiillerent 
goal.  The  collection  of  essays  in  this  book  are  de- 
signed to  elucidate  Dennett's  own  philosophical 
view  of  the  mind  —  a  view  which  is  aided  bv  the 
exijerimental  evidence  being  accumulated  in  iiiaiu 
fields.  His  theory  differs  from  other  models  in 
important  wavs.  The  j^Iivsical  model  of  the  mind, 
for  example,  implies  that  when  two  creatures  have 
the  same  thought  in  common  (e.g.,  the  belief  that 
snow  is  white),  then  they  have  something  plnsical 
in  common  too  (their  braitis  are  in  the  same  physical 
state).  This  is  extremely  unlikely,  as  Dennett 
pc:»ints  out. 
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CREATE-A-BASE 

WITH 

SUPER  SCAN/EDIT 

CREATE-A-BASE,  the  ideal  data  management 
system,  has  added  a  touch  of  class  with  its  new 
SUPER  SCAN/EDIT.  No  other  program  gives  the 
user  such  ease  of  operation  and  Create-A-Base 

still  has  all  the  other  features  for  which  you  asked: 
interactive  with  WordPro,  mathematic  functions, 
sort  650  records  in  19  seconds,  specialized  reports, 
merging,  transferring,  and  duplicating  files  with  a 
few  easy  commafids. 

The  Super  Scan/Edit  puts  the  operator  in  control. 
The  Scan  can  locate  an  eleven  character  match 
anywhere  in  a  record  scanning  10,  24  field  records  a 
second.  Cut  the  fields  to  8  and  it  will  scan  21 .8 
records  a  second.  Speed  is  of  the  essence,  with  the 
located  record  on  the  screen  you  have  full  Editing 
functions.  Never  again  will  you  have  to  rewrite  an 
entire  line.just  cursor  over,  make  the  change,  add, 
delete,  or  rewrite  the  record  with  the  touch  of  a  key. 

CREATE-A-BASE  is  here  with  SUPER  SCAN/ 
EDIT,  don't  miss  it! 

COMING  SOON  FOR  THE  APPLE 


WORDS!  WORDS!  WERDS? 

Oh  NOl,  another  misspelled  word.  Did  you  catch  it"? 

WORDCHECK  DID 

WordCheck  can  find  those  minor  errors  in  even 
the  longest  WordPro  text  file.  This  program  was  not 
designed  to  eliminate  proofreading,  but  to  be  used 
as  a  utility  program.  The  most  commonly  misspelled 
words  are  the  ones  we  use  all  the  time. 

WordCheck  is  capable  of  identifying  7  lo  10,000 

words  and  will  support  multiple  dictionaries  for 

specialized  applications  such  as;  medical,  legal,  or 

scientific,  A  standard  dictionary  is  included  that  can 

be  modified  at  any  time  by  the  user,  or  duplicated 

to  create  additional  dictionaries. 

WordCheck  lays  no  claims  to  "FLASH  AND 

SIZZLE" 

Just  a  major  claim  on  "WORDS"! 

Call  now  for  your  claim  on  "WORDCHECK"! 


AVAILAKLC 

at  your  local  COMMODORE  dealer  or 
distributed  exclusively  in  CANADA  by 
B.P.I.  Micro  Systems,  Ltd. 
80  Barbados  Blvd.  «14 
Scarborough,  Ontario  M1J1K9 
Special  Dealer  Introductory  Package  Available 


Micro  Computer  Industries  Ltd. 

_r\ n 


500  East  Oak  Street,  Fort  Collins,  CO  80524 


1-303-221-1955 
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Intentional  Systems 

His  theory  does  not  denv  the  possibility  of  a  corre- 
spoiulcnce  between  inenuil  and  physical  states. 
Instead  he  concx^iurates  on  (lie  idea  tha(  tlie  mind 
is  an  inlenlional  system  —  one  whose  beliavioiu-  can, 
at  least  sometimes,  be  explained  and  predicted  by 
treating  it  as  thotigh  it  had  beliefs  and  desires. 

I  f  one  looks  only  at  external  views  oi  the  system, 
it  is  logical  to  ask  if  this  model  a]:)plies  U)  machines 
as  well  as  to  human  minds.  (Consider  a  computer 
progrannned  to  pla\-  chess.  One  can  examine  tiiis 
system  from  three  perspectives.  By  taking  the 
firsign  slaurr,  one  can  ]iredit:t  the  game's  behavior 
bv  knowing  die  details  of  the  computer  and  its 
program.  .As  long  as  the  system  liehaves  as  pro- 
grammed, predictions  made  from  this  anal)sis  will 
be  true.  This  stance  is  most  useful  when  dealing 
with  simple  systems  (strike  a  match  and  i(  will  light). 
'I'hv  pin'siail  slaurr  ba.ses  predictions  on  the  actual 
ph\  sical  state  ol  the  system,  and  then  uses  the  laws 
of  nature  to  predict  what  will  happen  next.  This 
approach  is  most  difficult  to  apply  to  a  machine  as 
complex  as  a  digital  computer. 

Chess  plaving  computers  are  practically  inac- 
cessible to  piT'diction  from  either  the  design  or 
physical  stance.  Even  their  own  designers  \vould 
have  a  hard  time  descri!>iug  liicse  machine's  be- 


havior from  the  design  stance.  Ihc  best  strategy 
for  someone  playing  against  such  a  machine  is  to 
treat  it  as  if  it  followed  the  rules  and  goals  of  clicss. 
Onea.ssimies  that  the  computer  will  both  function 
as  designed  and  that  it  will  "choose"  the  most  op- 
timal move. 

This  attribution  of  rationality  to  the  system  is 
the  cornerstone  of  the  intentional  stance.  One  pre- 
dicts behavior  in  such  systems  by  assiuning  (Item  to 
possess  certain  inlbrmation  and  to  be  directed  by 
certain  goals.  This  ascription  oi'  beliefs  and  desires  to 
machines  appears  to  suggest  tliat  machines  are 
capable  of  "tiiought." 

The  aspect  of  Dennett's  argument  which  I 
find  most  appealing  is  its  reluctance  to  tackle 
thought  on  a  microscopic  scale.  As  long  as  he  is 
able  to  deduce  the  characteristics  of  a  system  from 
its  behavior,  he  is  unlikely  (o  gel  much  criticism 
from  anv  of  us  wlio  feel  that  it  is  nonsense  to  suggest 
that  machines  are  capable  of  what  we,  as  humans, 
would  call  consciousness  or  thouglu. 

Both  'I'he  Mind's  I  and  Brainslorms  arc  fasci- 
nating l)ooks.  You  should  approach  them  cautiously 
—  tliey  are  not  light  leading.  You  might  decide 
that  the  real  issue  is  not  whether  machines  are 
capable  of  thought,  but  just  what  constitutes 
thought  in  the  firsi  place.  © 


KOW  COMMODORE  TALKS.  AND  LISTENS. 


COCNIVOX  VIO■10CI2l^  BSiu'wh  recuEriiliim  und  viiKeoulpiil  [KTiplieral  for  Com- 
miikIii"-  ciimpulvrs.  II  iiffcrs  slalcof-tlif  art  ca|nil>ililii-,  with  iilcMBnt  .^tjimdlng  lullir. 
al  vriin'  (iLilput  and  nt-(iB"IHnii  perform iiKr  ri|ii»l  Hi  Ihol  of  units  cijslinR  many  times 
mim--  ll^  capabililirt.  tfu-  very  •ftordaljlt-  [itit-r  oiiil  ils  varifly  (if  nvt  makra  it  s  "mml 
lisvt-"  jH'ripheral . 

Many  uses 

Willi  COGNIVOX  your  imaginalion  is  nol  the  limit,  as  the  saying  goes.  It  is  the 
.lUrtiiiK  [loiiil-  Uw  if  f<ir  data  cnlry  wlioi  Ihe  hontb  and'or  eyes  arc  tiiisy.  As  an  educa- 
tiniiu)  liKil.  A.!  an  aid  «"  tlic  liandicapjird.  Or  as  a  fiirfiRn  lanS'iBKi'  trundalor.  a  simnd 
iflivl<  KvMiraliir.  a  (di-iilione  dialinedeiiir,  an  bwuitiiik  rnadiillp,  n  tolkinxcali-uia- 
liir  iir  clirli.  Use  il  in  cnnjunctiiin  «itlv  Itic  IKKK  *B8  port  Ki  conlrnl  iiy  soicf  in- 
slriinu-iitv,  iiliillers.  t»<  systems.  And  all  th™-  ticsitts  con  talk  luck  <o  ynii  Ifllinn  yini 
tln-ii  ri-adiiigs,  alarm  «)ndltl(ins,  even  ttn-it  nam».  Or  use  il  witiv  a  BSB  conlroller  in 
ti-r(atv  (»■•■  ComiiulF,  Oct.  fll)  to  control  by  voice  lisshb  and  alipliances  in  the  house. 

Sflmc  specifications. 

(XK;MV0X  can  Ik  (ralne«l  lo  tetoenize  wiird.s  or  short  pliiasis  drann  from  a  vc^a- 
liiilury  i>!  up  lo32enlrieschiisoiby  tlieilier.  TolrainCOCNIVO.X  In  your  vncabulaty. 
all  sou  have  (u  do  is  re|ieal  tlic  cnlrii-s  ihriv  liniw  al  the  Jiioniptinst  of  the  mmptllet. 
1  iic  Klin-  nulpul  vocabulary  can  also  have  up  I'l  12  ^otds  or  phrases  of  your  choice. 
Data  rule  is  apprniimately  VfXJ  byt«  per  ssrird,  \'iicabiiUrlM  can  be  slured  and  recalled 
From  disls,  Kiving  in  cflccl  unliraHfd  selcctioii  of  entries. 

COCNIVOX  VfO- 10(12  siil!  svnrk  with  all  Oiniiiiodorc  compulers  (old.  new  and 
newer  llOMs)  with  al  k-asl  IBK  of  HAM.  It  conns  complete  with  s.<isenibl«l  and  tested 
liurdssarc  in  a  i|ualit>  instrument  ca.se.  spcakct/amplifier,  posser  sup|>'> .  microphone, 
caswite  with  software  aud  detailed  user  manual. 

Easy  In  use 

All  yon  need  In  jjcl  COGNIVd.X  uji  and  rnnninK  is  (o  pluR  il  in  the  user  porl  and 
loiiil  orii-  nl  thepriiKrams  supplied.  Load  the  deniiiii  program  and  slarl  lilking  lo  your 
conipiilcr  ri^hl  away.  Or  load  one  of  the  Raines  and  di.sctjser  Ihe  ma^ic  of  voice  con- 
trol. 

Il  in-a-sy  to  ssiite  your  ow  n  lalUnRaud  lisleniuR  programs  liKi.  A  single  statemmt  in 
DASIC  is  all  that  you  neci!  lo  say  or  to  rwiiEiiire  a  word.  Full  Instriicliiins  iin  how  to  do 
il  lire  i£ivcn  in  the  toaniial. 

Order  vaur  COCINtVOX  now. 

T"  order  bs  mail  st'ud  >is  a  clici-k  or  umncy  order  (or  %243  plus  $5  shipjiiiiR  and  hand- 
linK  It'A  f^iderits  add  G'~  lai).  Yuu  may  also  order  by  phone  and  ehars;e  it  to  your 
VISA  iir  MASTKIlCAiU),  Call  ns  at  {S05)  fiHS- 1»54,  9AM  to  SfM.  i'ST.  M  F.  ForciRn 
orders  are  ssclcoiiie,  please  add  lll^r  for  air  mail  shipjiine  and  liandlinR 


VOICETEK 

P.O.  Box  388,  Goleta,  CA  93116 


qUAUT Y  AND  VALUE. 

1982  will  find  more  OEM's,  businesses,  dealers  and  personal  computer 
users  turning  to  MICROTEK  than  ever  before. 


TckWritar-1 


80  Column  Dot 
Matrix  Printer 

(Formerly  BYTEWRITER-1) 

The  Tekwriter-l  printer  is,  dollar  for 
dollar,  the  finest  value  in  the 
industry.  And  we've  proved  it  by 
comparing  the  TekvvTiter-l  to 
the  Epson  MX-80.  Our  print  speed 
is  14  lines  per  minute  faster,  our  life 
expectancy  is  longer,  the  character 
sets  are  the  same,  and  the 
interface,  warranty  and  printhead 
replacement  cost  are  all  identical.* 
But  the  biggest  difference  is  the 
price.  The  Tekwriter-l  is  about 
$300  less. 

Our  extensive  testing  has  proved 
that  the  Tekwriter-l  interfaces 
problem-free  to  the  TRS-80,  the 
Apple  II  and  the  Atari  400  and  800. 

The  Tekwriter-l  is  tough  to  beat  for 
performance  and  quality. 

"  Data  Source :  Epson  MX -800  Operalian  Monual 


$349 


TekWritGr-2 


NEW!  80/132  Column 
Dot  Mattix  Printer 

The  Tekwriter-2  is  perfectly  suited 
to  personal,  business  or  OEM 
applications.  Tekwriter-2  is 
designed  to  accept  single  sheet, 
roll  or  pin  feed  paper.  If  has 
a  9-wire  dot  matrix  impact 
print  head  which  produces  crisp 
characters  and  has  underlining 
capability.  The  printer  is 
monufactured  to  run  extremely 
quietly  even  while  operating  at 
peak  output  levels. 

Tekwriter-2  is  especially  well  suited 
to  handle  an  abundance  of  text 
entry  because  of  its  data  buffer 
expansion  capability  to  25K.  This 
ability  makes  it  an  efficient 
graphics  generator. 

Parallel  interface  (Centronics 
type).  Interfaces  all  models  of 
TRS-80,  Apple,  and  Atari  400/800, 
and  most  computers  with 
Centronics  printer  interface. 


$695 


Peripherals 


16K  Memory  Board,  AMB-16 

16K4116RAM(200NS) 

•  Assembled  and  tested  •  No 

modifications  —  hardware  or 

software  •  Compatible  with  Atari 

800 

32K  Memory  Board,  AMB-32 

32K  4116  RAM 
{200NS)  •  Assembled  and 
tested  •  No  modifications  — 
hardware  or  software  • 
Compatible  with  Atari  400/800 

Atari  (RS-232)  Serial 

Printer  Cable 

Pre-iested  •  3'  length  •  DB15  to 
DB25  connectors 

Atari  Parallel  Printer 

Cable 

Pre-tested  •  3'  length  •  Centronics 
compatible  •  DB15  to  Amphenol 
57-30360 

16K  Apple  Memory  Card 

Expands  Apple  II  to64K  RAM 
memory.  Works  with  MICROSOFT 
Z-80  Softcard,  Apple  PASCAL  and 
Visicalc  software. 


Quantity  and  OEM  discounts  available. 


Continuing  our  quest  for  excellence. 


TRS-BO  is  □  trademork  of  Radio  Shack,  Inc. 
Apple  II  is  o  frodemorl;  of  Apple  Compuler,  Inc. 
Atari  400'800  are  trademarks  of  Atari ,  Inc, 
Microsoft  is  a  trademork  of  Microsoft  Consumer 

Products,  Inc, 
Z-80  is  a  IrodernarkofZilog,  Inc. 
Visicalc  is  o  trademork  of  Personal  Softwore,  Inc. 


MICROTEKi 


MICROTEK 

9514  Chesapeake  Drive 
San  Diego,  CA  92123 
(714)  278-0633 
Outside  CA  call 
Toll  Free  (800)  854-1081 
TWX.  910-335-1269 
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The  Beginner's  Page 

Loops 

Richard  Mansfield 
Assistant  Editor 


You'll  hear  the  term  nlgorUhm  from  time  to  time.  It 
merely  means  a  procedure,  a  way  of  getting  some- 
thing done.  For  example,  let's  assume  that  your 
programming  become.s  so  impressive  that  you 
decide  to  start  a  software  business.  You  want  to 
generate  a  list  of  possible  names  for  your  new 
venture  and  then  pick  out  the  best  one.  You  could 
make  a  list  yourself,  but  you  are  a  programmer 
and  you  have  a  computer  which  could  make  your 
list  in  a  jiffy.  All  you  need  to  figure  out  is  the  algo- 
rithm: the  steps  your  computer  needs  to  follow  to 
create  the  list.  Most  algorithms,  especially  for  jobs 
involving  lists,  use  loops. 

First  put  all  your  favorite  words  aboiU  software 
into  a  table  of  DATA  statements.  This  will  give  the 
computer  something  from  which  to  make  its  list. 
Then,  you  use  a  nested  loop  to  combine  the  data  in 
all  possible  ways. 

Loop  Forms 

The  loop  is  one  of  the  primary  ways  that  a  computer 
does  its  work:  FOR  1=  1  TO  10.  (Do  something. 
Print  the  variable  /,  for  example).  NEXT  I.  This 
structure  means:  as  long  as  /  is  still  between  1  and 
10,  print  /  on  the  screen.  Raise  the  value  of/  by 
one  (NEXT  I)  and  loop  (jump  back  to  the  FOR 
statement  which  will  check  to  see  if  /  is  still  within 
bounds).  We.  ourselves,  loop  every  day  (and  we  ask 
others  to  loop  for  us),  but  we  don't  think  of  it  as 
looping.  If  you  were  about  to  make  a  list  (by  hand), 
you  might  stait  off  by  taking  a  sheet  of  paper  and 
writing  down  the  numbers  1.  2.  3.  etc.  along  one 
side.  This  is  precisely  the  loop  in  our  example 
above. 

Another  common  loop  form  is  "please  find  me 
the  map;  it's  in  that  pile."  (FOR  I  =  1  TO  ."lO:  IF 
X$(I)  =  "MAP"  THEN  PRINT  "HERE  IT  IS.": 
NEXT  I)  Of  course,  when  you  use  the  "IF"  struc- 
ture, you  cannot  put  NEXT  I  on  the  same  line.  If 
you  did,  the  NEXT  part  would  only  loop  IF 
X$(I)  =  "MAP,"  Anything  following  IF  is  governed 
by  that  IF  and  will  not  be  carried  out  unless  the  IF 
comes  true. 

"Will  you  please  wait  two  seconds  before  telling 
me  vour  name?"  (FOR  I  =  1  TO  2000:  NEXT  I: 
PRINT  "MY  NAME  IS  COMPUTER.")  This  is 
called  a  delay  loop  because  the  computer  does 
nothing  between  the  FOR  and  the  NEXT.  It  just 


waits  until  it  counts  to  2000  which  takes  atiout  two 
.seconds. 

Nesting 

If  you  put  a  loop  within  a  loop,  the  inner  one  is 
called  a  nested  loop.  "Ask  all  six  people  in  this  room 
what  their  three  favorite  foods  are."  (FOR  I  =  1  TO 
6:  FOR  J=  1  TO  3:  PRINT  "WHAT'S  A  FAVOR- 
ITE FOOD  OF  YOURS?":  NEXT  j:  NEXT  I)  It's 
easiest  to  grasp  nested  loops  by  working  (rom  the 
inner  loop  out.  They  loop  is  asking  the  question 
three  times  before  it  transfers  the  control  back  to 
its  master  loop  /.  The  total  number  of  loopings 
{iterations  is  the  technical  term)  will  be  18  (/'.v  iterations 
multiplied  byj's). 

Why  do  we  use  /  for  our  counting  variables  in 
loops?  It's  just  conventitmal.  It  must  have  once 
meant  increments  or  iterations  or  index,  but  that 
hardly  matters.  It  is  convenient  because  you  can 
then  remember  never  to  use  /  elsewhere  in  your 
programs  for  other  variables  —  /is  always  your 
master  loop  variable.  Then,  logically,  it  is  common 
practice  to  usey  for  a  nested  loop  within  the  /  loop. 
Also,  for  timing  delay  loops,  it  is  a  good  habit  to 
reserve  the  variable  T  as  we  did  above.  7',  of  course, 
stands  for  Time.  It  is  not  used  anywhere  else  in 
programs  (for  the  same  reasons). 

Picking  A  Company  Name 

Our  algorithm  for  listing  possible  company  names 
is  a  nested  loop.  We  picked  eight  adjectives  we 
liked  and  came  up  with  seven  nouns.  This  means 
we  have  two  lists  which  we  want  to  combine  into 
one  list.  We  put  the  adjectives  and  nouns  into  their 
own  separate  DATA  lines  and  READ  them  into 
two  arrays.  An  array  is  a  table  or  list  —  a  grouping 
of  items  which  are  somehow  related  to  each  other 
so  we  want  them  stored  together  imder  tlie  same 
name.  In  this  case  we  set  up  two  slrijig arrays: 
ADJECTIVES  #1  through  #8  aiul  NOUN'S  #1 
llirough  #7.  The  loop  in  line  120  hangs  iuiit|uc 
tags  on  each  word  in  the  DATA  statement  as  it 
reads  and  memorizes  each  item.  For  example, 
when  it  READs  "super"  it  tags  it  with  the  variable 
name  ADJECTIVE$(2).  If  you  finished  RUNning 
the  program  and  directly  asked  the  computer  ? 
ADJEC'riVFj(5)  it  would  print  "QUALII  Y."  For 
information  on  string  arrays  on  the  Atari  see  COM- 
PUTEI  #1 1  pg.  103  aiid  COMPUTEI  #  1  (i  pg.  36. 

Knowing  that  putting  a  novm  before  an  adjec- 
tive usually  results  in  nonsense  (apple  red)  we 
decided  to  lefine  our  list  of  potential  names  for 
our  company  by  only  permitting  adjectives  to 
modify  nouns.  This  means  we  want  to  list  a  noim 
and  go  through  all  eight  possible  adjectives  lor  it 
before  listing  the  next  noun.  This  is  very  like  asking 
six  people  to  name  three  favorite  foods. 

The  nesdng  is  in  lines  140  to  1 80.  Notice  that 


Rocii'l  Raiders 


Our  High  Quality  Software  Is  More  Than  A 
Stroke  Of  Genius...  It's  A  Work  Of  Art. 


D  PM  EDITOR:  by  Dennis  Zander  (Atarr,  I6K) 

Create  your  own  fast  action  graphics  game  lor  the 
Atari  400  or  800  using  its  player  missile  graphics  fea- 
tures By  using  player  data  stored  as  strings,  players  can 
be  moved  or  changed  (for  antmation)  at  mar:hine  Ian- 
cuace  speed  All  this  is  done  with  string  variables 
rP0!f(Y)=SHIP4)  This  program  is  designed  to  permit 
creation  of  up  to  4  players  an  the  screen,  store  them  as 
string  data  and  then  immediately  try  them  out  in  the 
derrio  game  included  in  the  program  Instructions  for 
use  in  your  own  game  are  included  PM  EDITOR  was 
used  to  create  tne  animated  characters  m  ARTWORK 
RINGSOFTHEEMPIREandENCOUNTERATOUESTARIV. 
PRICE         .  t29.9Scassette  t33.9Sdiskette 

a  ROCKET  RAIDERS  by  Richard  Petersen  (Alan  24K) 
Defend  yojr  asteroid  base  against  pulsar  tfomds.  roc 
kets,  lasers,  and  the  dreaded  stealth  saucer"  as  aliens 
attempt  to  penetrate  your  protectee  force  field  Precise 
target  sighting  allows  you  to  lire  at  the  enemy  using  mag- 
netic impulse  missiles  to  help  protect  yQur  colony  and 
Its  vital  structures 
PRICE  tl9.95cassetie  $23.95  diskette 

□  INTRUDER  ALERTl  by  Dennis  Zander  (Atari.  16K) 
This  is  a  fast  paced  action  game  in  which  you  must 

escape  from  the  "Dreadstar'  with  the  secret  plans 
The  droids  are  after  you  and  you  must  find  and  enter 
your  ship  in  order  to  escape  If  you  faii.  the  ret:iellion 
IS  doomed    PRICE         J16.95cassette  J20.95diskette 

D  THE  RINGS  OF  THE  EMPIRE:  by  Dennis  Zander 

(Atari  16K1 
The  Empire  has  developed  a  series  of  battle  stations 
protected  by  one  or  more  rings  of  energy  You  must  des 
trny  these  weapons  by  attacking  them  in  your  Ywing 
fighter  armed  with  Zydon  torpedoes.  Each  time  you 
bfast  through  the  nngs  and  destroy  the  station,  the 
Empi  re  develops  a  new  station  wit  h  more  protective  ri  ngs 
PRICE  $16.9Scasset1e  S2a.95dishette 

□  FOREST  FIRE!:  by  Richard  Petersen  (Atari.24K) 
Usingexcellentcolor  graphics,  youf  Atari  is  turned  in 

to  a  fire  scanner  to  help  vou  direct  operations  to  contain 
a  forest  fire.  You  must  compensate  (or  changes  in  wind 
weather  and  terrain.  Not  protecting  valuatjle  properly 
can  result  in  startling  penalties  Life-like  variables  make 
FOREST  FIRE  a  very  suspenseful  and  Challenging  simu 
lation   PRICE  $16.95  cassette  S20.95diskette 

D  PILOT:  by  Michael  Piro  (Atari.  16K) 

Pilot  your  small  airplane  to  a  successful  landing  using 
t»th  joysticks  to  control  throttle  and  attack  angle  PILOT 
produces  a  true  perspective  rendition  of  the  runway 
which  IS  constantly  changing  Select  from  two  levels  of 
pilot  proliciency 
PRICE  $16.95casserte  $20.95diskette 

D  ALPHA  FIGHTER:  by  Douglas  lilcFarland  (Alan,  16K) 
Consistingot  two  different  programs,  ALPHA  FIGHTER 
requires  you  to  destroy  the  alien  starships  As  you 
become  more  successful,  the  games  get  harder  and 
and  harder  PRICE         $14.95 cassette  $l8.95diskette 

a  GIANT  SLALOM:  by  Denms  Zander  (Atari.  16K) 

Bring  the  Winter  Olympics  to  ypur  computer  anytime  ol 
the  year'  Use  the  joystick  to  guide  your  skier's  path 
down  a  giani  slalom  course  consisting  of  open  and 
closed  gates  Choose  from  three  levels  ol  difficulty 
Take  practice  runs  or  compete  against  from  two  to 
eight  additional  skiers 
PRICE  $15.95cassette  $19.95diskene 

□  HODGE  PODGE:  bv  (Marsha  Meredith 

(AppIe48K.  Applesoft  or  Integer  BASIC) 
This  captivating  program  is  a  marvelous  learn  I  ng  device 
for  children  from  18  months  to  6  years.  HODGE  PODGE 
consists  of  many  cartoons,  animations  and  songs  which 
appear  when  any  key  on  the  computer  is  depressed  A 
must  for  any  family  containmg  young  children  and  an 
Apple. 
'WCE  $19.95diskette 

D  STUD  POKER:  by  Jerr*  White  (Atari.  16K) 

This  IS  the  classic  gamblers  card  same  You  will  lind 
the  computer  to  be  a  worthy  ooiwnenl  who  occasionally 
bluffs  but  never  cheats!  STUD  POKER  emplovs  all  of  the 
Atan's  sound,  color  and  graphics  capabilities 
PRICE  -      $14.95  Cassette  $18.95  diskette 


-ryPE.'N-TALK-  . 


ARTWORX  IS  offering  the  fantastic  TYPE-'N-TALK" 
from  Vortrax*  This  easy-to-use  unit  connects  to  your 
computer's  serial  port.  Text  is  automatically  translated 
into  electrnnic  speech  enabling  the  TYPE-'N-TALK" 
hobbyist  to  use  and  enjoy  it  immed  lately. 
PRICE  $329.00 

The  following  ARTWORK  programs  are  available  for 
TYPE- N -TALK 

STUD  POKER  (Atari.24K)  $16.95cas5eRe 

$20.95  diskette 
TEACHER'S PET(Atari.24K:  NorihStar)  $16.95/  $20.95 
BRIDGE2.0(Atan.24K:NorthStar)  $19.95  /  $23.95 
NOMINOES  JIGSAW(Atan.24K)  $17.95  /  $21.95 

Please  specify  "TNT"  version  when  ordering  programs 

O CRANSTON  MANOR  ADVENTURE:  by  Larry  Ledden 
(Alan.  North  Star  and  CP/M) 
You  must  enter  mysterious  Cranston  Manor  and  attempt 
to  collect  Its  many  treasures  This  extemely  challenEing 
program  will  provide  you  with  many  hours  (days')  of 
adventure  The  program  may  be  interrupted  at  will  and 
youf  status  saved  onto  the  d  iskette 
PRICE  ...      $2 1.95  diskette 

U  BLOCKADE:  by  Edward  Schneider  (Atari.  16K) 

Every  games  library  needs  Blockade  program,  and  this 
IS  One  of  the  best  Choose  from  three  levels  of  diffi- 
culty and  play  against  another  person  or  by  yourself 
against  the  clock 
PRICE  $14,95 cassette  $18.95diskette 

D TEACHER'S  PET:  by  Arthur  Walsh  (Atari.  Apple. 

TRS-aO,PET.  rJorth  Star  and  CP'MIMBASIC)  systems) 
This  IS  an  introduction  to  computers  as  well  as  a  learn- 
ing toot  for  the  young  computerist  (ages  3-7)  The  pro- 
gram provides  counting  practice,  letter  word  recognition 
and  three  levels  of  math  skills 
PRICE  $14.95 cassette  $18.9Sdisketle 

a  FORM  LETTER  SYSTEM:  (Atari.  North  Star  and  Apple) 
This  IS  the  ideal  program  tor  creating  personalized  form 
letters'  FLS  employs  a  simple  to  use  text  editor  tor  pro 
ducing  fully  Justified  letters  Addresses  are  stored  in  a 
separate  file  and  are  automatically  inserted  into  your 
form  letter  along  with  a  personalized  salutation  Both 
letter  files  and  address  files  are  compatible  with  ART- 
WORX MAIL  LIST  3  Oand  TEXT  EDITORproCrams 
PRICE        $39.95diskette 

OTEXT  EDITOR:  (Alan  and  North  Star) 

This  program  is  very  'user  friendly  "  yet  employs  all 
essential  features  needed  for  serious  text  editing  with 
minimal  memory  requirements  Features  include  com 
mon  sense  operation,  two  different  tustification  techni 
Ques.  automatic  line  centering  and  straightlorward 
text  merging  and  manipulation  TEXT  EDITOR  files  are 
compatible  with  ARTWORX  FORM  LETTERSYSTEM 
PRICE     $39,95  diskette 


n  MAIL  LIST  3.0:  (Atari.  Apple  and  North  Star) 

The  very  popular  MAIL  LIST  2,2  has  now  been  up- 
graded Version  3.0  offers  enhanced  editing  capabilities 
to  complement  the  many  other  features  which  have  made 
this  program  so  popular.  filAIL  LIST  is  unique  in  its 
ability  to  store  a  maximum  number  of  addresses  on  one 
diskette  (typically  between  1200  and  2500  names!) 
Entries  can  tje  retneved  by  name,  keyword(s)  or  by  zip 
codes  They  can  be  written  to  a  printer  or  to  another 
file  for  complete  file  management  The  program  pro- 
duces 1.  2  or  3-up  address  labels  and  will  sort  t>y  zip 
code  (5  or  9  digits)  or  alphabetically  (by  last  name).  Files 
are  easily  merged  and  MAIL  LIST  will  even  find  and 
aelete  duplicate  entries!  The  address  lifes  created  with 
MAIL  LIST  are  completely  compatible  with  ARTWORX 
FORM  LETTER  SYSTEM. 
PRICE  $49.95  diskette 

□  THE  VAULTS  OF  ZURICH:  by  Felix  and  Ted  Herlihy 

(Alari.24K.  PET) 
Zurich  IS  the  banking  capital  of  the  world  The  rich  and 
powerful  deposit  their  wealth  in  its  famed  impregnable 
vaults  But  you.  as  a  master  thief,  have  dared  to  under- 
take the  boldest  heist  of  the  century  You  will  journey 
down  a  maze  of  corridors  and  vaults,  eluding  the  most 
sophisticated  security  system  in  the  world.  Your  goal  is 
to  reac h  the  Chairman's  Chamber  to  steal  the  most  trea- 
sured possession  of  all:  THE  OPEC  OIL  DEEDS! 
PRICE  $Zl,95ca5seite  $25.95  diskette 

□  BRIDGE  2.0  by  Arthur  Walsh  (Alan  (24K).  Apple 
TRS-80.  PET,  North  Star  and  CP/M  (MBASIC) systems) 

Rated  Hi  by  Creative  Computino,  BRIDGE  2.0  is  the 
only  program  that  allows  you  to  both  bid  for  the  contract 
and  play  out  the  hand  (on  delense  or  offensel).  Interest- 
ing hands  may  be  replayed  using  the  "duplicate"  bridge 
feature.  This  is  certainly  an  ideal  way  lo  finally  learn  to 
play  bridge  or  to  get  into  a  game  when  no  other  (human) 
players  are  available. 
PRICE  $17.95cassene  $21.95diskette 

a  ENCOUNTER  AT  QUESTAR  IV:  by  Douglas  McFarland 

(Atari.  24K) 
As  helmsman  of  Rikar  starship,  you  must  defend 
Questar  Sector  IV  from  the  dreaded  Zentarians.  Using 
your  plasma  beam,  hyperspaceengines  and  wits  to  avoid 
Zentarian  mines  and  death  phasers,  you  struggle  to  stay 
alive-  This  BASIC/Assembly  level  program  has  super 
sound,  full  player  missile  graphics  and  real  time  aciiqn. 
PRICE  $23.95cassene$27.95diskette 

C  THE  NOMINOES  JIGSAW  PUZZLE: 

bvC  Mtnns/a.  Brownlee  (Atari.  24K.  TRS-80,  and  Apple) 
We  Quote  .  "A  bramteaser  supreme,  the  concept 
of  NOMINOES  JIGSAW  is  brillant  this  video  jigsaw 
game  is  so  clever  and  completely  original  that  only 
the  most  hard  hearted  puzzle  hater  could  fail  to  be  charm - 
ed."-ELECTRONIC  GAMES  MAGAZINE 
PRICE  $17.95  cassette  (also  available  (or  TRS-80  color 
computer)  $21.95  diskette 


Highest  Quality 
Software', 
_^ Guaranteed. 

ARTWORX  SOFTWARE  COMPANY 

150  North  Main  street     Fairport,  NY  14450     (716)425-2833 


•  ••  •  Call  ARTWORX  toll-free  number  to  order  direct 
"^   800-828-6573 


InNewYork.  Alaska.  Hawaii  call:  (7I5)-425.2833 

All  orders  are  processed  and  shipped  within  48  hours. 
Shipping  and  handling  charges: 

Within  North  America:  Ad(j$2.00 

Outside  North  America,  Add  lO'^i:  (Air  Mail) 

New  York  State  residents  add  7!;.  sales  tax. 

Quantity  Discounts: 

Deduct  10*:  when  ordering  3  or  more  programs 

Ask  for  ARTWORX  at  your  local  computer  store. 


Write  for  FREE  Catalogue 

listing  more  information 

about  these  and  other 

quality  ARTWORX  programs. 


■ATARI.  APPLE.  TRS-80,  PET.  NORTH  STAR.  CP/M. and  TYPE'N  TALK  are  registed  Iradanatnes and/or 


trademarks  • 


the  NEXT  J  will  always  loop  back  to  line  150  until 
the  FOR  J  condition  (count  up  to  eight)  is  satisfied. 
Then  the  program  will  execute  the  NEXT  I. 

Can  we  nest  at  even  deeper  levels?  Sure.  Typing 
a  new  line:  165  FOR  T=  1  TO  2000:  NEXT  T  will 
provide  a  short  delay  loop  between  each  item  as  it 
appears  on  the  screen.  Could  we  see  the  list  back- 
wards? Change  two  lines:  140  FOR  I  =  7  TO  1 
STEP  -1  and:  150  FOR  J  =  8  TO  1  STEP  -1 .  Every 
other  name?  150  FOR  J  =  1  TO  8  STEP  2.  Only 
names  beginning  with  the  letter  A?  155  IF  LEFT$ 
(ADJECTIVE$(J),1)  <>  "A"  THEN  GOTO  170. 
(For  Atari:  165  IF  ADJECTIVE$(^J*20-19,J*20-19 
<>  "A"  THEN  180) 

As  yoti  can  see,  all  kinds  of  choices,  refine- 
ments, or  modifications  are  possible  within  loops 
by  merely  changing  a  few  instructions  to  the  ma- 
chine. The  combination  of  loops  and  branches  (lines 
starling  with  IF  or  ON)  coupled  wilh  the  computer's 
great  speed  (you  try  to  coiuil  from  one  to  2000  in 
two  seconds)  is  the  essence  of  the  great  power  of 
computers. 


Microsoft  Version 

100 


DATA 

SUPER, ACME, AMERICAN, RAINBO 

W, QUALITY, 

INTERGALACTIC,RE 

LIABLE, FOOLPROOF 

DATA 

PROG RAMS, SOFTWARE, COMPUTER 

WARE, 

CODE, 

LISTINGS, INFORMA 

TION, 

MAGIC 

FOR  I 

=  1 

TO  8:  READ 

ADJECTIVES 

(1)  : 

NEXT 

I 

FOR  I 

=  1 

TO  7:  READ 

NOUN$(I) :  ~ 

NEXT 

I 

FOR  I 

=  1 

TO  7 

'^^M 

FOR  J 

=  1 

TO  8 

nlH 

PRINT  ADJECTIVE$(J)" 

"NOUN$(I) 

NEXT 

J 

NEXT 

I 

110 


120 

130 

140 
150 
160 
170 
180 

Atari  Version 

180  DATh  :5UPER..ACrE..HrERICW.RAItE 
LITY.  IHTERGhLrCTIC. RELIAEiLE..  FiJOLPR 
110  DATA  PROGRAMS. SOFTWARE. OJriPUTE 
CODE.  LISTIHGS..  nF0Rt1ATirii..mGIC 
120  DIM  AD..ECTISvE$-<S«28>.M0UH$(7*2 
F-t^:  20).- L  1(8).  1-2(7) 
i:^  fW  1=1  TO  8^  READ  TBft^  ADJECT 
*20- 1 9.  U20  )=TEf1PI  ^  Ll(  I  )=LEH<  TEMP:* 

I 

140  FOR'  1=1  TO  ?^F£AO  TEf«- fafrm 
9 .  i^^20  )=TErF*  ■■  L2(  1  )=LEH(  TEMP*  )  ■■  t€X 
150  FOF;  1=1  TO  7 
lh0  FOF;  J-\  TO  8  ■ 
170  PRINT  ADJECTll€$((J-l>*2'0+L(J 
+LKJ))i"  ";httUHt((I-l)*£0+l'(I-l) 
(I)) 

1S0  NEXT  J 
190  HEXT   I 


Every  PET 
Needs  a  Friend. 


CURSOR  is  the  best  friend  your  Commodore  PET  will  ever 
have.  Since  July,  1978  we  have  published  150  of  the  most 
user-friendly  programs  for  the  PET  available  anywhere. 
When  we  write  or  edit  a  program,  we  spend  lots  of  time 
fussing  about  how  it  will  treat  you.  We  pay  attention  to  lots 
of  little  things  that  help  make  using  a  computer  a  pleasure 
instead  of  a  pain. 

Naturally,  CURSOR  programs  are  technically  excellent. 
Each  program  that  we  purchase  is  extensively  edited  or  re- 
written by  a  professional  programmer.  But  imagination  is 
just  as  important  as  being  user-friendly  and  technically 
good!  We  delight  in  bringing  you  off-beat,  unusual 
programs  that  "show  off"  the  abilities  of  your  PET  or  CBM. 
CURSOR  is  user-friendly,  technically  great  and  full  of 
imaginative  programs.  And  every  issue  of  CURSOR  is  still 
available!  We  continue  to  upgrade  previously  published 
programs  so  that  they'll  work  on  the  three  varieties  of 
Commodore  ROM's  (Old,  New,  and  4.0).  New  issues  also 
work  on  the  80  column  CBM. 

For  only  $4.95  you  can  buy  a  sample  issue  and  judge  for 
yourself.  Or  send  S18  for  a  four-issue  subscription.  Each 
CURSOR  comes  to  you  as  a  C-30  cassette  with  five  pro- 
grams and  a  graphic  Front  Cover,  ready  to  tOAD  and 
RUN  on  your  PET. 

Who  knows?  After  your  PET  meets  CURSOR,  things  may 
never  be  the  same! 


AUTMORIZID  DISTRIBUTORS: 


Great  Britain 
AUDIOGENIC,  Lid. 

P.O-  lion  B& 
RfjdrnR.  Berkihii*' 

Hollind 
COPVTRONICS 

Beigt'meesle' 

\'An  Surhtelen^traaT  46 

741 3  XP  Devetiwr 


Upan 

SYSTEMS  FORMUlATf  CORP. 

Sliin-M.ikiihi)llldK  l-fi-17 
Vji-,u   Chuo-kb.  TiAvo  103 
Auslralitia 
MICROCOMPUTER 
HOUS£,  LTD, 
133  Rf  81-nl  itrvct 
Chippendale.  Sydney 
^.5^^    Auilrjiia  3008 


theCODE 
WORKS 

Box  550 

Goleta,  CA  93116 
805-683-1585 


It's  Herel  The  Computer  Strategy 
Game  with  Bounce' 


For: 

Apple 
Atari 

TRS-80 


Have  you  ever 

seen  an  exciting 

action  game  combined 

with  the  intense 

strategy  of  chess, 

bacl<gammon  or  Othello? 

Ricochet... the  first 

abstract  strategy  game  designed 

exclusively  for  the  computer  owner. . . 

is  both.  And  loads  of  fun. 

You  maneuver  your  blocks,  both  to 
protect  your  own  goal  from  attack  and 
to  hit  your  opponent's  goal.  Two  launchers 
to  fire.  Your  shots  ricochet  off  the 
blocks,  earning  you  points  on  the  way 
to  their  targets,  it's  twice  as  challenging 
because  the  position  changes  with  both 
your  own  and  your  opponent's  moves 
and  shots. 

YOU  don't  have  to  play  alone,  either. 
Play  against  any  one  of  four  different 
opponents  (each  a  different  personality) 
inside  your  computer,  or  against 
another  human. 


And  Ricochet  is  truly  competitive , . . if 
you  want  it  to  be.  A  "smart  dock"  lets 
you  put  more  pressure  on  your  opponent 
by  forcing  him  to  play  faster  than  you. 
But  you've  got  to  win  two  out  of  three 
(or  three  out  of  five)  games  to  claim 
victory.  Your  computer  rates  you  after 
each  match,  so  you  can  compare  your 
mastery  of  the  game  with  that  of  other 
players— perfect  for  tournament  play. 
So  perfect  that  MIND  TOYS  and  Automated 
Simulations  are  sponsoring  the  first 
national  Ricochet  tournament.  See  your 
local  dealer  to  find  out  how  you  can 
become  a  regional  or  national  champion. 

Price  $19.95 


Another  Mind  Toy  ifio^'ss's^s.'^^'snv^- 
From  Automated  Simuiations 

■  APPLE,  ATARI  ana  TRS-80  are  traaemarks  Of  Apple  comouter,  inc.  Atari,  inc  and  Tanav  Corp.,  respectively. 
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COMPUTE! 


January.  1982,  Issue  20 


INVEST 

Gregory  R.  Glou 
P.Q  Box  1627 
Prescott.  AZ  86302 


Editors  Note:  Program  1  is  the  Microsoft  version. 
Program  2  contains  the  lines  which  should  he  changed 
to  permit  "INVEST"  to  run  on  the  Atari.  Lines  12000- 
14999  are  the  printer  routine  and  might  need  slight 
modifications  for  different  printers.  For  the  Atari, 
change  all  PRINTs  to  LPRINT  and  remove  the  TAB 
statements.  — RTM 


Other  than  having  a  place  to  live,  there's  only  one 
reason  to  buy  real  estate:  to  make  money. 

INVEST  will  give  you  a  liead  start  if  you're 
considering  this  unique  investment  medium.  It'll 
show  you  how  real  estate  leverage,  inflation,  and 
rent  income  will  all  add  up  to  put  real  cash  into 
your  pocket:  if  you  make  the  right  investment 
decisions. 

And  once  you  find  some  properties  to  consider, 
INVEST  will  detail  the  benefits  to  you,  to  aid  you 
in  making  that  right  decision. 

You  may  have  heard  lots  of  stories  about  real 
estate  —  many  are  true!  —  about  how  you  can  buy 
property  for  little  or  no  cash  down,  and  then  let 
your  wonderful  tenants  pay  for  the  property  for 
you!  About  how  the  government  allows  a  real  tax 
break  for  real  estate  investors  (called  depreciation) 
which  will  put  cold  cash  into  your  pocket  come  tax 
time.  And,  these  days,  depreciation  works  a  double 
advantage  for  us  because,  while  we're  allowed  to 
depreciate  the  property  on  our  tax  returns,  the 
building  is  actually  increasing  in  value  every  day  — 
often  as  much  as  15  or  20%  in  a  year's  time. 

Stocks  and  bonds  and  gold  and  jewelry  simply 
can't  match  this. 

There  are  four  areas  which  give  you  a  return 
on  your  really  investment:  cash  flow,  equity  build- 
up, asset  appreciation,  and  lax  savings. 

The  whole  purpose  of  INVEST  is  to  let  you 
figure,  by  changing  the  data,  exacdy  what  an  in- 
vestment will  do  for  you  and  detail  that  information 
for  all  four  factors  (cash  flow,  appreciation,  etc.). 
Then  it's  your  job  to  find  some  properties  and  use 
INVEST  to  help  you  determine  which  is  the  best 
for  you! 

Learning  The  Vocabulary 

Cashjhw  is  simply  what's  left  after  you  collect  your 
rents  and  then  make  the  payments,  pay  any  ex- 
penses, etc.  For  instance,  if  your  rents  (for,  say,  a 


duplex  you  want  to  buy)  are  §500  per  month, 
you'll  have  a  total  income  of  $6000  per  year  ($500 
per  month  x  12  months). 

If  your  monthly  payments  and  expenses  total 
$400  per  month,  you'll  have  a  yearly  cost  of  $4800 
($400  per  month  x  12  months).  This  will  give  you  a 
positive  cash  flow  of  $  1 200  per  year  ($6000  collected 
less  the  $4800  spent). 

Sometimes,  particularly  with  an  investment 
which  has  a  low  down  payment,  you  could  have  a 
negative  cash  flow.  For  instance,  if  your  payments 
plus  expenses  ran  $7000  per  year,  you'd  be  $1000 
in  the  hole  at  the  end  of  the  year  ($6000  ccjllected 
less  $7000  spent  equals  a  minus  $1000).  This  isn't 
always  bad,  as  we'll  see  in  a  moment. 

Equity  buildup  is  the  second  area  where  you  get 
a  return  on  your  investment.  As  you  make  the 
payments  on  the  property,  part  of  the  payment 
goes  foi-  interest,  and  part  for  principal.  At  the 
start,  this  interest  section  eats  up  most  of  the  pay- 
ment and,  as  time  passes,  the  part  devoted  to  prin- 
cipal gets  larger  and  larger. 

Note  that  this  is  not  cash  which  you'll  get  as 
you  do  when  vou  collect  the  rents.  It's  like  a  savings 
account  —  you'll  get  this  part  of  your  investment 
when  you  sell  the  property,  because  each  part  of 
your  payment  that  goes  against  the  principal  re- 
duces what  you  owe  on  the  property. 

For  instance,  if  you  bought  a  $  1 00,000  fourplex 
with  $10,000  down,  you'd  have  to  borrow  $90,000. 
If  you  sold  it  to  me  tomorrow  for,  say,  $120,000, 
you'd  come  out  of  the  deal  with  a  $20,000  profit, 
right? 

However,  say  you  held  it  for  a  year  and  then 
sold  it  for  the  same  price.  At  the  end  of  the  year, 
your  payments  would  have  reduced  the  amount 
you  owed  on  the  property  —  the  actual  reduction 
would  depend  on  the  interest  rate  and  length  of 
the  loan.  But  let's  say  that  it,  the  principal,  had 
been  reduced  $5,000  over  the  course  of  that  year. 
Now,  you'd  end  up  with  £25,000  (instead  of  the 
$20,000  above)  —  while  the  extra  $5,000  is  not 
profit,  it  does  come  back  to  you,  just  as  if  you'd  put 
it  into  a  savings  account. 
1st  example: 

Selling  price  $120,000 

still  owe  -    90,000 

down  payment      -    tO,000 
cash  20,000   (all  profit) 

2nd  example  (hold  the  property  for  a  year): 


selling  price 
still  owe 


down  payment 
cash 


$120,000 
-85,000 


-10,000 
$  25,000 


remember  —  our  pay- 
ments have  reduced  the 
principal  from  $90,000 
down  to  $85,000 


ft§  time  \biir  Computer 

stopped  just  pk^ng  games 

and  started  doing  some  work  around  the  house! 

Let  Creative  Software's  home  programs  turn  your  ATARI®  or  VIC®  into 
a  really  useful  household  appliance — the  results  may  well  amaze  you! 


TITLE 

ATARI  400/800 

VIC 
(cassette  only) 

•  Household 
Finance 

34.95  cassette 
39.95  disk 

34.95 

•  Home 
Invenlory 

19.95  cassette 
24.95  disk 

14,95 

•  Car  Costs 

19.96  cassette 
24.95  disk 

14.95 

CREATIVE 
SOFTWARE 


201  San  Anionjo  Circle.  #270 
Mountain  View,  CA  MOW 
(415)  948-9595 


Ask    about    our   many    other   recreational   and   home    applications.' 

TO  OHDKR;  VIS.A  MiistciCard,  check  or  money  ardt-r  accepted.  If 
charge,  please  itKJiide  expiration  dale  ol  card.  Add  S  1.50  for  shipping  and 
handling.  Calil.  residents  add  sidc.s  ta.N. 


4it2< 


The  national  phone  book  of  computing 


$7.50 


-the    ^ 

Computerist's  Directory 


^m3 


"Let  your 
fingers 
do  the 
talking"  :s.-^==^^ 


^*.*%  ^^  ©-*  o\  ^        lis  ^ 


<^°y!.M  ^.c'- 


Computerist's  Directory 

PC  BOX  405 

FORESTVILLE,  CA  95436 
(707)887-1857 
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Of  this,  $20,000  is  your  profit  and  $5,000  represents 
a  return  to  you  of  your  equity  jusl  as  if  you'd  saved 
this  money  in  a  hank.  And  each  payment  you  make 
(actually  it's  those  wonderful  tenants  who  make  the 
payments  for  you,  right?)  increases  the  equity, 
your  ownership,  in  the  property. 

The  third  way  you  get  a  return  on  your  invest- 
ment is  through  asset  ttjypreciation.  This  is  the  amount 
a  building  increases  in  vahie  becatise  of  rising 
prices,  inflation.  In  many  cases  in  recent  years, 
income  property  has  gone  up  in  \a\ue  faster  than 
the  rate  of  inflation. 

And,  as  )ou  may  aheady  know,  there  are  two 
types  of  inflation:  nwrwrt/ inflation  -And  forced  infla- 
tion. But  even  if  normal  inflation  slows  down  — 
and  cton't  bet  that  it  will- — you  can  use  forced  inflation 
...  fixing  up  a  property  to  make  it  rent  for  more, 
thus  making  it  worth  more. 

Perhaps  you  could  buy  a  properly  for,  say, 
$65,000  and  with  some  paint  and  carpeting  and 
cleaning/^jovfl.wits  value  to  175,000.  And,ofcotnse, 
you  can  always  combine  the  two  types  of  inflation, 
and  really  increase  the  return  on  your  investment. 

Finally,  lax  savinirs  is  the  fourth  method  of 
return  on  a  real  estate  investment.  Tax  savings 
stems  from  depreciation,  the  concept  that  every- 
thing wears  out  and  thus,  at  some  time  in  the  future, 
it  will  have  to  be  replaced.  The  Congress  of  the  US 
has  rec<jgni7.ed  this  fact,  particularly  in  regard  to 
investment  real  estate,  and  allows  the  owner  of 
such  property  to  depreciate  a  part  of  the  building 
and  of  its  contents  each  year  (just  as  if  he  took  X 
amount  of  cash  and  piu  it  into  a  bank)  to  help  pay 
for  the  replacement  cost  of  the  building  or 
contents. 

Depreciation  is  based  on  what  accountants  call 
"useful"  life,  and  varies  on  a  building  with  its  age, 
condition,  etc.  An  old  building  might  have  a  "useful 
lite"  of  onlv  10  or  12  years,  while  a  ncnv  structure 
might  be  expected  to  last  SO  )ears. 

The  actual  length  for  depreciation  for  any 
])articular  property  must  be  determined  hy  your 
accountant. 

Obviously,  the  shorter  the  "useful  life,"  the 
more  depreciation  you  can  take  per  year,  and  the 
more  the  tax  savings  will  be. 

For  instance,  let's  picture  that  you  bought  {or 
want  to  buy)  a  triplex  which  will  co.st  you  SI 00,000. 
First,  we  have  to  deduct  the  value  of  the  land  — 
land  cannot  he  depreciated,  it  doesn't  wear  out. 
Let's  say  that  yoti  tlgtire,  from  tax  records  and 
property  comparisons,  that  the  land  value  is  about 
159f  of  the  total  purchase  price.  This  means  the 
land  cost  was  $  1 5,000  ( 1 59?  of  S 1 00,000).  Deducting 
this  from  the  purchase  price  of  $100,000,  you  now 
have  S85.000  left. 

Now,  the  carpeting  drapes,  appliances,  and  so 


on  will  wear  out  faster  than  the  building,  so  you're 
allowed  a  faster  rate  of  depreciation  on  these  items. 
Again,  a.sfi  your  accountant.  In  INVEST,  we  figure 
that  about  half  the  value  of  the  furnishings  arc  in 
items  that  have  a  three  year  "useful  Hfe"  for  depre- 
ciation, and  then  about  half  the  value  is  in  items 
that  would  have  a  seven  year  "useful  life,"  so  we've 
taken  them  and  lumped  them  together,  and  figured 
an  average  of  a  five  year  useful  life. 

In  this  example,  if  you  have  furnishings  worth 
5%  of  the  value  of  the  property,  you'd  have  fur- 
nishings worth  $5,000  {5%  of  $  100,000). 

So,  you  deduct  the  value  of  the  ftnnishings 
($5,000)  from  the  net  property  value  (after  the 
land  has  been  removed)  of  $85,000,  which  gives 
you  a  net  building  value  of  $80,000. 

Let's  further  assume  that  your  accountant  tells 
you  that  this  building  has  a  "u.seful  life"  of  20 
years. 

Now,  to  figure  the  depreciation:  you  have  an 
$80,000  building,  with  a  life  of  20  years... you  .simply 
divide  the  value  by  the  years,  to  get  a  per-year 
amount  for  depreciation.  $80,000  divided  by  20 
years  equals  $4,000  per  year.  This  is  the  amount  of 
depreciation  per  year  allowed  on  this  building. 

IN'VEST  takes  things  a  step  farther,  by  asking 
you  how  many  months  this  year  yoti'll  own  this 
properly.  It  will  then  give  you  two  displays  and 
printouts  —  one  for  this  year,  the  luimber  of  months 
you'll  own  the  property,  and  then  for  next  year, 
which  is  figured  at  a  full  twelve  months.  Obviously, 
if  you're  buying  the  building  in  June,  you  wouldn't 
own  it  for  a  full  year,  so  INVEST  automatically  will 
calculalc  the  exact  depreciation  (and  tax  savings) 
for  the  part  of  the  year  you'll  actually  own  the 
properly. 

Added  to  the  building  depreciation  is  the 
depreciation  you're  allowed  on  its  contents.  Re- 
memlx-r  that  we  had  $5,000  worth  of  carpeting, 
drapes,  appliances,  and  so  on,  We're  using  an 
"average  useful  life"  of  five  years,  so  we  divide  the 
amount  of  $5,000  by  five  years,  for  an  allowable 
depreciation  of  $1,000  jaer  year  on  the  building's 
contents. 

Total  depreciation,  then,  is  the  building  depreci- 
ation of  $4,000  per  year  plus  the  contents  depreci- 
ation of  $1,000  ...  for  a  total  of  $5,000  per  year. 

The  Tax  Savings 

This  is  the  amount  you  can  deduct  from  your 
incoiTie  tax.  'fo  figure  your  tax  savings  (how  much 
less  you'll  have  to  pay  in  taxes,  or  how  much  cash 
they'll  send  back  to  you),  multiply  your  tax  bracket 
by  the  amount  of  depreciation. 

For  example,  if  you're  in  the  30%  tax  bracket, 
you'd  save  30%  of  $5,000  depreciation,  or  $  1 ,500 
on  \-our  taxes. 


A 

Wooden 

Computer? 


Not  from  Commodore! 

So  why  should  the  desk  look  like  wood?  A  pleasant 
cream  and  charcoal  trimmed  desk  looks  so  much  belter 
with  Commodore  systems.  One  look  and  you'll  see. 
Interlink  desks  are  right.  By  design. 

The  specifications  only  confirm  tfie  obvious: 


•Cream  and  charcoal 
color  beautifully  matches 
the  Commodore  hardware 
and  blends  with  your 
decor. 

•An  ideal  710  mm  (28") 
keyboard  height  yet  no 
bumping  knees  because  a 
clever  cutout  recesses  the 
computer  Into  the  desk- 
top. 

•High  pressure  laminate 
on  both  sides  of  a  solid 
core  for  lasting  beauty 
and  strength. 
•Electrostatically  applied 
baked  enamel  finish  on 
welded  steel  legs  — no 
cheap  lacquer  job  here. 


•T-molding    and    rounded 
corners  make  a  handsome 
finish  on  a  durable  edge 
that  won't  chip. 
•Knocked  down  for  safe, 
inexpensive  shipment. 
•Patented  slip  joints   for 
quick  easy  assembly. 
•Leveling      glides      for 
uneven  floors. 
•Room     enough    for    a 
Commodore  printer  on  the 
desk,  yet  fits  into  nearly 
any  den  or  office  niche— 
H:  660  mm  (26")  W:  1170 
mm  (46")  D:  660  mm  (26"). 
•Matching   printer  stand 
available    with    slot    for 
bottom  feeding. 


Price:  $299 

In  short,  as  Commodore  dealers,  we  won't  settle  for 
anything  that  looks  good  only  in  the  catalogi  Our 
customers  won't  let  us.  They  don't  buy  pictures  And 
neither  should  you.  This  is  why  we  will  let  you  use  one  of 
our  desks  for  a  week  and  then  decide.  If  for  any  reason 
you  don't  like  it,  just  return  It  in  good  condition  for  a 
cheerful  refund. 


H  your  Commodore  dealer  doesn't  carry  our  desks  yet 
'aldl  °  *^^"^'' '°'  '^"  ""*'  *°  *'"  *'''P  ^"""^  ^**'*  *^*'0^' 

Name 

Address 

City St_ 


-Zlp_ 


Interlink,  Inc.,  Box  134,  Berrien  Springs,  Ml  49103 
Master  Charge  and  Visa  welcome.  Call  our  order  line- 
616-473-3103 


CONNEa 

Your  Commodore  PET/CBM,  HP-85,  Osborne-1  to  any 
RS-232  Serial  Printer,  Plotter,  CRT  Terminal,  Modem,  or  other 
device 


TNW.2000 


TNW-1000g^Jp^uS^^ $129 

TNW-2000  f:^S"^ ......,.$229 

TkllA/  O-aOn    ^°  CHANNELS  INPUT/OUTPUT  A«  *« 

■  1^"    X.9XM    +  RS-232  Control  Sisnals  9^07 

TNW-1 03    f^wr ^r^°  .',^ $389 

All  units  are  addressable  IEEE-488  devices.  Comes  complete  with 
cabinet,  documentation,  one  year  warranty.  Brochure  available 
other  products. 

Tim 

CORPORATION 

3444  Hancock  St.,  Dept.  C,  San  Diego,  CA92110 
(714)296-2115     TWX  910-335-1194 

VISA/Masterctarge  Welcome  •  Dealer  inquiries  invited 


HAVE  YOQR  CAKE 
AND  EAT  IT  TOO 


ITS  A  PIECE  OF  CAKE  TO  CONNECT  AN  ^  UW 
TRIX 1  INTERFACE  TO  YOUR  OUVETTl  PRAXIS  30 

R?l^,9,9?r-^^"Q  ELECTRONIC  TYPEWRTTER. 
DAISY  WHEEL  QUALTTY  AT  DOT  MATRIX  PRICESi 


•  10+  CPS 

•  ISMINOTEIMSTALLATIOM 

•  HALF  SPACE  JUSTinCATIOM 

•  CABLE  REMOVES  in  SECONDS 

•  TYPEWRITER  FOrfCT.  UMIMPAIRED 

•  AVAILABLE  MOW:  ATARI  DAPPLE 

•  OTHER  DtfiECrcOMriECTIOMS 
AND  RS232  A  VAIL>\BLE  SOON 

ftHex 


•  PRINT  AND  PRINT  'W  OPERATE 

•  MO  INTERFACE  NEEDED- 

HiH  E?g,"T  COMMECTOR  .ATARI 
USES  CONTROLLER  PLUG  -APPLE 

•  PRICE:  »2I5- APPLE  ADD  $10 
tBASED  ON  WARDS  PR30  PRICE 

•  TYPEWRfTER  AND  SERVICE 
WIDELY  AVAILABLE 


1 2225  SW  2nd  /SaiTE  200  -E 
P.O.B.  CCC 
BEAVERTON,  OR  97075 
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It's  important  to  note  that  these  savings  —  tax 
savings  —  return  to  you  in  the  form  of  cash,  either 
in  a  tax  refund  or  because  vou  will  pav  less  in  taxes 
ihan  vou  would  have  had  to  without  them,  as 
compared  to  I'Cjuity  buildup  and  asset  apprcriation, 
whicli  return  to  vour  wallet  only  when  you  sell 
die  property. 

In  fact,  the  tax  savings  are  often  enough  to 
offset  any  negative  cash  flow  you  might  have  Irom 
a  propcrtv-  So,  while  you  might  have  $100  a  month 
in  negative  cash  flow,  perhaps  at  the  end  ol  the 
vear  voull  get  back  tliat  cash,  just  as  if  you'd  saved 
it  in  a  bank  every  month! 

INVEST  will  show  vou  exactly  what  your 
results  will  be. 

So,  the.se  are  the  four  vital  areas  we  need  to 
consider  for  anv  real  estate  investment:  cash  flow, 
equity  buildup,  asset  ap])reciation,  and  tax  savings. 

"INVESl  "  will  not  only  show  you  what  each 
item  will  do,  based  on  yotu-  own  data,  but  will  also 
summarize  and  total  them,  compare  them  U)  your 
clown  pavment,  and  provide  you  witli  a  return  on 
vour  investment  percentage. 

And  this,  yovw  riHurn  on  iiivt'.slmrnl.  is  rcall\'  the 
important  figure  for  any  investment  program.  All 
the  various  parts  of  any  investment,  such  as  the 
real  estate  we've  been  examining  here,  are  com- 
bined in  this  figure. 

It's  fascinating  to  see  tliis  in  action,  l)ecau.se 
many  of  us  think  in  terms  of  savings  accounts 
(perhaps  5  or  69c  on  our  money)  ...  or  cerdficates 
of  deposit  {perhaps  I47r)  ...  or  stocks  (what  will  the 
market  do  tomorrow?)  ...  or  limited  edition  prints 
(nice  to  hang  on  the  wall,  but  who  can  we  sell  it  to?) 
...  or  money  market  accounts  (10  or  12%)  ...  and 
when  you  see  what  real  estate  can  do  for  you  —  even 
a  small  duplex  or  trijilex  —  you  will  be  astonished. 

Using  INVEST 

Once  you  get  a  printout  of  a  specific  set  ot  data, 
the  program  will  automatically  end.  Up  to  that 
point  —  before  you  ask  for  a  printout  —  you  can 
alter  any  data  any  number  of  dmes,  to  display- 
cliff  erent  results.  Then,  when  you  have  the  display 
you  want,  you  can  request  a  hard  copy. 

There's  a  delay  at  the  end  of  page  two  of  the 
instructions:  while  you're  reading  them,  your 
computer  is  reading  array  information  into  its 
RAM.  We're  using  three  double-dimension  arrays: 

Q  is  the  infoi  ination  used  to  get  your  monthly 
payment.  The  program  will  multiply  the  amount 
of  vour  loan(s)  by  the  proper  monthly  figure,  to 
an'ive  at  a  montl'ily  payment.  You  can  input  up  to 
3  loans,  for  15,  20  or  25  years,  and  at  interest  rates 
from  107c  to  189?,  in  .5%  steps.  Then  "INVES  T" 
will  total  the  pavment,  display  it,  and  let  you  change 
the  amount,  if  you  wish  to.  This  situation  might 


occur  if  you  happen  to  be  assuming  an  old  k^an,  at 
le.ss  than  10%  — you  can  answer  1()%,  and  then 
change  the  payment  total  to  match  your  correct 
figine. 

El  ...  is  the  array  with  the  figures  for  the  first-year 

equity  buildup. 

E2  ...  is  the  array  for  the  second-year  equity  buildup. 

Two  ai  rays  are  used  here  because  the  equity  l:>uild- 
up  is  different  for  each  year  —  you  will  pay  waif  on 
the  principal  of  your  loan  during  the  second  vear 
than  you  did  the  first.  The  actual  multipliers  are 
based  on  the  length  and  terms  of  your  loan  —  a 
loan  at  10%  for  15  vcars  will  have  a  much  faster 
and  higher  equity  buildup  than  one  at  16%  for 
25  years. 

Total  rents  are  just  that  —  if  the  property 
you're  considering  is  a  fourpfcx.  input  total  rents 
from  all  units. 

If  vou  rlon't  know  the  actual  amoimt  of  taxes 
and  insurance,  or  expenses,  use  voiu'  best  eslimale. 

Your  accountant  will  know  your  approximate 
lax  bracket,  or  vou  can  check  the  tables  on  form 
1 0-10,  or  look  back  at  your  latest  tax  relut  ii. 

When  you're  asked  to  input  payment  informa- 
tion, vou  must  input  something —  if  you  skip 
around  and  just  put  the  payment  amount  in  (with- 
out the  interest  rate  or  length  of  the  loan),  you 
won't  get  credit  for  any  ec]uity  btiiidu]]  —  the  com- 
puter just  can't  tell  what  ec]uity  buildup  will  actually 
be  hi'tScr  than  what's  shown. 

Following  is  a  list  of  the  major  variables  u.sed 
in  INVTS  r.  i  here  are  others  used  mathematically, 
so  if  you  change  the  program,  please  read  through  it 
to  make  sure  you  don't  use  something  aheadv  used. 

Table  1. 
INVEST 
Major  variables: 

E$     ...  date 

AS     .  .  -  property  address 

Ml$    ..  misc.  information  (1) 

M2$    .  .  misc.  information  (2) 

PR    ...  asking/purchasepriceof  the  property 

L     ....  estimated  life  for  depreciation 

A     . .  .  .  7i  estimated  annual  asset  appreciation 

R     .  .  ,  .  current  rents 

AR    .  .  .  anticipated  rents 

M    ....  months  ofownership  this  year 

T     ....  estimated  taxes  and  insurance  per  month 

E     ....  estimated  expenses  per  month 

V     ....  %  land  value  (as  a  percent  of  the  price) 

B     ....  the  tax  bracket  you're  in 

DP    .  -  .  down  payment  amount 

F     ....  %  furnishing's  value  (%  of  the  price) 

Fl      ...  first  year  cash  flow 

F2     ...  second  year  cash  flow  {full  year) 

EB    .  .  .  equity  buildup,  first  year 

ET    ...  equity  buildup,  second  year 

A5    ...  asset  appreciation,  first  year 

A 6     ...  asset  appreciation,  second  year 
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GAMES 

Goiden  Mounlain 

i19  9=  no- 

t1*.»* 

space  Eggs 

S29  95  ni™ 

«l«.*« 

Apple-  Panic 

S29  95  now 

$!«.•« 

Thiel 

529  95  no. 

$as.i« 

Snack  Attach 

S29  95  no- 

$as.i« 

Med  Fly  Mama 

S29  95  no- 

$3«.» 

The  Book 

619  95  nii» 

SII.M 

Hi-Res  Soccer 

S29  95n<H. 

$1S.1« 

Apple '-Olds 

529  95  no. 

$1S.1* 

Wurst  of  Huntington  Computing 

,.$l«.*« 

UMima 

"'S39  95  ™- 

$i3.a* 

Auio6aHn 

S29  95  m» 

$».3« 

Battle  Cruiser  Action 

544  95  now 

$!•.•« 

Gorgon 

S39  95  now 

$I3.S« 

Super  Stellar  Trek 

539  95  rK>». 

$13.S« 

Heiilire  Warrior 

S39  95  now 

(».*« 

Gamrrla  Goblms 

539  95  .»- 

$3S.]« 

Mission  Asteroid 

S1995.»- 

$1T.*« 

Wizarflry 

S49  95  now 

**ijn 

Warp  Factor 

S39  95  now 

«33.n 

Microsoft  Adventure 

S29  95  mn. 

S3S.3* 

Wizara  and  tre  Princess 

532,95  .»-. 

S3S.V9 

Flignt  Simulator 

534  95  .Kw 

$3«J«« 

Ooyssey 

529  95  now 

tlS.I* 

Sargon  II 

534  95  now 

$a«.** 

Space  Eggs 

S29  95i»w 

$3S.3* 

Hi-nes  Cribbage 

S24  95«i« 

$3  I.I* 

Lords  ot  Karma  {cass  i 

520  00  no. 

$!*.*« 

Oh  Shoot 

now 

$!».•• 

ABM 

524  95  now 

$11.1* 

Computer  Conflict 

539  95  now 

t3S.*9 

Computer  Air  Cofiidai 

S59  95  now 

$11.  *« 

Temple  of  Apshai 

53995  „o« 

$33.S« 

Zork 

S39  95  now 

$13.«« 

All  Nibble  SoflwBfe 

.1S<Kaff  list 

HoDotWars 

539  95  now 

$33.** 

Cranston  Manor 

534  95  now 

$3*.** 

Dragon  s  Eye              

524  95  r»Ow 

$31.1* 

Twala  s  Last  Redoubt 

.     529  95  now 

524  95  now 

$3S.3* 

Snoggle                      

$21.1* 

Alien  Ram 

524  95  now 

$31.1* 

Alien  Typhoon 

S24  95  now 

$31.1* 

Raster  Biastei 

629  95  now 

$3S.3« 

Creature  Venture 

524  95  now 

$31.1* 

Hodge  Podge 

523  95  now 

$31.3* 

Meteoroids  in  Space 

519.95  now 

$1*.** 

Dragon  Fire 

549  95  no. 

$41.4* 

(MISCELLANEOUS 

Escape  Irom  Aclurus 

529,95  now 

$as.i* 

Basic  Mailer                            ,   , 

569,95  no- 

$S*.49 

Memory  Management  h         

,549,95  now 

$43.a« 

Castle  Woifensteiii        

,529,95  now 

$13.39 

Upper  Reaches  ot  Apshai 

,619,95  now 

$1*.&« 

Bridge  Tutor 

539  95  now 

$3».l* 

PASCAL  Animalion  Toots    

.  .$«5.«9 

Hand  Holding  BASIC  

.  .$a«.*« 

Crossfire 

"  52995  now' 

$3*.a* 

Epoch 

529  95  now 

$as.3v 

Outpost 

529  95  now 

$a*.3* 

Ulysses 

S34  95  now 

$1*.** 

Space  Quark 

$29  95  now 

$13.3* 

Beneath  Apple  DOS  (book) 

519  95  now 

$I*.S* 

Binh  ol  the  Phoenm 

514  95  now 

$ia.«« 

Goblins 

52  7  so  now 

$33.3* 

Painter  Power 

539  95  now 

$33.a* 

U  S  Constilulion 

329  95  now 

$1S.3* 

Merger 

549  95  now 

$•3.4* 

Suoer  Stellar  Trek 
LISA 

639  95  now 

$33.S* 

S79  95  now 

$«T.S* 

VPiotiYuccipa) 

529  95  now 

$1S.3« 

VSiat 

529  95  now 

$33.3* 

V-Prinl 

529  95  now 

$13.3* 

Brain  Surgeon 

549  95  now 

$43.49 

Into  Master 

5150  00  no- 

$117.49 

Waterloo  II 

549  95  now 

$41.39 

Speedstar 

S139  95  now 

$II4.*« 

KavesofKarkhan 

549  95  no. 

$41.3* 

Cos  Boss 

524  00  now 

$10.3* 

WOnO  PROCESSORS 

Apple     Writer 

$*S.*« 

Magic  Window 

5100  00  no. 

$•4.** 

Easy  Writer  Prolessionai 

5250  00  no. 

$ai*.a« 

Lener  Penect 

5150  00  nm 

$137.4* 

Super  Text 

5150  00  nw 

$I37j4* 

Superscribe 

5129  95  now 

$iia.i« 

Eiecutive^Secretarv 

5250  00  now 

(aia^** 

Apple-  Wordstar 

5375  00  now 

$au.«o 

Hebrew  II 

560  00  now 

$$«.** 

Apple-  Writer  Entended 

529  95  no. 

$».3* 

ONE  OF  THE  WORLD'S  LARGEST  INVENTORIES 

Softlights 

By  Fred  Huntington 

More  and  more  fantastic  things 
are  becoming  available  for  the  Ap- 
ple". We  just  received  one  of  my 
favorites  -  the  Passport  Designs 
SOUNDCHASER  Computer  Mu- 
sic System.  It's  easy  to  set  up  and 
an  absolute  blast  to  play  with. 

Price  is  S650  for  the  keyboard  and 
$350  for  each  synthesizer  board. 

We  recommend  two  boards. 
When  you  buy  the  complete  system, 
we  will  give  you  SI  00  worth  of  free 
software  (your  choice  from  our  cur- 
rent catalog). 

Having  worked  my  way  through 
college  playing  in  a  small  band,  I 
keep  thinking  how  great  my  group 
would  have  sounded  if  we  had  had 
the  Passport  Designs  setup. 

You  can  actually  record  a  song 
and  then  play  it  back  and  even  play 
along  with  it  -  no  tapes  or  accessing 
the  disk.  You  have  to  see  it  (and 
hear  it)  to  believe  it.  Five  stars! 
HARD  DISK 

We're  now  official  dealers  for 
Nestar.  We  think  the  Nestar  system 
is  so  great,  we've  adopted  it  for  In- 
house  use.  We  have  four  Apples 
hooked  up  to  a  16  Megabyte  disk. 
This  allows  us  to  have  several 
people  processing  orders  at  the 
same  time,  all  working  off  the  same 
inventory  disk. 

Our  system  has  the  capability  of 
expanding  to  64  Apples  hooked  up 
together. 

And,  by  the  time  you  read  this, 
CP/W  {a  registered  trade  mark  of 
Digital  Research)  should  be  avail- 
able for  the  system. 

Call  for  more  information. 


STOCK  PBOGRAMS 


COMING  SOON! 

California  Toil-Free  Number 

800-692>4143 


Call  Toil-Free  800-344-41 1 1 


HUNTINGTON  COMPUTING 

Post  Office  Box  1235 
Corcoran,  Calilorma  93212 

Order  by  Phone  800-344-41 1 1 
In  California  (209)  992-541 1 
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Portlolio  Master 

575  00  now 

$t3.«« 

Marine!  Chaner 

5129  95  no- 

t1 10,39 

Dowlog  loi  Market  Ctianer 

599  95  now 

$«*.*9 

Investment  Decisions 

599  95  no« 

tM<*« 

Stock  Tracker 

SI 90  00  now 

$1«1.4« 

Slock  TiackenAjto  ver  i 

S300  00  now 

$3S4.9« 

BUSINESS  APPLICATIONS 

Invoice  Factcry  tSpeciat) 

S2Q0  00  now 

$149.0e 

Regression  Trena  Analysis 

526  9s  no. 

$ii.a9 

Multiple  Regression 

529  95  no- 

$15.39 

Microsoft  Fontan 

S200  00nG, 

$T4S.*9 

Microsotl  CoOoiaO 

S750  00  now 

$*3T.49 

Business  Pac  100 

S99  95  now 

$•4.99 

Desktop  Plan  It 

S200  00  now 

$149.99 

Visicalc  3  2  Special 

5200  00  ™w 

$149.00 

Visiptoi 

S1?9  95  now 

$IS3.«9 

Visitrena/Visiplot 

S259  95  no. 

$310.I9 

Visiterm 

;i49  95  no. 

$117.39 

Complete  Mailing  lAvani-Gatdei 

559  95  no. 

$sa.a9 

DB  Master 

5229  95  no- 

$t9«.$9 

PFS 

595  00  no. 

$sa.$9 

PFSRepon 

SSSOOno. 

$40.49 

Daia  Factofy 

5150  00  no. 

$114.00 

TtiinKer 

5d95  00  m>. 

$41«.»9 

Request 

S225  00  no. 

$191.19 

Super  Kiam 

5176  00  no. 

$i4a.»9 

ASCIJ  E«press 

599  95  no. 

$44.99 

BPI  Accounts  ReceivaWe 

S395  00  no- 

$31S.«« 

BPI  General  Ledger 

sags  00  no. 

$333.69 

Trie  Mail  Room 

S29  95  now 

$15.39 

Coniinentai  General  Leoger 

S250  00  no. 

$11U9 

Coni  Accounts  Receivable 

S250  00  no- 

$lllJ*9 

Com  Accounts  Payable 

5250  00  ™. 

$111.49 

Continental  Payroll 

S250  00  now 

$11ij(9 

Biotiertjund  Payroll 

S39S  00  now 

$135.49 

Intormer  II 

549  95  now 

$41.49 

Creative  Financing 

5150  00™. 

$117  Jl9 

Real  Eslate  Analyier 

SlSOOOno. 

$117.49 

Accounting  Assistant  (cass.) 

S7  95  ™« 

$6.89 

Spell  Star 

5250  00  now 

$111.49 

Muse  Form  Letter 

5100  00  no. 

$■4.99 

Propeny  Managemeni  System 

S22S  00  no- 

$191.19 

PERSONA  L/HOME 

Inletlutte  (disk) 

Sis  95  now 

$14.99 

Handwriting  Analysis 

519  95  no. 

$14.49 

Decision  Master 

S29  95  no. 

$15.39 

TheCorresponflent 

EJ4  95  no. 

$ia.l9 

Oiet  Planning 

524  96  now 

$11.19 

Win  at  me  Races 

S39  95  now 

$33.49 

Pro  Football  1  SDL)    . 

526.95  no- 

$11.49 

College  Football  (SDL) 

526  95  now 

$31.49 

Grocery  List 

S19  95oo. 

$14.89 

Financial    Management    System 

II    539  95  now 

$33.49 

Home  Money  Minder      , 

S34  95  no. 

$19.49 

MISCELLANEOUS 

D  C  Hayos  Mtcromodem 

S375  00/IO. 

$199.M 

D  C  Hayes  Smart  Modem 

,5279  00  now 

$349,04 

460G  Paper  Tiger 

$1094  00  now 

$9*1.99 

56QG  Paper  Tiger 

S1394  DO  now 

1115.00 

Tjger  Trax                        ,        . 

Sl6  9Snow 

$15.15 

Z-80  Sotlcard 

,5395  00  no. 

$199.00 

NEC  12    Green  on  Black 

,5260  00  now 

$lO9.0O 

VideiBO-col 

5350  00  now 

$199.00 

TG  Ji3y5tick 

S59  95  now 

$50.49 

TG  Game  PaOOIes 

539  95  no. 

$33.49 

Paymaf  LCA  Rev.  7 

$19.49 

Don  1  Book 

Sa  95  now 

$4.05 

Dragon  Fire 

S49  95  no. 

$41.49 

Hungry  Soy 

524  95  now 

$11.19 

Hing  ol  Saturn 

539  00  now 

$33.4* 

Streets  ol  tne  City  &  Trucker 

$24  95  no. 

$11.19 

Race  lor  Midnight 

529  95  no. 

$11.39 

Galactic  Empire 

S24  95  no. 

$11,99 

Space  Wainor 

524  95  no- 

$11.19 

Pulsar  II 

529  95  no- 

$15.39 

Star  Cruiser 

S24  95no- 

$10.99 

Both  Barrels 

524  95  now 

$11.49 

Cyber  Stnhe 

S39  96  no- 

$34.99 

Pt^anlom  5 

S29  95  no. 

$35.39 

Memorex  Disks 

iafa«'$34.*« 

Verbatim  Oataiile- plain  w/fiuPs 

Oysans 

Flipsort  Boji 

10  far  $17.99 

10«>r$4f.*9 

Scoicn  Disk  Cieanei 

529  95  no. 

$14.99 

EZPon 

Atari  vTRS-ao-.  Pet- 

524  94  no. 

Write  «*rlirfM 

$31.19 

(Outside  Caiifornja) 


B 

0 

^^m  -■- ■■ ...«    ^>-vw^   u..«b    w-r   I    I  ^^^H^^^w  ^aiaru^j    r  i,n.c3  :>uu;trc*  lU  [.iidiiye  ^H 


Apple'  IS  a  registered  trademark o(  Apple  Computer  Inc 
Pel  ■  IS  a  registered  Irademark  ol  Commodore 
TRS-80  •  IS  a  registered  Irademarli  ol  Tandy  Corp 
Alan  ■  15  a  registered  Irademark  of  Alan,  Inc 


We  lake  MasterCard  or  VISA  (Include  card 
•  ana  expiration  date)  California  residents 
add  6°o  lax  Include  S200  lor  postage 
Foreign  and  hardware  extra  Send  (or  free 
catalog  Prices  sub/ectlo  change 
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COMPUTC! 


January.  1982.  Issue  20 


Figure  1:  Sample  Run 


PROPERTV  RNRLVSIS  REPORT  FOR  R  SRMPLE  FOURPLt; 
*:+::+:  PREPRRED  FOR  COMPUTE  I  MRGRZINE  ■*■■'+■■■■*■■ 
RSK I  NG.-'OFF  ER I  r-4Q  PR  I  CE  lOO..  OOO.  00 


HRSH  FLOU  ESTIMRTE..  BRSED  ON  OWNING  THIS  PROPERTV  FOR  €.    MONTHS 

THE  FIRST  VERR..  12  MONTHS  THE  SECOND  VERR.   FIRST  VERR  CRSH  _FLOU 

BRSED  ON  CURRENT  RENTS  OF  1.208  MONTHLY..  RND  THE  2ND  VERR  IS  BRSED  ON 

RNTICIPRTED  REfJTS  OF  1.2B0  PER  MONTH.   ESTIMRTEED 
RPPRECinTION  IS  8  ?•;. 


RLL  FIGURES  RRE  RPPROXIMRTE 


MONTHLY  RENTS 

MORTQRGE  PRYMENTS 
TRXES  +  INSURRNCE 
MISC.   EXPENSES 

ESTIMATED  CRSH  FLOIJ 


■1ST  VERR 

7200.  80 

?3j:S.  01 
240.  00 

300.  00 

-673.  01 


2rJD  'r'ERR 
15.'  600.  00 

14..  67€..  01 
480.  GO 
600.  GO 

-156.  01 


RETURN  ON  INVESTMENT  RNRLVblS 


1ST  VERR 


2ND  VERR 


CRSH  FLOl.4  CFROM  FiE;0''.''E  > 
RSSET  RPPREC I RT I  ON 

euju  I  TV  BU I  LDiJF'   k  rppro;-::  I  MRTE  ::■ 

YOUR  ESTIMRTED  TRX  SRVINGS  RRE 
BASED  ON  R  Tf\>i    EiRRCKET  OF  j:G  K 
RND  R  LIFE  FOR  DEPRECIRTION 
OF  20  YERRS.   DEPRECIRTION 
THE  FIRST  VERR  IS  2500  RND 
THE  2ND  YEAR  IS  5000 
THE  FURNISHINGS  RRE  WORTH  5 
r-;  OF  THE  PROPERTV  COST. 

TB^^:  SAVINGS 

YOUR  RETURN  ON  INVESTMENT  IS 

VnUR  DOWN  PRYMENT  WAS  *  18000 
YOUR  :■;  RETURN  ON  INVESTMENT  IS 


-673.  01 

4000.    00 

242.  21 


750.  00 
4314.  20 

43.  14 


-156.  01 
3000.  00 

iKT  .•"  "?        C*  i^ 


1500, 

00 

% 







9911. 

S5 

99. 

12 

:-; 

Program  1. 

4  GOSUB2L000 

5  GOSUB17000 

7  REM  PAYMENT  PERCENTAGE  FIGURES 
ARE  HERE 


8  REM  TO  GET  THE  MONTHLY  PAYMENT, 

MULTIPLY  THE 

9  REM  AMOUNT  OF  THE  LOAN  BY  THE  F 

IGURE. 


DR. 

DALEY'S 

SOFTWARE 

Software  with  a  difference. 

THE  MAIL  LIST 

A  Proven  Performer 

Proven  Performance  with  The  Mail  List  is  now  in 
use  by  many  satisfied  customers. 

It  has  been  nearly  two  years  since  the  first  version 
of  The  Mail  List  was  introduced.  Only  the  BEST 
software  will  stand  this  test  of  time. 

The  Mail  List  has  been  specially  designed  to  be 
used  by  the  novice  computer  operator.  All  opera- 
tions in  the  system  are  menu  driven  with  built  in  user 
protection.  This  insures  that  you  can  have  hassle 
free  and  error  free  operation. 

Why  waste  time  with  other  inferior  mailing  lists? 
Compare  these  features: 

1.  User  defined  data  structures.  You  are  the  best 
judge  of  how  your  files  should  be  organized.  DR. 
DALEY'S  mailing  list  package  is  unique  in  this 
feature.  With  The  Mail  List  you  can  divide  each 
record  to  suit  your  needs. 

2.  User  defined  label  format.  You  can  print  from 
one  to  eight  labels  across  and  up  to  10  lines  per 
label. 

3.  Interface  to  WordPro  3  or  4. 

4.  Fast  and  easy  input  and  editing. 

5.  Easy  to  use  'wild  card'  sorting.  This  will  allow 
searches  through  the  file  using  up  to  3  fields. 

6.  Multiple  disk  files.  Maximum  capacity  is  80  disks 
per  file. 

This  powerful  package  comes  on  diskette  with 
nearly  100  pages  of  documentation.  It  is  packaged 
in  an  attractive  binder. 

When  ordering  please  specify  the  version  you  are 
ordering.  It  is  available  for  the  following  systems: 
Version  4.4  $159.95 

(Any  computer  with  Commodore  BASIC  4.0  and 
32K  memory  with  the  4040  (or  upgraded  2040)  disk 
drive.) 

Version  4.8  $179.95 

(Commodore  8032  with  the  8050  disk  drive.) 
Call  or  write  for  details  of  our  other  software. 

NOTE  OUR  NEW  ADDRESS 

DR.  DALEY'S  SOFTWARE 

Water  Street 
Darby,  MT  59829 
Phone:  (406)  821-3924 

(Hours:  10  a.m.  to  6  p.m.  Mountain  Time) 


SOFTWARE  FOR  YOLT^  16K  TRS-80  COLOR 
MODEL  I,  in,  ATARI  400/aXl,  APPLE  II 


tho 
programiTsi 
progi 


ap^tree"'     [iMACATARJ 


Vy."   v-iu   klum    dJ!  the  iniiiuGMve 
ways  of  usjnp  BAS[C  commamk.' 

IrWKiiii'  hiiw  ^fx-nt  S  monih-. 
dvMRniiij;  .n  M.-t  nl  prttjirnm'' 
i-xplniiiinB  (.-vcrvrhiliE  tHi- 
mnimaE*  uttiii.  And  muLh  morv. 
TTh'  rnttframiiK-T''-  IVi'p"^"!  l«iJ- 
\Hiii  -H-\*  hv  *ifp  rhnxjKli  ihr  hxn- 
J.'inK-iitjik  111  iTi»prammi»^  Viiur 
^.nmjiuitT.  'rtii-ri  viiu  rxpUiri*  thf 
filitr  fxmit>  .  -  mukipii-  kx^fs. 
^tui-ut-t,  ^t,-R.ii>^  jEimc  prtiBrammini;. 

mtmnr\  ?,ivcr*.  All  tht^-  mtihiiJ^ 
m.iliL*    v.wir    pTii|irammpii^    nvk- 

DiiliLult  land  VifV  ust-full  jnn- 
tjram*  art-  V-uilr  hcfurf  vi>ur  vvrv 
L-vi-*,  ,ind  df<.it:iu\J  'ill  Vk>u  Ilmtii  .il 
vmur  nu-n  -wpt'cd!  The  Program- 
mer's Program  ib  a  musl  for 
evL-ni  owner  of  a  microcom- 
pultr  l>''Ot 


On  ia'i*i*riL-  i«  lii^Kvai-".  t>ui  niiiKii;iiit-!>  ,irt*  di-^ipiifJ 
cxpllittlv  fivr  vnur  tmnputfr.  IhlIuJl-J  ovrv  mtiniJi 
;fri-  b-\C  n-n.Jv-t"-!t'nd  pnvjim-'  rnngiii^  trom  tjami.-. 
hnmi'  4.TitiTriiinmi.-iH.  Jiiid  |XT'^mi<iI  finnjiiv,  tu  murt- 
iif  iHir  uniquf  "'tt«i.hinH"  prt>Er.im-.  Xfc'i-  urli  ;llsl'^  Li-fp 
viiu  infi'rnu'J  <il  llu'  Intii-^i  hnrd^iire.  •w'hw.nrf,  iind 
puhluanoii^  (.nmrjuhk-  ivith  vour  niKriviupuicr- 

Our  Jaiiuarv  I'-sui*  will  indudf; 

I.  FtX>TBALL 

-.  CJrand  pTi\  Riwd  Raio 

i.  Home  Budpt-t  AtiaK-sis 

4.  Gi.n>nn:trv  with  praphiLs 

5.  Twn  miiTf  i)f  nur  -ipccial  "Tea:hinp"  Prujcramsl 
b.  T>n-  I.1TCM  pruxiuns  and  pcrtph«aU  fur 

vour  mUM. 

.  iind  ii^  .ilwavs  vnu  c^-t  our  UV\.  ^.nmmil■ 

mclii:  t*'  iTiLi'llfiiit  nnd  ^ervai.'  tntm  the 

ProiinHnmiT'-'  liwituic. 

iHriik  i^viL-v  iirt-  ;i\;iiLihVl 
LiitT  K^uo-  will  inilLuJt.'-  K-KLf;:nT»niMi,  Immt  WidjiL't. 
fiiTci-ivrinn,  -.Ti*.!;  markt'i.  and  manv  nion-.  Tin:  pn^t* 
;vr  -uKns^f i.'ii  iv^JKC.  .AJTLmvEI^.  .t  MACJATAHJ 
L*  ^V  pir  vf.ir.  :^\'  jvT  :  ^  vfjT.  ;in J  i-K'tor  ;» tnal  i-.*ul'. 
Don't  miss  oui  on  our  Januarv'  is^uc- 


ll  \uu  iirdtT  now,  vou  will  rt-ccivi-  ciui  ^umplt'tv  homi-  anouiiiin^;  -i.^ti.-m  iRci;,  I'J.^i'l 
ABSOLUTELY  FREE  wiiK  Any  SSC^tV  .*rdcr.  PurtL hn^i-  Knh  alxw  ynv k;im.>  .inJ\..iif  int 
,.iM  1^  .mlv  >:i  \V.  Ihi^  i<  LHjr  NVw  Y^M^V  .-viial,  v-  J.-irr  w.nit    ORDER  TODAYI! 

THE  PROGRAMMER'S  INSTITUTE 

A  FuturehoLS«  Company 

P.O.  Box  3191  Dept.  C  i.arot-    

C;haiH-l  Hill.  N.C.  :"!■!  ,jj„„    

i'ii^\  «■)■;!«,>! 

MC  i»  \'i«  Vl'flt.irar 

.    Pr.»ur.imnH'rV  Pnisf.im        i    Yi-ar  S«Wnt'iiiHi 
®      C.-i.mrufi-r  M.Jd ' 

IRC  .inJ  tht  priis^.immLT >  ftri'jir.im  nri,-  tr^-mnrks  ot  Fu[ufL-h.Hi>i-. 
•All  software  avaihhif  i«i  laswne  for  thi-  TRS.*  MiiJel  1,  Qi|.>r  K.vU'iiJi.-J  B.til,  Alan 
■WO/SOO.  On  Jislntc  fcir  ihi-  MiiJri  Hi.  Appk-  II   lAdJ  Si.W  for  rath  Ji.'^ltene  orJcrj. 


Hf 


-   K>Th 


Tnnl  U)iUf 
DiskL-rte 


/.oo/f  Out! 

MX  80 
PRO/WRITER 

IS  HERE 


PRO/WRITER  OFFERS  YOU  MORE 


•  Tracter  &  Friction 
Feed 

•  Paper  Cut  Off 

•  The  Tightest  Dot 
IVIatrics  You've  Ever 
Seen 


•  Hi  Res.  Kee  &  Dot 
Graphics 

•  100  CPS 

•  Proportional  Spacing 

•  Math  Symbols 

•  And  More  For  Less 


$595.00 

Call  (916)  272-6808 
Poquette's 

14530  Lynshar  Road 
Grass  Valley,  California  95945 


WHY  BUY  FROM  THE  BEST? 

Service. . .  Support. . . 
Software. . . 


MULTI-CLUSTER 

For  CommodDrE  Systems  allows  3 
CPU's  (Expandable  to  8i  to  access  a 
single  Commodore  Disk 

MULTI-CLUSTER  i3 CPUsl $  995 

Eacti  Addiiional  CPU  lup  to  8i  . .  $  250 


^E  commodore 

16K  B(16)<RAM-'(0  Column) -Lim.Qty  S  995 

32K  B  (32K  RAM-40  Cim.)  -  Lim.  Qty S1»5 

4016  (16K  RAM  4.0  Basic-40  CIm.)  S  995 

4032  (32K  RAM  4.0  Basic-40  CIm.) S1295 

8032  (32K  RAM  4.0  Baslc-BO  CIm.) $1495 

8050  Dual  Disk  (1  Meg  Storage)  S1795 

4040  Dual  Disl<  (343K  Storage) S1295 

8010  IEEE  Modem S  280 

C2N  Cassette  Drive  $   75 

CBM  -  IEEE  Interface  Cable  $   40 

IEEE  -  IEEE  Interface  Cable S    50 

VIC  20  Home/Personal  Computer - .  $  295 

CALL  NEECO 

FOR  ANY  OF  YOUR 

COMMODORE  COMPOTER  NEEDS 


EPSON  PRINTERS 

MX-80  PRINTER S  645 

MX-80  FT S  745 

MX-100  S  945 

M  X-70  *  "ISS 

INTERFACE  CARDS 

8141  (RS-232) I    II 

8150  (2K  Suffered  RS-232) *  150 

8161(IEEE488)   J    ^ 

8131  (Apple  Card)  J    85 

8230  {Apple  Card)  • »    25 

8220  (TRS-80  Cable) »    35 

DIABLO  630  PRINTER 

DIABLO  630  -  Serial  -  RS-232 $2710 

Tractor  Option S  250 


NEC  SPINWRITER  PRINTERS 

5530  (Parallel) S3055 

5510  (Serial) S3055 

5520  (KSR-S«rial) S3415 

Tractor  Option S  225 


APPLE 

16K  APPLE  IK  S1330 

32K  APPLE  11+  S1430 

48K  APPLE  IK  S1530 

APPLE  DISK  w/3-3  DOS  .  S  650 

APPLE  DRIVE  Only S  490 

APPLE  III  128K- In  Stock! 
w/Monitor  ♦ 
Info  Analystpak S4740 


AMDEK  MONITORS      INTERTEC  COMPUTERS 


Video  10012"  B*W $  179 

Video  300  12"  Green S  249 

Color  1 13'  Low  Res $  449 

Color  I1 13'  High  Res $  999 


64K  Superbrain 

(360  Disk  Storage),  CP/M™ . . .  S3495 
64K  QD  Superbrain 

(700K  Disk  Storage),  CP/M", .  $3995 


•CP/M  is  a  registered  trademark  of  Digital  Research 


ATARI  COMPUTERS 

Atari  400  (16K  RAM)    $399 

Atari  800  (32K  HAM)  -  good  thru  8/31  S1080 

Atari  410  RECORDER  $  ^^-^ 

Atari  810  DISK  DRIVE $  599.95 

NEECO  carries  all  available  ATARI  Software  and  Peripherals. 


PROFESSIONAL 
SOFTWARE 

WordPro  1  8K $    29.95 

W/DrdPro3(40Cltr.)16K  ...,$  199.95 

WordPro  3* $  295 

WordPro  4  (80  CIm.)  32K  . . . .  $  375 
WordPro  4+ $  450 


JUST  A  SAMPLE  OF  THE  MANY  PRODUCTS  WE  CARRY.  CALL  US  FOR  OUR  NEW  60-PftG"MAL?G 
WE  WILL  mJtSsDm" ADVERTISED  PRICES  ON  CERTAIN  PRODUCTS  LISTED  UNDER  SIMILAR  'IN  STOCK"  CONDITIONS. 


NEECO 

679  HIGHLAND  AVE. 
NEEDHAM.  MA  02194 


(617)449-1760 

Telex:  951021 


MON-FR1  9:00  -  5:00 


MMlerCharge  and  VISA  Accepted 


NEECO 


INTRODUCES  THE 
CBM  VIC-20 
COMPUTER! 


^C  Commodore 
breaks  the 
computer 

price  barrier  — 

$299.95 


CBM  VIC-20 
PERSONAL 
COMPUTER 


VIC-20  SPECIFICATIONS 

•  8  colors  -  built  in 

•  sound  generation  -  built  in 

•  programmable  function  keys 

•  5K  memory  expandable  to  32K 

•  standard  PETBASIC  in  ROM 

•  full-size  typewriter  keyboard 

•  graiDhics  character  set 

•  plug-in  program/memory  cartridges 
p  low-priced  peripherals 

•  joystick/paddles/lightpen 

•  self-teaching  materials 

•  WORKS  WITH  ANY  HOME  TELEVISION 


C2N 
TAPE  CASSETTE 
DRIVE 

CALL  NEECO  TODAY  FOR  ADDITIONAL  VIC-20  INFORMATION  .  .  . 

As  the  CBM  VIC-20  is  a  'new*  product,  prices  and  specifications  are  subject  to  change  w/o  notJc«. 


NEECO 


NEECO  WILL  MATCH  ANY  ADVERTISED  PRICE  ON  CBM  EQUIPMENT 
FROM  ANY  OTHER  COMPANY  WITH  PRODUCT  IN  STOCK. 


679  HIGHLAND  AVE. 
NEEDHAM.  MA  02194 


(617)449-1760 


Telex:  951021 


M0N-FR1  9:00  -  5:00 
MasterCard  artd  VISA  Accepted 
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10  DATA  10.746,9.650,9.087,11.054, 
9.984,9.44 

12  DATA  11.366,10.3219,9.8013 

13  DATA  11.6919,10.6643,10.1647 

14  DATA  12.0017,11.0109,10.5323,12 

.3253,11.3615,10.9036 
16  DATA  12.6525,11.7158,11.2784,12 

.9832,12.0738,11.6565 
18  DATA  13.3175,12.4383,12.0377,13 

.6551,12.8,12.4217 
20  DATA  13.9959,13.1679,12.8084,14 

.34,13.5389,13.1975 

22  DATA  14.6871,13.9126,13.5889,15 

.0371,14.2891,13.9825 

23  DATA  15.3901,14.6681,14.378 

24  DATA  15.7458,15.0495,14.7753,16 

.1043,15.4332,15.1743 
30  DIM  Q(18,4) 
32  DIM  El  (18,4) 
34  DIM  E2(18,4) 
40  F0RY=1T017 
50  F0RI=1T03 
60  READQ(Y,I) 
70  NEXTI 
80  NEXTY 

100  REM  EQUITY  FIRST  YEAR  BUILD-UP 
110  DATA  30.3165,16.5472,9.4702,29. 

0169,15.5381,8.713 
120  DATA  27.7620,14.5823,8.009,26.5 

522,13.6764,7.3549 
130  DATA  25.3853,12.8195,6.7496,24. 

2612,12.0094,6.1886 
140  DATA  23.1776,11.2426,5.6695,22. 

132,10.5195,5.1902 
150  DATA  21.1306,9.8378,4.7482,20.1 

653,9.1939,4.3401 
160  DATA  19.2365,8.5881,3.9648,18.3 

459,8.0195,3.6187 
170  DATA  17.4898,7.4830,3.3007,16.6 

672,6.9813,3.0097 
180  DATA  15.8796,6.5076,2.7419,15.1 

234  ,6.0639,2.4964 
190  DATA  14.4001,5.6481,2.2718 
200  F0RY=1T017 
210  F0RI=1T03 
220  READ  El  (Y,I) 
240  NEXTI 
250  NEXTY 
300  REK  EQUITY  BUILDUP  FOR  2ND  YEAR 

310  DATA  33.4911,18.2799,10.4619,32 

.2146,17.2504 
315  DATA  9.67  3  3 
320  DATA  30.9755,16.2697,8.9358,29. 

7719,15.3348,8.2467 
330  DATA  28.6048,14.4453,7.6056,27. 

4737,13.5996,7.0081 
340  DATA  26.3768,12.7945,6.4521,25. 

312,12.0309,5.9359 
360  DATA  24.2863,11.3070,5.4573,23. 

2916,10.6193,5.0130 


380  DATA  22.3289,9.9687,4.6022,21.4 

005,9.3547,4.2213 
390  DATA  20.5028,8.7721,3.3693,19.6 

351  ,8.2232,3.5456 
400  DATA  18.7997,7.7043,3.2462,17.9 

929,7.2145,2.9700 
410  DATA  17.2170,6.7530,2.7162 
420  F0RY=1  TO  17 
4  30  FORI  =  1  TO  3 
440  READE2(Y,I) 
460  NEXTI 
470  NEXTY 
2000  PRINT"HIT  ANY  KEY  TO  CONTINUE.. 

.  ";  :GETL$ 

2004  HOME:PRINT 

2005  PRINT:INVERSE:PRINT  TAB(17)"INV 
EST    " -.NORMAL:  PR:PRINT"PL 

EASE  ANSWER  THE  FOLLOWING 

2007  PRINT 

2008  INVERSE:PRINT"ANSWER  'END'  TO  S 
TOP  NOW":NORMAL:PRINT:PRIN 

T 
2  010  INPUT"TODAY'S  DATE";E$ 
2015  IFE$="END"THENPRINT"    END  OF  P 

ROGRAM    ":END 
2020  PRINT 

2030  INPUT  "PROPERTY  ADDRESS";A$ 
20  3  2  HOME 

2033  PRINT"MISC.  INFORMATION  IS  ANY  ~ 
DATA  THAT" 

2034  PRINT"YOU'D  LIKE  LISTED  ON  THE  ~ 
PRINTOUT," 

2036  PRINT"PROPERTV  (DUPLEX,  TRIPLEX 
)  ,  AND  SO" 

2037  PRINT"ON.   IF  YOU  DON'T  WANT  AN 
YTHING  PRINTED" 

2038  PRINT"FOR  MISC.  INFO,  JUST  HIT 
RETURN.": PRINT 

2040  PRINT:INPUT"MISC  INF0{1)";M1S 

2050  INPUT"MISC  rNFO(2)";M2S 

2  060  PRINT: PRINT: INPUT" ASK ING/OFFERI 

NG  PRICE  ";PR 
2065  IFPR<1THEN2060 
2070  HOME:PRINT 

2072  PRINT"DEPRECIATION,  THE  'WEARIN 
G-OUT'  OF" 

2073  PRINT"A  PROPERTY,  IS  WHERE  THE  ' 
MAJOR" 

2074  PRINT"TAX  SAVINGS  FROM  A  REAL  E 
STATE" 

2075  PRINT"  INVESTMENT  COME  FROM. 
:PRINT 

2076  PRINT"CONSULT  WITH  YOUR  ACCOUNT 
p^yX  —  ";:  INVERSE  :PRINT"PL 
EASE" ; :NORMAL 

2077  PRINT"  AS  TO  THE  USEFUL  LIFE  OF 
THIS" 

2078  PRINT"  PROPERTY.   NATURALLY,  TH 
E  SHORTER" 

2079  PRINT"  THE  BETTER.  AS  THE  SHORT 
ER  PERIOD  WILL  SAVE  MORE  I 
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N    TAXES.": PRINT 

2080  PRINT"  YOU  MIGHT  ALSO  WANT  TO  C 
HANGE  THE  BASIS  FOR  THE  DE 
PRECIATION" 

2081  PRINT"  IN  THIS  PROGRAM .": PRINT : 
PRINT"TO  SEE  WHAT  THE  DIFF 
ERENCE  IS  IN" 

2082  PRINT"  TAX  SAVINGS  FOR,  FOR  INS 
TANCE,  15  YEARS  OR  20  YEAR 

S  OR  25  YEARS,  ETC." 

2083  INPUT  "ESTIMATED  LIFE  FOR  DEPRE 
CIATION  IN  YEARS  ";L:PRINT 

2084  IFL  <  1  THEN  2070 

2085  HOME:PRINT 

2086  PRINT"APPRECIATION  IS  WHAT  INFL 
ATION  WILL":PRINT"DO  TO  A  ~ 
PROPERTY.   IF  YOU  THINK 

2087  PRINT"  THIS  MIGHT  GO  UP  IN  VALU 
E  10%  PER  YEAR,  ANSWER  10. 

YOU'LL  HAVE  THE 

2088  PRINT"  CHANCE  TO  CHANGE  THIS  AN 
SWER  LATER  ON,  SO  YOU'LL  B 

E  ABLE  TO  SEE  WHAT 

2089  PRINT"  DIFFERENT  INFLATION  RATE 
S  WILL  DO  TO  YOUR  RETURN." 
:PRINT 

2090  INPUT  "ESTIMATED  APPRECIATION  P 
ER  YEAR  ";A 

2091  HOME:PRINT 

2092  INPUT"CURRENT  TOTAL  RENTS  PER  M 
ONTH  ";R 

2093  HOME:PRINT 

2100  INPUT"ANTICIPATED  TOTAL  RENTS  P 

ER  MONTH  ";AR 
2102  HOME:PRINT 
2108  PRINT 
2110  PRINT"HOW  MANY  MONTHS  WILL  YOU  ~ 

OWN  THIS" 

2115  PRINT"PROPERTY  THIS  YEAR  ?  " ;  M 

2116  IF  M  >  12  THEN  2108 

2117  IF  M  <  0  THEN  2108 

2118  PRINT:PRINT 

2120  INPUT"TAXES  +  INSURANCE  PER  MON 

TH  ";T 
2130  PRINT 

2140  INPUT  "ESTIMATED  EXPENSES  PER  M 
ONTH  ",-E 

2141  PRINT:PRINT:PRINT"YOU  CAN'T  DEP 
RECIATE  THE  LAND,  SO":PRIN 
T"THE  VALUE  OF  THE  LAND  HA 

S  TO  BE 

2142  PRINT"DEDUCTED  FROM  THE  TOTAL  P 
RICE,  BEFORE 

2143  PRINT"THE  DEPRECIATION  CAN  BE  C 
ALCULATED. ":PRINT 

2  144  PRINT"AS  A  PERCENT  OF  THE  TOTAL 
PRICE": PRINT" (10%=10..,15 
%=15,  ETC.) "; : INPUT  V 
2145  V5=V:V5=INT(V5*10"2+.5)/100 
2147  HOME:PRINT 


2150  INPUT  "%TAX  BRACKET  YOU'RE  IN  ( 
3  0%= 30)  ";B 

2155  IF  B<0  THEN  2147 

2156  IF  B>100  THEN  2147 

2161  PRINT:PRINT" (YOUR  DOWN  PAYMENT  ' 
MUST  BE  AT  LEAST" : PRINT"$1 

—  FOR  MATH  PURPOSES" : PRINT 

2162  PRINT:  INPUT"DOWN  PAYMENT",-DP 

2163  IF  DP<1  THEN  2161 

2166  PRINT:PRINT" (20%=20   30%=30)  ET 
C.) 

2167  PRINT"FURNISHING  AS  A  PERCENT  0 
F  THE  PRICE":INPUT  F 

2168  IF  F>100  THEN  2167 
2159  IF  F<0  THEN  2157 
2170  PRINT 

2185  F=INT(F*10"2+.5) 

2190  GOSUB6000 

2195  GOSUB5000:REM   INPUT  PAYMENT  DA 

TA 
2200  HOME:PRINT 
2210  PRINT  "TOTAL  MONTHLY  PAYMENT  " ; 

2215  FOR  C=l  TO  3 

2220  P(9)=P(9)+P(C) 

2230  NEXT  C 

2240  Z9=P(9) :GOSUB  15000 

2250  PRINT  Z9$ 

2280  PRINT 

2290  INPUT  "DO  YOU  WANT  TO  CHANGE  TH 

IS  <1=YES>";Q 
2300  IF  0=1  THEN  2400 
2310  GOTO  2420 

2400  REM  CORRECT  PAYMENT  AMOUNT 
2410  PRINT: INPUT  "CORRECT  PAYMENT  TO 

TAL  ";P(9) 
2420  GOSUB7000 
2430  GOTO9000:REM  PRINT 
3032  HOME;PRINT 

5000  HOME:PRINT:PRINT"NOW  WE  HAVE  TO 
FIGURE  YOUR" 

5001  PRINT"MONTHLY  PAYMENT  FOR  THIS  ~ 
PROPERTY. ": PR I NT: PR I  NT "YOU 

CAN  INPUT  UP  TO  3  PAYMENT 
S": PRINT 

5002  P(B)=0:P(3) =0 

5003  PRINT"IF  YOUR  PAYMENT  DATA  IS  D 
IFFERENT" :PRINT"THAT  WHAT  ~ 

IS  ASKED  FOR,  ANSWER 

5004  PRINT"AS  CLOSELY  AS  YOU  CAN . " : P 
RINT 

5005  PRINT:INVERSE:PRINT"YOU  MUST  IN 
PUT  SOMETHING" 

5006  PRINT"  —  EVEN  IF  YOU  CHANGE  IT  L 
ATER  ON" 

5007  NORMAL:PRINT 

5010  PRINT:PRINT:PRINT"ANSWER  1  TO  C 
ONTINUE. . . 

5015  PRINT"ANSWER  2  WHEN  DONE " 

5020  PRINT:INPUT  Q 
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5030     I 

5040  I 
5050  G 
5200  R 
NT 
5210  C 
5250 
5260 
5270 
5280 
5285 
5300 


I 
I 
I 
I 
G 
P 
OM 
5305  P 


F  Q=l  THEN  5200 

F  Q=2  THEN  5500:REM  RETURN 

OTO  5007 

EM  TO  ZERO  OUT  ALL  PRIOR  PAYME 

DATA 
=C+1:REM  COUNTER 
NPUT  "YEARS  ( 15-20-25 )"; Y (C) 
F  Y(C)=15  THEN  I=1:G0T0  5300 
F  Y{C)=20  THEN  I=2:G0T0  5300 
F  Y{C)=25  THEN  I=3:G0T0  5300 
OTO  5250 
RINT:PRrNT"YOUR  RATE  CAN  BE  FR 

10  TO  18" 
RINT"IN  .5  STEPS. ":PRINT-.PRINT 


5310 

5315 
5320 
5330 
5332 
5334 
5336 
5338 
5340 
5350 
5352 
5354 
5356 
5358 
5360 
5370 
5372 
5382 
5390 
5400 
5410 
5  4  20 
5425 


INPUT  "PERCENT  RATE  " ; Q 


IF  Q=10  THEN  Y=1:G0T0  5400 
IF  Q=10.5  THEN  Y=2:G0T0  5400 
IF  Q=ll  THEN  Y=3:G0T0  5400 
IF  0=11.5  THEN  Y=4:G0T0  5400 
IF  Q=12  THEN  Y=5:G0T0  5400 
IF  Q=12.5  THEN  Y=6:G0T0  5400 
IF  Q=13  THEN  Y=7:G0T0  5400 
IF  Q=13.5  THEN  Y=3:G0T0  5400 
IF  Q=14  THEN  Y=9:G0T0  5400 
IF  Q=14.5  THEN  Y=10:GOTO  5400 
IF  Q=15  THEN  Y=11:G0T0  5400 
IF  Q=15.5  THEN  Y=12:G0T0  5400 
IF  Q=16  THEN  Y=13:G0TO  5400 
IF  Q=16.5  THEN  Y=14:G0T0  5400 
IF  Q=17  THEN  Y=15:G0T0  5400 
IF  Q=17.5  THEN  Y=16:G0T0  5400 
IF  Q=18  THEN  Y=17:G0T0  5400 
GOTO  5300 

INPUT  "AMOUNT  OF  LOAN  ";A(C) 
REM    TO  FIGURE  PAYMENT  AMOUNT 
P{C)=A(C) *Q(Y,I) 

P  (C)=P (C) /100:REM  TO  PUT  DECIMA 
LS  IN  THE  RIGHT  PLACES 
5428  P(C)=P{C)/10 

IF  C=3  THEN  5500 


5450 
5490 
5500 
6000 
6001 
6010 


GOTO  5010 
RETURN 
HOME: PRINT 
V5=V:B5=B 

PRINT  "THIS  SECTION  WILL  ALLOW 
YOU  TO 
6020  PRINT"CORRECT  ANY  DATA 
GOSUB  11000 


6030 
6050 
6060 
6070 
6080 
6100 
6110 


PRINT"! . 
PRINT"2. 
PRINT" 3. 
P  R I N  T  "  4  . 
PRINT" 5. 
PRINT"6. 
TIGN  ";L 
6120  PRINT"7. 


DATE  ■ 
;A$ 
:M1$ 
:M2$ 

PRICE 


ES 


PR 


6126  PRINT  A 
6130  PRINT"8, 
6140  PRINT"9. 


EST  LIFE  FOR  DEPRECIA 
EST  APPRECIATION/YEAR 


CURRENT  RENTS  " ; R 
ANTICIPATED  RENTS  ";A 


R 
6160  PRINT"10.  MONTHS  OF  OWNERSHIP  T 

HIS  YEAR  ";M 
6170  PRINT"11.  EST  TAXES  +  INSURANCE 

/MONTH  ";T 
6180  PRINT"12.  EST  EXPENSES/MONTH  "  ; 

E 
6190  PRINT"  13.  %  LAND  VALUE  ",-V5 
6200  PRINT"14.  %  TAX  BRACKET  ";B5 
6210  PRINT"15.  DOWN  PAYMENT   " ; D9 
6220  PRINT"16.  %  FURNISHINGS  OF  VALU 

E  "  ;  F 
6225  GOSUB  11000 
6300  PRINT"TO  CHANGE,  ANSWER  THE  NUM 

BER" 
6310  INPUT  "WHEN  DONE,  ANSWER  - 1 " ; Q 
6315  HOME:PRINT:PRINT 
6320  IF  Q=-l  THEN  6500 
63  3  0  ONQGOTO6  3  5  0,6  36  0,636  5,6  37  0,6  39  0 

,6400,6410,6420,6430,6440, 

6450,6460,6470,6480 
6331  GOTO  6490 

6350  INPUT  "CORRECT  DATE  ";E$ 
6355  GOTO  6000 

6360  INPUT  "ADDRESS  ",-A$:GOTO  6000 
6365  INPUT  "MISC  INFO  "  ; Ml$ : GOTO600 0 

6370  INPUT  "MISC  INFO  " ; M2$ :GOTO6000 

6380  INPUT  "ASKING/OFFERING  PRICE  "  ; 

PR 
6382  IF  PR<1  THEN  6380 
6385  GOTO  6000 

6390  INPUT  "LIFE  FOR  DEPRECIATION  "; 
L 

6391  IF  L<1  THEN  6390 
6395  GOTO  6000 

6400  INPUT  "%  APPRECIATION  EXPECTED  ~ 

";A 

6405  GOTO  6000 

6410  INPUT  "CURRENT  RENTS  ";R:GOTO  6 

000 
6420  INPUT  "ANTICIPATED  RENTS  ";AR 
6425  GOTO  6000 
6430  INPUT  "MONTHS  OF  OWNERSHIP  THIS 

YEAR  ";M 
6432  IF  M>12  THEN  6430 
6434  IF  M<0  THEN  6430 
6436  GOTO  6000 
6440  INPUT  "EST  TAXES  +  INSURANCE/MO 

NTH";T:GOTO6000 
6450  INPUT  "EST  EXPENSES  PER  MONTH  " 

;E:GOTO  60  0  0 
6460  INPUT  "PERCENT  LAND  VALUE  " ; V 
6470  INPUT  "TAX  BRACKET  ";B:GOTO  600 

0 
6480  INVERSErPRINT  "REMEMBER  -  IF  YO 

U  CHANGE 
6482  PRINT"YOUR  DOWN  PAYMENT,  THE  MO 

NTHLY  PAYMENT  SHOULD  ALSO  ~ 

BE  CHANGED" :NORMAL:PRINT 
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6484  INPUT    "DOWN    PAYMENT";DP 

6485  IF    DP<1    THEN    6484 

6486  IF   DP>=PR    THEN    6484 

6487  GOTO    6000 

6490  INPUT  "FURNISHINGS  %  OF  VALUE  " 

;F:GOTO  fi000 
6500  REM 
6900  RETURN 
7000  HOME:VTAB10: HTAB10 : PRINT" DO 

ING  MATH " 

7002  V=100-V 

7003  V=V/100 

7004  B=B/100 

7005  F=F/100 

7010  R9=R*M  :REM  CURRENT  RENTS  THIS  ~ 

YEAR 
7015  R9=INT{R9*10"2+.5)/100 
7020  P{8)=P(9)*M:  REM  PAYMENTS  THIS  ~ 

YEAR 
7025  P(8)=INT(P(8) *10"2+.5)/100 
7030  T9=:M*T:REM  TAXES  Y-T-D  THIS  YEA 

R 

7035  T9  =  INT(T9*10''2+.5)/100 

7040  E9=E*M:REM  EXPENSES  Y-T-D  THIS  ~ 

YEAR 
7045  E9=INT(E9*10"2+.5)/100 
7050  F1=R9-P{e)-T9-E9:REM  F1=CASH  FL 

OW  THIS  YEAR 
7055  Fl  =  INT(Fl*10''2+.5)/100 
7  210  F2= (AR*12)- (P(9)*12)-(T*12)-(E* 

12) 
7215  REM  **F2=CASH  FLOW  2ND  YEAR 
7220  F2-INT(F2*10~2+.5)/100 
7300  REM  FIGURE  ASSET  APPRECIATION 
7310  A5= (PR*A)/100 
7320  A5=A5/12 
7330  REM  AS-MONTHLY  ASSET  APPRECIATI 

ON 
7340  A6=A5*12:REM  FOR  A  FULL  YEAR 
7345  A5=A5*M:REM  APPRECIATION  FOR  TH 

E  1ST  YEAR 
7350  A5=INT(A5*10"2+.  5)/10f'! 
7360  A6=INT(A6*10"2+.5)/100 
7400  REM  FIGURE  EQUITY  BUILDUP 
7410  REM  P(8)=T0TAL  PAYMENTS  THIS  YE 

AR 
7420  REM  T9=TAXES  +  INS  THIS  YEAR 
7430  REM  E9=EXPENSES  TOTAL  THIS  YEAR 

7440  REM  F1==CASH  FLOW  1ST  YEAR 
7450  REM  F2=^CASH  FLOW  2ND  YEAR 
7500  EB=P(8)*E1{Y,I) :REM  EQUITY  BUIL 

DUP  1ST  YEAR 
7505  EB=EB/100 

7510  ET=(P(9)*12)*E2(Y,I) :REM  EQUITY 

BUILDUP  2ND  YEAR 
7  515  ET=ET/10g 

8000  REM  L  IS  PROPERTY  VALUE 
8010  REM  V  IS  LAND  VALUE  % 
8020  REM  F=IS  VALUE  OF  FURNISHINGS 
8030  REM  PR  IS  PRICE  OF  PROPERTY 


8040  REM  M  IS  MONTHS  YOU  OWN  IT  THIS 

YEAR 
8050  REM  B  IS  TAX  BRACKET 
8100  REM  FIGURE  1ST  YEAR  TAX  SAVINGS 

8210  TS=PR*V:REM  THIS  IS  THE  NET  PRO 

PERTY  VALUE  AFTER  LAND  IS  "" 

DEDUCTED 
8220  F5=PR*F:REM  F4=VALUE  OF  THE  FUR 

NISHINGS 
8230  TS=TS-F5:REM  TS  IS  NOW  THE  VALU 

E  OF  THE  PROPERTY  AFTER  LA 

ND  AND 
8232  REM  FURN  ARE  DEDUCTED 
8240  TS=TS/L:REM  THIS  IS  WHAT  YOU  CA 

N  DEPRECIATE  PER  YEAR 
8250  F5=F5/5:REM  THIS  IS  THE  AVERAGE 

DEP  ON  FURNISHINGS 
8260  REM  PART  OVER  3  YEARS  AND  PART  " 

OVER  7=5  AVERAGE 
8270  D5=F5+TS:REM  THIS  IS  DEP  FOR  IS 

T  YEAR 
8280  D6=D5 
8290  D5= (D5/12) *M:REM  THIS  IS  1ST  YE 

AR'S  DEP,  AND  D6=2ND  YEAR  " 

DEP 
8300  TS=D5*B:REM  THIS  IS  TAX  SAVINGS 

1ST  YEAR 
8310  TT=D6*B:REM  THIS  IS  TAX  SAVINGS 

2ND  YEAR 
8400  REM  RETURN  ON  INVESTMENT/EQUITY 

8410  R0  =  FH-A5+EB+TS:REM  THIS  IS  1ST  ~ 

YEAR  EQUITY  TOTAL 
8420  RE=F2+A6+ET+TT:REM  THIS  IS  2ND  ~ 

YEAR  EQUITY  BUILDUP 
8430  RE=INT(RE*10''2+.5)/100 
8440  RO=INT(RO*10'^2+.5)/100 
8500  TS=INT(TS*10''2+.5)/100 
8510  F5=INT{F5*10''2+.5)/100 
8520  D5=INT{D5*10'2+.5)/100 
8530  TT=INT(TT*10"2+.5)/100 
8540  D6=INT(D6*10~2+.5)/100 
8550  EB=INT(EB*10"2+.5)/100 
8560  ET=INT(ET*10''2+.  5)/100 
8900  RETURN 

8999  V=20 

9000  HOME:PRINT: INVERSEiPRINT  TAB  (1 
7) "INVEST 

":NORMAL:GOSUB11000 

9001  PRINT:PRINT"YOU  WILL  OWN  THIS  P 
ROPERTY  "; M: PRINT" MONTHS  T 

HIS  YEAR.  THE  CASH  FLOW":P 
PINT 

9002  PRINT"IS  BASED  ON  CURRENT  RENTS 
THE  1ST" 

9003  PRINT"YEAR  OF  $";R;"PER  MONTH,  ~ 
AND  OF  ANTICIPATED  RENTS  F 

OR  THE  2ND  YEAR  OF" 

9004  PRINT"$";AR; "PER  MONTH .": PRI NT : 
PRINT"YOUR  DOWN  PAYMENT  IS 


SPECIALS  sn  INTEGRATED  CIRCUITS 

6502                       745     10/6,95  50/6.55     100/6.15 

6502A/6512A         8.40     10/7,95  50/7.35     100/6.90 

6520  PIA                5.15     10/4.90  50/4.45     100/4.15 

6522  VIA                6.45     10/6,10  50/5.75     100/5.45 

6532                       7.90     10/7.40  50/7.00     100/6.60 

2t14-L200                             3.75  25/3.50     100/3.25 

2114-L300                             315  25/2.90     100/2.65 

2716  EPROM                        7.00  5/6.45      10/5.90 

2532  EPROM  14.50 

BliaNHKklZKiiCiDSMi  M.SO 

4115  <lTl? 

Zero  Inseftton  Force  24  pin  Socket  2.00 

6550  RAM  (PET  8K)  12.70 

S-100  Wire  Wrap  Socket  2.40 


A  P  Products    15%  OFF 
APHobby-Blox    15%  OFF 


THE  STAR  MODEM 

fnm  rniWUnnnn  DiH  SifitiM 
RS232  MODEM 
IEEE  486  MODEM 

RSZ32  ccin 

IEEE  4B8  CCin 


SALE  Size 

SALE  $199 
J170 
S270 


We  carry  Apple  11+  from 
Bell  &  Howell 


(■IFORTH+  lir  April  II 

A  full-featured  FORTH  witti  enhancemenls. 
FORTH  Interest  Group  standards. 

VIC  3K  RAM  (with  2  ROM  Sockels) 
Write  for  VIC  Software  List 


175 

Conforms  to 


65 


REVERSAL  (Spracklen)   32  K  Apple  28.00 

Data  Manager  (Lutus)  24  K  Apple  40.00 

Energy  Miser  •  PET.  AfipJe,  Zenitfi  24.50 

Histo-Grapti  (Boyd)  4BK  Apple  24.50 

Data-Graph  (Boyd)  4aK  Apple  40,00 

Apple  II  User's  Guide  (Ostxme)  12.00 

Introduction  to  Pascal  (Sytex)  10.30 

Pascal  Handtnok {Sybexl  ' 200 

Musical  Applications  o(  Micros  (Ctiambeflin)  20.00 

Basic  FORTRAN  (Coan)  _7^25 

CP/M  H^bO*  (Witt!  MP/M)  Zaks  11.85 

Proflramming  tt«  6502  r  Zaks  1O00 

Microprocessor  Interfacing  Tecfiniques  1300 

PET/CBM  Personal  Computer  Guide  (Ostxxnel  12.00 

PET  and  ttie  IEEE-4eB  Bus  IGPIB)  12.25 

6502  Assembly  Language  Pros.  -  Levanthal  13.5D 

Z-80  Assefnbly  Language  Prog.  -  Levanttial  1 2.75 
aOBOWBOBS  Assembly  Lan^age  Programming        1 2.75 

Z8000  Assembly  Language  Programming  16.00 

6809  Assemtly  Language  Programming  13.50 

6800  Assembly  Language  Programming  1 2.75 

The  68000  Microprocessor  Handbook  5.75 

BASIC  and  the  Personal  Computer  I Dwyer)  fl.OO 


Bcommodore 


llil    SALE 

(995)    775 


CBM-PET  SPECIALS 

8023  Printer  - 1 36  col,  1 50  cps  bi-directional 
8300  (Diabk)  630)  Daisy  Wheel  -  40  cps 

bi-directional 
8032  80  x  25  CRT,  twsiness  keyboard 
Micm  Mainframe 

8096  Board  (extra  64  K  RAM  for  8032) 
8050  Dual  Disk  Drive  - 1  megabyte 
8250  Dual  Disk  Drive  -  2  megabyte 
CBM  IEEE  Modem 
4016  full  size  graphics  keyboard 
4032  full  siie  graphics  keyboard 
4040  Dual  Disk  Drive  -  330,000  bytes 
2031  Single  Disk  Drive  -  165.000  bytes 
4022  Tractor  Feed  Printer 
C2N  External  Cassette  Deck 
VIC  20  Color  Computer 
VIC  1515  Graphic  Printer 
Used  CBM/PET  Computers 
8024-7  High  Speed  Printer 

WE  WILL  MATCH  ANY  ADVERTISED  PRICE 
■V*7  EQycATJbNVL  blScbu NT 

Biy  t  PET/CBM  Cimpatin,  racihi  1  FREE 


(2250) 

1725 

(1495) 

1100 

(1995) 

1600 

(500) 

400 

(1795) 

1345 

(2195) 

1760 

(3951 

199 

(995) 

795 

(1295) 

999 

(1295) 

999 

(695) 

560 

(795) 

630 

(75) 

65 

(299) 

259 

(3951 

315 

CALL 

(1995)  1345 

WordPro  3  Plus  -  32 K  CBM.  disk,  pfinter  200 

WordPro  4  Plus  -  8032,  disk  printer  325 

OZZ  Data  Base  System  for  CBM  8032  335 

VISICALC  for  PET.  ATARI,  or  APPLE  155 

SM-XIT  -  Sipir  PET  HON  UHttti  40 

Programmers  Toolkit  •  PET  ROM  Utilities  35 

PET  Spacemaker  II  ROM  Switch  36 

2  Meter  PET  lo  IEEE  or  IEEE  to  IEEE  Cable  40 

Dust  Cover  lor  PET  7 

IEEE-Parallel  Prinler  Interface  for  PET  110 

IEEE-RS232  Printer  Interlace  for  PET  120 

Tfie  PET  Revealed  17 

Library  ol  PET  Subroutines  1 7 

4  PART  HARMONY  MUSIC  SYSTEM  far  PET 

Tlie  Visible  Music  Monitor,  by  Frank  Levinson,  allows  you  lo 
easily  enter,  display,  edit,  and  play  4  part  harmony  music. 
Includes  whole  notes  Ihnj  64ths  (with  dotted  and  triplets), 
tempo  change,  key  signature,  transpose,  etc  The  KL-4M 
unit  includes  D  to  A  converter  and  amplifier  ready  to  hook  to 
your  speaker 
KL-4M  Huk  imtt  ■!«  «liM  Pninii  m 


Watanabe 

Intelligent 

Plotter 


KATANJIBE  WUtl]  Pltttir 
WATANABE  WMB75     6-|H  n«ttir 


10/2.75  50/265  100/2,60 

10/2.80  50/2  70  100/2.65 

10/3.45  50/3  35  100/3.2O 

10/2.45  50/2,40  100/2.35 


DISK 
SPECIALS 

SCOTCH  <3M)  5" 
SCOTCH  (3M)  8" 
Vertjatim  8"  DouWe  Dens. 
VeiMtim  5"  Datalife 
(add  1  00  for  Verbatim  5"  plastic  storage  box) 
BASF  5"  soft  10/240    20/2.35  100/2.30 

Wabash  5"  In  Plastic  Box       10/2.70  50/2.60  100/2.50 
Wabash  B"  in  Plastic  Box       10/2,75  50/2,65  100/2.55 

WE  STOCK  MAXELL  DISKS 

Diskette  Storage  Pages  10  (or  395 

Disk  Ubrary  C^k  8"  -  2.85     5"  -215 

Disk  Hub  Rings  B"  -  50  ®  7,50      5"  -  50  @  6.00 


CASSEHES- AGFAPE-611  PREMIUM 

High  oulpuL  low  noise,  5  screw  housings, 
C-10  10/56    50/50     100/.48 

C-30  10/.73    50/.68    100/,66 

All  other  lengths  availabte.  Write  for  price  list 

SPECIALS 

EPtoK  Mx-ao  riwtf 

EPtOK  MK-ao  m  mnir 

EPSON  MX-70  PrlltH 

EPtONHMDOPilitir 

Cenlfonics  739  Printer  with  dot  graphffiS  675 

ETAimidlTEn  Oiltf  VlMl  Pdilir  t44B 

Zenith  ZVM-1 21  Green  Phosphor  Monitor  115 

Amdek  Cotor  Monitor  355 

ALL  BOOK  Hi  SOFTWARE  PRICES  DISCOUNTED 

OSBORNEyMcGraw-Hill.  HAYDEN,  SVBEJCetc 

Synertek  Systems 

SYM-1  MIcrKOinputar  SALE    199 

SYM  BAS-1  BASIC  or  RAE  1/2  Assembler  85 

KTM-2/80  Synertek  Video  and  Keyboard  349 

KTM-3/80  Synertek  Tubeless  Temiinal  385 


^gtUTH 

data 

systems 

Z90-eO  64  K                                                     2170 

290-82  64  K.  1  double  dens,  drive                        2395 

Z89-0  48K                                                        1950 

Z89-1  48K,  1  drive                                           2150 

Z67  10  Megabyte -1- Floppy  Drrve                        4495 

237  1.3  Megabyte  Dual  Ftoppy                              1495 

25  High  Speed  Printer                                      1195 

Z19  Video  Terminal  (VT-52  compatible)                    725 

ZVM-1 21  Green  Phosphor  Monitor                          115 

All  Zenith  Software  discounted 

ATARr 

SPECIALS 


BOO  Computer 
400-  16K 
81 0  Disk  Drive 
825  Printer 
850  Interface 
822  Printer 
Paddle  Pair 
Joystick  Pair 
16K  RAM 
Assembler/Editor 
Tele  Link 

Wnle  for 


749 

329 

449 

629 

139 

359 

17 

17 

85 

46 

20 


DOS  2  21 

Pilot  68 

Microsoft  BASIC  68 

Educ  Series         20%  off 

MISSILE  COMMAND        32 

A8TEI0IDS 

STAR  RAIDESS 

Space  Invaders 

Music  Composer 

Chess 

Super  Breakout 


32 
32 

17 
45 
30 
30 


prices  on  other  Atari  items. 


252  Bethlehem  Pike 


Coimar, 


WRITE  FOR  CATALOG 

Add  SI  .25  per  order  for  sJiipping  We  pay  balance  of  UPS  surface 
charges  on  all  prepaid  orders.  Prices  listed  are  on  cash  discount 
tasis.  Regular  prices  slightly  tiigher.  Prices  subject  to  cfiange 


KMMM  Pascil  for  PET/CBM 


$65 


A  subset  of  standard  Pascal  with  extensions. 

-  Machine  language  Pascal  Source  Editor  withi  cursor 
orieflted  window  mode 

-  Machine  Language  P-Code  Cofnpiler 

-  P-Code  to  machine  languaoe  translatof  for  optimized 
objecl  code 

-  fiufrtime  package 

-  Floating  point  capatality 

-  User  manual  and  sample  pfogfams 

Requires  32K  Please  specify  configuration 


EARL  for  PET  (disk  file  based)        $65 

EAbr.  AuiDiMr.  RilKitir,  Uakir 
Generates  relocatable  object  code  using  MOS  Tectinology 
mnemonics.  Oisk  file  input  (can  edit  files  larger  than 
memory).  Links  .multiple  Object  programs  as  one  memory 
toad  Listing  output  to  screen  or  printef.  Enhanced  editor 
opefates  in  both  command  mode  and  cursor  oriented 
"window"  mode. 

RAM/ROM 
for  PET/CBM 

4K  or  8K  bytes  of  soft  ROM  with  optional 
battery  backup. 

RAM/ROM  is  compalit)le  with  any  large  keyboard  machine 
Plugs  into  one  of  the  ROM  sockets  abc^e  screen  memory  lo 
im  you  switch  selected  wnte  pfoteclatile  fWM. 
Use  RAM/ROM  as  a  software  development  tool  to  store  data 
or  machine  code  beyond  the  nomial  BASIC  range.  Use 
RAM/ROM  TO  LOAD  A  ROM  image  where  you  have  possible 
conflicts  with  more  than  one  ROM  requiring  the  same  socket. 
Possible  applications  include  machine  language  sort  (such  as 
SUPERSORT).  universal  wedge.  Extramon,  etc, 
RAM/ROM  -  -  4K  S85 

HAM/ROM --8K  120 

Battery  Backup  Optico  30 

SUPERSOflT  by  James  Strasma  $35 

Supersoft  is  an  excellent  general  purpose  machine 
language  sort  routine  lor  PET/CBM  compulefs.  Softs  both 
one  and  two  dimensioned  arrays  at  lightning  speed  in  eittier 
ascending  of  descending  order.  Other  fields  can  be  subsofted 
when  a  match  is  found,  and  fields  need  not  be  in  any  special 
order.  Soft  arrays  may  be  specified  by  name,  and  fields  are 
random  length.  Altows  sorting  by  bit  lo  provide  8  categories 
per  byte.  TTie  nxjtine  wori(s  with  all  PET  BASlCs,  adjusts  to 
any  meftwy  size,  and  can  co-exist  with  other  programs  m 
high  memory. 


SuperGraphics 


$30 


by  John  Fluharty 

SuperGraphics  provides  machine  language  extensions  to 
Commodore  BASIC  to  allow  fast  and  easy  platting  and 
manipulation  of  graphics  on  the  PET/CBM  video  display,  as 
well  as  SOUND  commands. 

Animations  that  previously  were  too  slow  or  impossible 
without  machine  language  subroutines  now  can  be  pro- 
grammed direcity  in  BAS IC.  Move  blocks  (or  rocketships.  etc.), 
or  entire  areas  of  I  he  screen  with  a  single,  easy  lo  use  BASIC 
command.  Scroll  any  portion  of  the  screen  up  down,  ieft,  or 
fight.  Turn  on  or  off  any  of  the  4000  {8000  on  B032)  screen 
pixels  with  a  single  BASIC  command.  In  high  resolution  mode, 
draw  vertical,  horizontal,  and  diagonal  lines.  Draw  a  box,  fill  a 
tax,  and  move  it  around  on  the  screen  with  easy  to  use  BASIC 
commands. 

The  SOUND  commands  allow  you  tornJtiatea  noteor  series 
o(  notes  (or  even  several  songs)  from  BASIC,  and  then  play 
them  in  Ihe  bacltground  mode  without  interfering  with  your 
BASIC  program  This  allows  your  program  lo  an  al  full  speed 
with  simultaneous  graphics  and  music. 

SuperGraphics  commands  include  GRAPHIC  TEXT  flVS 
SET,  DRAW.  FILL  PLOT,  MOVE,  PRINT  CSET  CMOVE 
DISPLAY.  PUT,  SWAP,  PAUSE,  and  SOUND, 

Please  specify  machine  type  and  ROM  version,  disk  or  tape. 


fir  Pn/CB«  Cta^ttn 


Self  Calculating 

DATA  BASE 

REPORT  WRITER 

MAILIN6  LIST 


FLEX-FILE  is  a  set  of  flexible,  friendly  programs  to  alkiw 
you  to  set  up  and  maintain  a  data  base.  Print  files  with  a 
versatile  Report  Writer  or  a  Mail  Label  routine.  Pro- 
grammers will  find  it  easy  to  add  subroutines  to  their  own 
programs  to  make  use  of  Data  Base  files. 
RANDOM  ACCESS  DATA  BASE 
Record  size  limit  is  250  characters.  The  number  of  records 
pef  disk  is  limited  only  by  the  size  of  each  record  and  the 
number  of  records  per  disk  is  limited  only  by  the  size  of  each 
record  and  the  amount  of  free  space  on  the  disk.  File 
maintenance  lets  you  step  lorwa/d  or  backward  through  a 
file,  add,  delete,  or  change  a  record,  go  to  a  numbered 
record,  or  find  a  record  by  specified  fieW.  The  Find  command 
locates  any  record  when  you  enter  ail  (or  a  portion  of)  the 
desired  key.  Fieid  lengths  may  vary  from  record  to  record  lo 
allow  maximum  packing  of  informatkxi.  Files  may  be  sorted 
by  any  field,  and  any  field  may  be  specified  as  a  key. 
Sequential  files  Irom  other  programs  may  be  converted  to 
Flex-File  (ormaL  and  Flex-File  records  may  be  converted  to 
sequential  (WordPro,  PaperMate,  other  word  processors 
may  also  use  Flex- File  data).  Maximum  record  size,  fields 
per  record  and  order  of  fields  may  be  changed  at  any  time. 
MAILING  UtBELS 

With  typical  record  size  ol  127  characters,  each  disk  can 
handle  over  1000  records  (about  2800  with  8050  drive). 
Labels  may  be  printed  any  number  wkle,  and  may  begin  in 
any  cotjmn  position.  There  is  no  limit  on  the  number  or  order 
of  fields  on  a  label,  and  two  or  three  fiekis  may  be  joined 
together  on  one  line  (like  first  name,  last  name,  and  title).  A 
"type  of  customer"  field  allows  selective  printing. 
REPORT  WRITER 

print  any  field  in  any  column.  For  numeric  fields,  use 
decimal  point  |ustification  (and  round  to  any  accuracy). 
Define  any  column  as  a  series  of  mathematical  functions 
pertonred  on  other  columns.  Ttiese  functions  include 
arithmetic  operations  and  various  iog  and  trig  lijnctions. 
Pass  results  of  operatwns  such  as  ainning  total  Irom  row  to 
row.  At  the  end  of  the  report,  print  total  and/or  average  for 
any  cduma  Complete  record  selection,  including  field 
within  range,  pattern  match,  and  logical  functions  can  be 
specified  individually  or  in  combination  with  other 
parameters. 

FLEX-FILE  by  Micliiti  Rlltf  m 

Please  specify  equipment  configuration  when  ordering 


Low  Cost  Disk  Drive  for  PET/CBM 

PEDISK  li  from  cgrs  Microtech  is  a  new  disk  system  ready 
to  plug  into  your  large  keyboard  PET/CBM. 
PEDISK  II  offers  speed,  reliability,  IBM  compatibility. 
Complete  system  prices  wilh  DOS  and  cable: 
5"  40  track  1  drive,  143K  $525 

5'  40  track,  1  drive.  286K  690 

8"  IBM  3740  format  77  track  25DK  995 


PR06RAM  YOUR  OWN  EPROMS 

Snidliil  ftm  ftr  PET/CBM  J7S 

EPROM  Programmer  with  software  for  all  ROM  versions 
Includes  all  hardware  and  software  to  program  or  copy 
2716  and  2532  EPROMs 


Cei  Siftain 

Legal  Time  Accounting  Package  445 
Medical  Accounting  Package 
CmpMi  CIM  liiJHU  Siftnn  PKbit 

Can  be  tailored  to  meet  most  business  requireinenls. 

TechnKian's  Investment  Analysis  Package  500 

Dow  Jones  Portfolio  Management  1 29 

Personal  Tax  Catulator  65 

Tax  Preparatran  System  445 

Wordcraft  80  Wordprocessor  Package  325 

Pascal  Development  Package  235 

Assembler  Development  Package  99 

Intelligent  Temiinal  Emulator  30 

Soflpac-1  (Competitive  Software)  29 


FORTH  for  PET 

BY  L  C.  Cargile  and  IVIicftael  Riley  $50 

Fealures  incliKte: 

full  FIG  FORTH  model. 

all  FORTH  79  STANDARD  extensims. 

stnjctured  6502  Assembler  with  nested  decision  making 
macros. 

full  saeen  editing  (same  as  when  programming  in 
BASIC). 

auto  repeat  key- 
sample  programs 

standard  size  screens  (16  lines  by  64  characters). 

150  screens  per  diskette  on  4040, 4  80  screens  on  8050. 

ability  to  read  and  v^ite  BASIC  sequential  files. 

introductory  manual, 

reference  manual. 
Runs  on  any  16K  or  32K  PET/CBM  (including  8032)  with 
ROM  3  or  4,  and  CBM  disk  drive.  Please  specify  configuratkin 
wfien  ordering. 

Available  soon: 

Metacompiler  tor  FORTH  $30 

simple  metacompiler  for  creating  compacted  object  code 
vrfiich  can  be  executed  independently  (without  the  FORTH 
system). 


PaperMate 

60  COMMAND 
WORD 

PROCESSOR 

by  Michael  Riley 


Paper-Mate  is  a  full-featured  word  processor  for  CBM/PET. 
Paper-Mate  incorporates  60  commands  to  give  you  full 
screen  editing  with  graphics  for  all  1BK  or  32K  machines 
(including  8032).  all  printers,  and  disk  or  tape  drives. 

For  writing  text,  Paper-Mate  has  a  definable  keyboard  so 
you  can  use  either  Business  or  Graphics  machines.  Shift 
lock  on  letters  only,  or  use  keyboard  shift  lock  All  keys 
repeaL 

Paper- Mate  text  editing  includes  fksating  cursor,  scroll  up 
or  down,  page  forward  or  back  and  repeating  insert  and 
delete  keys  Text  bkx;k  handling  includes  transfer,  delete; 
append,  save,  load,  and  insert 

All  formatting  commands  are  imbedded  in  text  for 
complete  control.  Commands  include  margin  control  and 
release,  column  adjusl  9  tab  settings,  variable  line  spacing 
justify  text  center  texL  and  auto  print  forni  letter  (variable 
biKk),  Files  can  be  linked  so  that  one  command  prints  an 
entire  manuscript  Auto  page,  page  headers,  page  numbers, 
pause  at  end  of  page,  and  hyphenation  pauses  are  included. 

Unlike  most  word  processors.  CBM  graphics  as  well  as 
text  can  be  used.  Paper-Male  can  send  any  ASCII  code 
over  any  secondary  address  to  any  printer. 

Paper-Mate  functions  with  16/32K  CBM/PET  machines, 
with  any  printef.  and  with  either  cassette  or  disk 

To  order  Paper- Mate,  please  specify  configuratkKi 

Pi|Mf^Miti  H  dlik  ir  tiM  <0.00 

BASrclNfERPR™      $200 

Designed  to  support  the  CBM  6096  (6032  with  add-on  64  K 
board),  A  lull  inlerpretef  implementation  to  automatically  take 
acJvantage  of  the  extra  memory  available  to  the  8032. 


fiPI  BiiinlLi<|ir- t032/a050 
BPI  Accttitt  Dicilnbli  -  8032/8050 


30(1 
300 


Hl)fdll  SiftwiFI 
Complex  Mathematics 
Engineering  Mathematics 
General  Mathematics 
MCAPCircuit  Analysis  Program 
Energy  Miser 

Jiikitu  Siilit  far  PET  by  L  C  Cargile"""  ~ 

Excellent  4  part  harmony  music-write  for  list 

Avlimittd  SiniiEttfHi  (£PYX)  Fantasy  Games 


12.70 
12.70 
12,70 
21,00 
24.50 


MICRO-HEI^ERSI  lor  PET  by  Michael  Riley  10 

super  machine  language  version  ol  Olhelto 
Timil  Vlifm  /  Kit  &  Menu  by  Michael  Riley  JO 

hvo  excellent  machine  language  maze  programs 


252  Bethlehem  Pike 
Colmar,  PA  18915 


215-822-7727 


A  B  Computers 


WRITE  FOR  CATALOG 

Add  S1.25  per  (xder  for  shipping  We  pay  balance  of  UPS  surface 
charges  on  all  prepaid  orders.  Prices  listed  are  on  cash  discount 
basis  Regular  prices  slightly  higher  Prices  subject  lo  change 
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$";DP;"  YOU'RE  IN  THE  "; 

9005  PRINT100*B"  %  TAX  BRACKET. ": PRI 
NT"THE  ESTIMATED  USEFUL  LI 

FE  FOR":PRINT"DEPRECIATION 

9006  PRIWT"  IS  ";L;"  YEARS. ": PRINT  " 
THE  FIRST  YEAR  DEPRECIATIO 

N  IS  $";D5; "  AND  THE 

9007  PRINT"  SECOND  YEAR  DEPRECIATION 
IS  S";D6; " :?:GOSUB  11000: 

9009  PRINT"HIT  ANY  KEY  TO  CONTINE 

"; :GET  L$ : HOME:Q5=5 

9013  PRINT"  RETURN  ON  INVESTMENT:" 

9014  GOSUB11000: INVERSE:PRINT  TAB  (Q 
5) "YEAR  1","YEAR  2": NORMAL 

9015  GOSUB11000:PRINT"CASH  FLOW:" 

9016  Z9=F1:GOSUB15000 

9017  PRINT  TAB  (Q5)Z9$, 

9018  Z9=F2:GOSUB15000 

9019  PRINTZ9$:PRINT 

9020  PRINT"ASSET  APPRECIATION:" 

9021  Z9=A5:GOSUB15000 

9022  PRINT  TAB  {Q5)Z9$, 

9023  Z9=A6:GOSUB15000 

9024  PRINTZ9$:PRINT 

9030  PRINT"EQUITY  BUILDUP:" 
9032  Z9=EB:GOSUB15000 
9034  PRINT  TAB  (Q5)Z9$, 
9036  Z9=ET:GOSUB15000 
9038  PRINTZ9$:PRINT 
9040  PRINT"TAX  SAVINGS:" 
9042  Z9=TS:GOSUB15000 
9044  PRINT  TAB  (Q5) Z9$, 
9046  Z9=TT:GOSUB15000 
9048  PRINTZ9$ 
9055  GOSUB11000 
9060  PRINT"GROSS  RETURN:" 
9062  Z9=RO:GOSUB15000 
9064  PRINT  TAB  (Q5)Z9S, 
9066  Z9=RE:GOSUB15000 

9068  PRINTZ9$ 

9069  GOSUB20000 

9  071  G6=RO/DP:G6=INT{G6*10"2+.5)/100 

907  2  G7  =  RE/DP:G7  =  INT(G7*10''2+.5)/100 

9073  G6=G6*100 :G7=G7*100 

9074  PRINT"RETURN  ON  EQUITY  %":PRINT 
TAB(Q5) )G6;"%",G7;"  %" 

9075  GOSUB  20000:PRINT"HIT  ANY  KEY  T 
0  CONTINUE. . ."; :GET  L$ 

9079  GOTO  10000 

V=V*100 

V=100-V 

B=B*100 

F=F*100 

V=INT(V*10"2+.5)/100 
F^INT(F*10''2+.5)/100 
B=INT(B*10"2+.5>/100 


9080 
9082 
9083 
9084 
9100 
9110 
9120 


9130  GOTO10106 
10000  REM  MENU 
10010  HOME:PRIN 
10015  PRINT:PRI 
10017  INVERSE:? 

:PRINT 

10020  PRINT"<1> 

AGAIN" 
10025  PRINT 
10030  PRINT"<2> 

E  DATA" 
10035  PRINT 
10040  PRINT"<3> 
10050  PRINT 
10060  INPUTQ 
10070  IFQ=1THEN 
10080  IFQ=3THEN 

:PRINT"INVE 

NT"PROGRAM" 

10085  IFQ>3THEN 

10086  IFQ<1THEN 
10090  REM  MENU 
10100  HOME:PRIN 

10105  GOTO9080 

10106  PRINT 
10108  PRINT:PRI 

) "INVEST 
ORMAL:PRINT 
10110  PRINT"<1> 


T 

NT 

RINT  TAB  (17)  "INVEST 
": NORMAL 

TO  SEE  THE  SAME  DATA 


TO  CHANGE  OR  PRINT  TH 


TO  STOP  NOW" 


GOTO  9000 
PRINT"END  OF"; :INVERSE 
ST";  :  NORMAL: PRI 
:END 
10000 
10000 


NT: INVERSE :PRINTTAB( 17 

":N 
:PRINT 
CHANGE  FINANCIAL  DATA 


10 
10 

10 

10 

ig 

10 

10 

10 

10 

10 

1 

10 

10 


10 


CHANGE  THE  PAYMENT  DA 


PRINT  THE  DATA" 


STOP  NOW" 


1 

10 

10 

10 

10 

10 

11 


115  PRINT 
120  PRINT"<2> 

TA" 
122  PRINT 

125  PRINT"<3> 

126  PRINT 

127  PRINT"<4> 
130  PRINT 

135  INPUTQ 

140  IFQ<1THEN10100 

14  2  ONQTOTO10150,10152, 12000,10154 

150  GOSUB6000 

151  GOTO10155 

152  C=0:P{1)=0 
000 :REM  C  IS 
TART  COUNTER 

153  P (9) =0 :GOTO2200:REM 
T  AND  THEN  DO  MATH  TO 
UP  NEW  PAYMENTS 

154  PRINT"END  OF  PROGRAM 
GOSUB7000:REM  MATH 
GOTO9000:REM  PRINT 
GOTO10000 

GOSUB7000:REM  MATH 
GOTO9000:REM  PRINT 
PRINT" 


:P(2)=0 
ZEROED 


P(3)=0:GOSUB5 
TO  RES 


ZERO 
ADD  ' 


PAY MEN 


:END 


155 
158 
160 
165 
166 
000 


11010 
12000 


RETURN 
HOME:PRINT 
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ON  THE  PRINTER 


PRINT:PR 


TO 
TO 


CONTINUE. . 
STOP , 


12010  FLASH:PRINT"TURN 

":NORMAL:PRINT 
12015  PRINT:PRINT:GOSUB11000 

INT 
12020  PRINT"ANSWER  1 
12022  PRINT"ANSWER  2 

12024  PRINT:INPUTQ 

12025  PRINT:PRINT 

12026  IFQ=2TF^ENPRINT"END  OF  ";:INVERS 
E: PRINT" INVEST; ": NORMAL: PR 
INT"PROGRAM":END 

12030  DS=CHR$(4) 

12040  PRINTD$; "PR#1" 

12050  PRINT"" 

12100  PRINT" 

12110  FORCO=1TO200 rNEXTCO 

12130  PRINTTAB(5) ES 

12135  PRINTTAB( 5) "PROPERTY  ANALYSIS  R 

EPORT  FOR  ";A$ 
12140  PRINT" 
12150  PRINTTAB(5)M1S:PRINTTAB(5)M2$ 

12170  PRINTTAB{5) "ASKING/OFFERING  PRI 
CE  "; 

12171  Z9=PR:GOSUB15000:PRINTZ9$ 

12172  PRINT" 

12179  PRINT" 

12180  FORCO=1TO70:PRINT"*",-  :NEXTCO 

12181  PRINT" 

12190  PRINT  TAB(5)"CASH  FLOW  ESTIMATE 

,  BASED  ON  OWNING  THIS  PRO 

PERTY  FOR"; M; "MONTHS" 
12200  PRINTTAB(5) "THE  FIRST  YEAR,  12 

MONTHS  THE  SECOND  YEAR.  FI 

RST  YEAR  CASH  FLOW" 
12210  PRINTTAB(5) "BASED  ON  CURRENT  RE 

NTS  OF  ";R; "MONTHLY,  AND  T 

HE  2ND  YEAR  IS  BASED" 
12220  PRINTTAB(5) "ON  ANTICIPATED  RENT 

S  OF  ";AR;"  PER  MONT.   EST 

IMATED" 

12222  PRINTTAB(5) "APPRECIATION  IS  ";A 

;"  %" 
12230  GOSUB11000:PRINTTAB(5) "ALL  FIGU 

RES  ARE  APPROXIMATE" :GOSUB 

11000:PRINT"  " 

12232  FORCO=1TO400:NEXTCO 
12235  PRINTTAB(29) "1ST  YEAR 

2ND  YEAR" 
12237  FORCO=1TO400:NEXTCO 
12300  PRINTTABC5) "MONTHLY  RENTS 


12310  Z9=R9:GOSUB15000 

12320  Q9=LEN(Z9$) 

12330  PRINTTAB(11-Q9) Z9$; 

12340  Z9=AR*12:GOSUB15000 

12350  Q9=LEN(Z9$) 

12360  PRINTTAB(11-Q9)Z9$; 

12370  PRINT" 

12372  FORCO=1TO400:NEXTCO 

12400  PRINTTAB( 5) "MORTGAGE 


PAYMENTS 


12410  Z9=P8:GOSUB15000 

12420  Q9=LEN(Z9$) 

12430  PRINTTAB(11-Q9) Z9$; 

12440  Z9=P (9) *12:GOSUB15000 

12450  Q8=LEN(Z9$) 

12460  PRINTTAB(20-Q8) Z9$; 

12470  FORCO=1TO400:NEXTCO 

12500  PRINTTAB(5) "TAXES  +  INSURANCE 

12510  Z9=T9:GOSUB15000 

12520  Q9=LEN(Z95) 

12530  PRINTTAB(11-Q9) Z9$; 

12540  Z9=T*12:GOSUB15000 

12560  Q8=LEN(Z9$) 

12570  PRINTTAB(20-Q8)Z9$; 

12580  FORCO=1TO400:NEXTCO 

12600  PRINTTAB(5) "MISC.  EXPENSES 

12610  Z9=E9:GOSUB15000 

12620  Q9=LEN(Z9S) 

12630  PRINTTAB{11-Q9)Z9$; 

12640  Z9=E*12:GOSUB15000 

12650  QB=LEN(Z9$) 

12660  PRINTTAB(20-Q8)Z9$; 

12690  PRINT" 

12695  FORCO=1TO400:NEXTCO 

12700  PRINTTAB(5) "ESTIMATED  CASH  FLOW 

12710  Z9=F1 :GOSUB15000 

12720    Q9=LEN{Z9$) 

12730  PRINTTAB{11-Q9) Z9$; 

12740  Z9=F2:GOSUB15000 

12750  Q8=LEN(Z9S) 

12760  PRINTTAB{20-QB)Z9$; 

12770  PRINT" 

12780  FORCO=1TO400:NEXTCO 

12785  PRINT"      '  " 

12790  PRINT" 

12795  FORCO=1TO400:NEXTCO 

12800  PRINTTAB{5) "RETURN  ON  INVESTMEN 

T  ANALYSIS" 
12810  PRINT"        " 
12815  FORCO=1TO400:NEXTCO 
12820  PRINTTAB(40) "1ST  YEAR"; 
12822  PRINTTAB(ll) "2ND  YEAR" 
12830  PRINT" 

12835  FORCO=1TO400:NEXTCO 
12900  PRINTTAB(5) "CASH  FLOW  (FROM  ABC 

VE) 
12910  Z9=F1:GOSUB15000 
12920  Q9=LEN(Z9$) 
12930  PRINTTAB(11-Q9)Z9$; 
12940  Z9=F2:GOSUB15000 
12950  Q8=LEN(Z9$) 
12960  PRINTTAB{20-Q8)Z9$; 
12970  FORCO=1TO400 :NEXTCO 
13000  PRINTTAB(5) "ASSET  APPRECIATION 

13010  Z9=A5:GOSUB15000 

13020  Q9=LEN(Z9$) 

13030  PRINTTAB(11-Q9)Z9$ ; 
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13040  Z9=A6:GOSUB15000 

13050  Q8=^LEN(Z9$) 

13060  PRINTTAB(20~Q8) Z9$; 

13065  FORCO=1TO400 :NEXTCO 

13100  PRINTTAB(5) "EQUITY  BUILDUP  (APP 

ROXIMATE)         "; 
13110  Z9=EB:GOSUB15000 
13120  Q9=LEN(Z9$) 
13130  PRINTTAB(11-Q9)Z9$; 
13140  Z9=ET:GOSUB15000 
13150  Q8=LEN(Z9$) 
13160  PRINTTAB(20-Q8)Z9$; 
13165  FORCO=1TO400:NEXTCO 
13200  PRINT"  ":PRINTTAB(7) 

"YOUR  ESTIMATED  TAX  SAVING 

5  ARE" 

13202  PRINTTAB(7) "BASED  ON  A  TAX  BRAG 

KET  OF  ";B5; "  %" 
13204  PRINTTAB{7) "AND  A  LIFE  FOR  DEPR 

ECIATION  " 
13213  PRINTTAB(7) "OF  " ; L"  YEARS.  DEPR 

ECIATION" 
13215  PRINTTAB(7) "THE  FIRST  YEAR  IS  " 

;  INT  (D5) ; "  AND" 

13217  PRINTTAB(7) "THE  2ND  YEAR  IS  " ; D 

6  ;  "  .  " 

13218  PRINTTAB(7) "THE  FURNISHINGS  ARE 
WORTH  ";F 

13219  PRINTTAB(7) "%  OF  THE  PROPERTY  C 
OST.  " 

13224  PRINT"      " : FORCO=1TO400 : NEXTC 
0 

13225  PRINTTAB(5) "TAX  SAVINGS 

II  ^ 

13230  Z9=TS:GOSUB15000 

13240  Q9=LEN(Z9$) 

13250  PRINTTAB(20-Q9)Z9$; 

13255  Z9=TT:GOSUB15000 

13260  Q8=LEN(Z9$) 

13270  PRINTTAB(20-Q8) Z9$; 

13300  FORCO=1TO70:PRINT"-"; :NEXTCO 

13305  PRINT" 

13310  PRINTTAB(5) "YOUR  RETURN  ON  INVE 

STMENT  IS      "; 
13320  Z9=RO:GOSUB15000 
13330  Q9=LEN{Z9$) 
13340  PRINTTAB(11-Q9) Z9$; 
13350  Z9=RE:GOSUB15000 
13360  Q8=LEN(Z9$) 
13370  PRINTTAB(20-Q8)Z9$; 
13380  PRINT"       " 
13395  FORCO=1TO400:NEXTCO 
13400  PRINTTAB{5) "YOUR  DOWN  PAYMENT  W 

AS  $  ";DP 
13405  FORCO=1TO400:NEXTCO 
13410  PRINTTAB(5) "YOUR  %  RETURN  ON  IN 

VESTMENT  IS 
13430  Z9=100*  (RO/DP) :GOSUB15000 
13440  Q9=LEN(Z9S) 
13450  PRINTTAB(12-Q9)Z9$;  "  %"; 
13450  Z9=100*  (RE/DP) :GOSUB15000 


13470  Q8=LEN(Z9$) 

13480  PRINTTAB(18-Q8)Z9S;  "  %  "  ,- 

14800  D$=CHR$(4) 

14810  PRINTD$;"PR#0" 

14999  PRINT"END  OF  ";: INVERSE : PRINT" I 
NVEST; " :NORMAL: PRINT"PROGR 

AM": END 

15000  REM  PRINTUSING  ROUTINE 
15005  IFZ9<0THEN16000 

15010  REM  Z9=  VARIABLE  TO  BE  CHANGED 
15020  IF(100*Z9-INT(100*Z9))<.5THENZ9 
=INT(100*Z9)/100:GOTO150  3  0 

15022  Z9= (INT(100*Z9)+1) /100 

15024  REM  MOVE  ALPHANUMERIC  TO  STRING 

VARIABLE 
15030  Z9$=STR${Z9) 
15035  REM  ADD  DOLLAR  SIGN 
15045  REM  ADJUST  DECIMAL  IF  REQUIRED 
15050  Z9=LEN(Z9$) : I FZ9<=2THEN15200 
15055  Y9$=RIGHT$ (Z9$,3) 
15060  IFY9$<="$99"THEN15080 
15070  IFY9$=<" .99"THEN15220 
15080  Y9$=RIGHT$  (Z9$,2) 
15090  IFY9$<=" .9"THENZ9S=Z9$+"0" :GOTO 

15210 
1520t5  Z9$  =  Z9$  +  "  .00" 
15205  REM  NOW  TO  ADD  A  COMMA,  IF  REQU 

IRED 
15210  Z9=LEN(Z9$) 
15220  IFZ9<8THEN15400 
15230  Y9$=RIGHT$ (Z9$,6) 
15240  Y9$=","+Y9$ 
15250  Y9$  =  LEFT$(Z9$,  (Z9-6>)+Y9$ 
15255  REM  Z9$  IS  THE  EDITED  FIELD 
15260  79$=Y9$ 
15265  REM  Z9  WILL  CONTAIN  THE  LENGTH  ~ 

OF  THE  EDITED  FIELD 
15267  Z9=Z9+1 
15400  RETURN 
15752  GOSUB11000:PRINT 
16000  Z9$  =  STR$  (Z9) 
16010  REM 
16020  RETURN 
17  000  HOME: PRINT: INVERSE : PRINTTAB ( 17 ) 

"INVEST  ":NORM 

AL:PRINT 
17010  PRINT"THIS  IS  A  REAL  ESTATE  ANA 

LYSIS" 
17020  PRINT"PROGRAM,  WHICH  WILL  FIGUR 

E  CASH  FLOW," 
17030  PRINT"EQUITY  BUILDUP,  ASSET  APP 

RECIATION" 
17040  PRINT"AND  TAX  SAVINGS  FOR  AN  IN 

COME  PROPERTY." 
17050  PRINT 
17060  PRINT"IF  THE  LOANS  YOU  HAVE,  OR 

ARE  GETTING" 
17070  PRINT"FOR  A  PARTICULAR  PROPERTY 

ARE  FOR" 
17080  PRINT"A  DIFFERENT  TERM,  OR  AT  A 
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DIFFERENT" 
17090  PRINT"RATE  THAN  WHAT  THE  PROGRA 
17070  PRINT"FOR  A  PARTICULAR  PROPERTY 

ARE  FOR" 
17080  PRINT"A  DIFFERENT  TERM,  OR  AT  A 

DIFFERENT" 
17090  PRINT"RATE  THAN  WHAT  THE  PROGRA 

M  ASKS  FOR, " 
17100  PRINT"INPLIT  THE  ANSWER  AS  CLOSE 

AS  POSSIBLE.  " 
17105  PRINT 
17110  PRINT"FOR  INSTANCE,  YOU  CAN  USE 

AN  INTEREST" 
17120  PRINT"RATE  FROM  10  TO  18%  IN  .5 

STEPS" 
17130  PRINT"IF  YOUR  LOAN  HAPPENS  TO  B 

E  AT  11.7  5%, " 
17140  PRINT"USE  THE  CLOSEST  ANSWER — 1 

1.5%" 
17150  PRINT 

17152  PRINT:GOSUB11000:PRINT 
17160  PRINT"HIT  ANY  KEY  TO  CONTINUE.. 

."; :GETL$ 
17190  HOME:PRINT 
17200  PRINT"IF  YOU  MAKE  AN  ERROR  IN  A 

NSWERING, " 
17210  PRINT"JUST  CONTINUE,  AS  YOU'LL  ~ 

HAVE  THE  " 
17220  PRINT"CHANCE  TO  CORRECT  YOUR  DA 

TA  IN  A" 
17230  PRINT"MOMENT. " 
17240  PRINT 
17250  PRINT"ALSO,  ONCE  YOU  HAVE  THE  D 

ATA  INTO" 
17260  PRINT"THE  COMPUTER,  YOU'LL  BE  A 

LLOWED  TO" 
17270  PRINT"CHANGE  IT,  AS  YOU  WISH. 

II 

17280  PRINT 

17290  PRINT"SO,  YOU  MIGHT  WANT  TO  SEE 

THE  RESULTS" 
17300  PRINT"OF  AN  INVESTMENT  WITH  $10 

,00  0  DOWN," 
17400  PRINT"AND  SEE  WHAT  HAPPENS  IF  Y 

OU  PUT" 
17410  PRINT"$15,000  DOWN.   OR  IF  YOU  ~ 

TAX  BRACKET" 
17420  PRINT"WAS  A  BIT  HIGHER,  OR  IF  T 

HE  PAYMENTS" 
17430  PRINT"STRETCHED  OUT  A  BIT  LONGE 

R,  AND  SO  ON." 
17440  PRINT 
17450  PRINT"WHEN  YOU  HAVE  THE  RESULTS 

YOU  WANT, " 
17460  PRINT"YOU  CAN  ASK  FOR  A  PRINTOU 

T.   ONCE 
17470  PRINT"YOU  GET  A  PRINTOUT  OF  THE 

INFORMATION, " 
17480  PRINT"THE  PROGRAM  WILL  END.  " 
17482  PRINT 

17490  INVERSE:PRINT  TAB  (17)  "INVEST"  "" 


"  :  NORMAL 
17800  RETURN 
20010  RETURN 
21000  REM 
2114  2  H0ME:VTAB6 
2114  3  HTAB  16 

21144  SPEED=255 

21145  INVERSE:PRINT  "INVEST 

": NORMAL: PRINT: PRINT: PR 

INT 
21150  NORMAL 
21160  PRINT 

21165  GOSUB11000:PRINT 
21170  PRINT" A  REAL  ESTATE  ANALY 

SIS  PROGRAM" 
21175  PRINT 
21180  GOSUB11000 
21190  PRINT 

21200  PRINT" GREGORY  R.  GLAU" 

21210  PRINT"       P.O.  BOX  1627" 

21220  PRINT"       PRESCOTT  AZ  86302" 

21250  PRINT:GOSUB11000:PRINT 

21280  PRINT 

21300  PRINT"  HIT  ANY  KEY  TO  CO 

NTINUE. . . "; :GETL$ 
21900  SPEED=255 
22000  NORMAL 
22010  RETURN 

Program  2. 

1  CPEN  #1..4.e."K^" 

2  DIH  h$(Sy>..A$(y9).ril|:(S8;'..M2$(Se)..p<10 
''>  •  Zy$'-  '^0 ) .  'iW-  ;-ifi  ':i 

60  READ  TEriF-t:!<TM)=TEf-p 
220  READ  TErp:£l(Y,I)=TEf1P 
440  F^rD  Te-P--E2(Y.:I)=TEMP 
iWe  ?  ''HIT  ANY  Y£i  TO  CCWTIHUE.  . .";  ^GET 
#1 ..  TEMP 

2604  wim  "■l:l:;LEHRVl:oow^^:^" 

2905  ?  ='l  IWJEsT 

t"^-^  "PLEASE  HrlSiCR  THE  FOLLOWING 
II 

2008  F-RIHT  "IhHSWER   'EHD'   TO  sTnp  \m\<2 

2010  FvINT   "TODAY'S  DATE  "^^INPHT  E* 

2030  PF:InT   "PROPERTY  AEiRESS  "^^INPHT  hI 

2032  ?  "{CLEAR}" 

2040  ?  =?  "fllSC  INFO  Ci>"j:I^FUT  Mi* 

2050  ?  "MISC  I^Fu  (2)"i  ^IHF'UT  ri2$ 

2060  ?  -?   =?  "ASK:INi:/uFFERIHG  F1<ICE";PF; 

2070  ?  "{CLEAR}" 

20?6  ?  "COHSLLT  WITH  YOUR  ACCOtlfTAUT  -  I 

PLEASE ! " 

2081   ?  "ESTIMATED  LIFE  FOR  DEPRECIATION 

IN  YEAR'S;"  J  a^PUT  L^? 

2^"5  '''  ""  {CLEAR} " 

2^  ?  "ESTIMATED  APF-RECIATHJt-*  FtR  YEAF"" 

;  =  I^PUT  A 
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2890  ?  "{CLEAR}" 

2991   ?  "CURRerr  total  rents  per  tiONTH";^ 

INPUT  R 

2100  ?  "AHTICIF-ATED  TOTAL  REhlTS  FtR  mn 

H" }  ■  I^F'UT  f^ 

2115  ?  'F-ROPERTY  THIS  VEAR'S'^WUT  H 

2120  ?  "TAXES  +  I^lSLMttCE  FtR  niMH";aM 

PUT  T 

2146  ?  "ESTIMATED  EXPENSES  PER  ftSTTH";:! 
fFUT  E 

2147  ?  "iCLEAR;}" 

2150  ?  "r<  TA>-;  BRAi::KED  VOU'R-E  IN  (3e'/;=3e) 
";aHPUT  B 

2162  ?  ■■?  "Da*l  F'AYriENT".i=IMF'UT  DF' 
2200  ?  "(CLEAF:^" 

2290  ?  "Dj  you  L-iAHT  TO  CHAfKE  THIS  <1=YE 
S>"; = INPUT  Q 

2410  ?  =?  "COR-FlECT  F'AYMEHT  TOTAL";  :UPUT 
TB1='  =  F'(9>=TEMP 
3832  ''•  "{CLEi^'}" 

5800  ?  "CCLEAR}"^?  ^?  "mU  l€  HAlt  TO  FI 
OJRE  YlJUfi;":?  "MONTHLY  PAYrEHTS  FOR  THIS 
F-ROFtRTY." 
5001   ?  "YOU  CAN  INPUT  LP  TO  3  PAYMEt-TrS." 

5605  ?  ^?  "I YOU  MJST   IhfUT  SOflETHIW:i" 

5806  ?  "1~EUEN  IF  '-.^OU  CHANGE  IT  LATER  0 
HI" 

5087  ■? 

5250  ?  "YEARS  ( 15- 28-25 )";  a^PUT  TEf1P^Y( 

C::-=TEMP 

5318  PRINT  "FtRCENT  RATE".;  =  INPUT  Q 

5400  ?  "AflOUNT  OF  LOhN";  ^NPUT  TEflF'^wJ:;' 

=TEMP 

6800  ?  "CCLlAF.;}" 

6310  ?  "WHEN  DONE.   ANSWER- 1 '^  ^IrPUT  Q 

6315  ?  "iCLEAR}"^^- 

6350  ?  "CuF*:ECT  OHTE";a^PUT  Ef- 

6360  ■■■■  "ACCtF£3S".;^I[FIJT  Af-GOTO  6080 

6365  ?  "MISC  INFO  ";:I^FUT  mJ^GOTO  6080 

6370  ?  "MISC  IhFO  ".-I^'FUT  M2-|m:0T0  6088 

6388  ^  "ASKING^^OFFERIHG  PRICE"  i  ^^FUT  PR 

€39Q  ?  "LIFE  FOR  DEPRECIATION";  = I hFUT  L 

6400  ■''  "^  hPPRECIATIOH  EXPECTED";  ^ INPUT 

A 

6410  ?  "CURRENT  RENTS"; ^NPUT  R:GOTO  680 

0 

6420  ■•■•  "ANTICIPATED  REt-fTS" ;  ^  INPUT  AR 

6430  ■-'  "MiJNTHS  OF  OltERSHIP  THIS  YEAR:" ;  ■■ 

If-FUT  M 

6440  ■•-  "EST  TAKES  +  INi;URHNCE/fTJNTH^i  ^N 

FUT  T-GOTO  6000 

6450  ■?  "EST  EXPENSES  PER  MONTH";  ai-PUT  E 

:GnTn  6880 

646.0  ?  "■-;  LAf-Ci  i.iALUE";at-FUT  U 


6470  ?  "TAX  BF:ACKET";  rli-FUT  B^GuTO  6808 

64f«  ?  "lREf-B-BEF:-IF  YOU  CHAtCE!" 

6482  ?  "lYOJR  MCWTHLY  FttYMENTS.   THE  MONT 
FLY  I " 

6483  ?  "IPAYre-ffS  SHOULD  ALSO  E£  CHAh<!:ED 

6484  ?  "DOtW  PAYMENT";  ahfUT  ^P 

6490  ■?  "FURHISHINi:S  :<  OF  UALUE";  -imM  F 
=GOTO  6000 

7000  ?  "^clear;":position  18.18:?  " d 

oim:  math '-'' 

9000  ?  "-rCLEAR}": POSITION  17.1:?  " !  IHUES 
Tf'^GOSUB  11800:?  :?  "YOU  WILL  01*]  THIS 
F-ROPERTY   ";M:?  "ffiNTHS  THIS  YEAR.    J\£  CA 
SW  FLUi.i" 

9001  ?  "IS  BftiED  OH  CURRENT  F£NTS  THE  IS 
T" 

9009  ?  "HIT  mi  kEt'  to  CONTINUE.  .  .";  ■■fU 

ttl..TEnp:?  "i:CLEAF:J";:i35=5 
9014  GOSUB  llOSe^F-OKE  SAiS^?  "lYEAR  II" 
."lYEAR  21" 

9017  FOKE  :J5..Q5:?  Z9$. 
9034  FCiKE  ;S..C!5:?  29*.. 
9844  FtJKE  I55.i25:?  79$. 
9664  F1*;E  ;E.Q5:?  29$. 
9674  ?  "RETURW  m  ESJITY  v'^^FWE  85.16  =  ? 

UK  • "  V"  r'' " "  V" 

5675  G&-X1B  28800 ^-^^  "HIT  Af-ff  KEY  TO  CONTI 

HUE.  .  ."  =  GET  #1.TEHF' 

18010  ?  "-CCLEAF:}" 

10017  ?  "I  IHUEST 

10080  IF  Q=3  T^€N  ?  "B€\  OF   I  INiJEST  1   F1?0 

GRftf1"=Em 

10108  ?  "OCLEAR}" 

18188  ?  "12  Kli-HH  IMvEST 

1C2  iSCMO" 
12'000  END 

12-026  IF  Q=2  THEN  ?  "END  OF   IIHIESTI   FF'O 
GRAti":END 

15055  Y9$=29$(Le-KZ'9$>-3;' 
150&'0  Y9$=29l(  LBK  29$  >-2 ) 
15090  IF  Y9$<=".9"  THEN  Z^$( LBK 29$ >+ U= 
■'0"m:OTO   15210 
15200  Z9$<  LENi; 29$  )+\  )=" .  08" 
15210  29=LBK29$) 
15230  Yy$=2-9$(Z9-6> 
15240  TEt-p$=Y9$  ■■  'i  3$= " . "  ■■  Y9$C  2  )=TEtP$ 
15250  TB^^*=Z9$<  1 .  Z9-6 ')  =  TEHP2$='Y9$  ■■  Y9$=T 
ETf  $  ■■  Y9$(  LEH<  "•i'-9$>+l  )=TErF2$ 
17498  ■"••  "1  IWJE3T 

I" 

21142  ?  "CCtEAFi^" 

21143  F-OSITION  16;6 

21144  F£M 

21145  ?  "1IW-£ST1"=?  =?   :?  ■■? 

21380  ?  "       HIT  m{  KEf  TO  CONTmJE.  . ."; 


'GET  #i.A 
21980  REn 
22808  REM 


Mr.  Glati  /i«.s  ofjcrrd  lo  make  disk  copies  of  llii' 
program  for  A ppl I'  owners:  send  him  $3  and  a  disk  in  an 
SASE  mailer.  © 


\ferbatim 

flexible  disks 

Call  Free  (800)  235-4137  for 

prices  and  information.  Dealer 
inquiries  invited.  C.O.D.  and 
charge  cards  accepted. 

PACIFIC 
EXCHANGES 

100  Foothill  Blvd. 

San  Luis  Obispo.  CA  

93401.  In  Cal  call 
1800)  592-5935  or 
1805)  543-1037 


VISA' 


DISK  DRIVE  WOES? 
PRINTER  INTERACTION? 
MEMORY  LOSS? 
ERRATIC  OPERATION? 

Don't  W.V  ^^  so 

Blame  The 
Software! 

Power  Line  Spikes,  Surges  &  o.»^  ««-,«=    '^^^^'     lso-2 

Hash  could  be  the  culprit!  Pal,  #4.259,?05     "^^ 

Floppies,  printers,  memory  &  processor  ollen  interact!  Our 
patented  ISOLATORS  eliminate  equipment  interaction  AND  curb 
damaging  Power  Line  Spikes,  Surges  and  Hash. 

•  ISOLATOR  ()S0-1)  3  liller  isolated  3prong  sockets;  integral 
Surge/Spike  Suppression;  1875  W  Maximum  load,  1  Kw  load  any 

socket S6Z.95 

•  ISOLATOR  (IS0.2)  2  filter  isolated  3 prong  socket  banks;  (6 
sockets  total);  Integral  Spike/Surge  Suppression;  1B7S  W  Max 
load,  1  KW  either  bank , S62.95 

•  SUPER  ISOLATOR  jlSO-3),  similar  to  ISO-t  except  double 
filtering  &  Suppression $94.95 

■  ISOLATOR  (ISO-4),  similar  to  ISO-t  except  unit  tias  6 
Individually  filtered  sockets St06.95 

•  SUPER  ISOLATOR  (ISO-11)  similar  to  ISO-2  except  double 
filtefing  &  Suppression S94.95 

•  CIRCUIT  BREAKER,  any  model  (add-CB) Add  $  8,00 

•  CKT  BRKR/SWITCH(PILOT  (-CBS) Add  $16.00 

AT  YOUR                                 Master-Card,  Visa,  American  Express 
D  EAL  E  RS                                        Order  Toll  Free  1  ■800-225-4876 
(except  AK,  HI,  PR  &  Canada) 


/^^ Electronic  Specialists,  Inc. 

171  South  Uain  Street.  Naticli.  Mass,  01760 

Technical  &  Non-800:  1-61 7-6S5-1 532 


LABEL),  Y  (LABEL,X)  LABEL  +  lNDX-1 


6502  Assembler/Editor 


APPLE 
ATARI 
PET 


SYM 


[Before  you  buy  that  off-brand  Assembler/Text  Editor,  note  that  EHS  is  the  only  company  that  provides  a  | 
line  of  compatible  ASM/TED's  for  the  PET/APPLE/ATARI/SYM/KIM  and  other  microcomputers. 

IWhen  you  make  the  transition  from  one  of  these  6502-based  microcomputers  to  another,  you  no  longer! 

Ihave  to  relearn  peculiar  Syntax's,  pseudo  ops,  and  commands.    Not  only  that,  EHS  ASM/TED's  are  the 

[only  resident  6502  Macro  Assemblers  availiable  and  they  have  been  available  for  several  years.  Thus  you 
can  be  sure  they  work.  Our  ASM/TED's  may  cost  a  little  more  but  do  the  others  provide  these  powerful 
features:    Macros,  Coniditional  Assembly,  String  Search  and  Replace,  or  even  up  to  31  characters  par  label?  | 

I  Before  you  spend  your  money  on  that  other  ASM/TED,  write  for  our  free  detailed  spec  sheet. 


MACRO  ASM/TED 

For  APPLE/ATARI/PET/SYM/KIM 
Other  than  our  MAE,  no  other  assembler 
is  as  powerful. 

Macros/Conditional  Assembly. 
Extensive  text  editing  features 
Long  Labels 

Designed  for  Cassette -based  systems. 
$49.95 


MAE   ASM/TED 

For  APPLE/ATARI/PET 
The  most  powerful  ASM/TED 
Macros/Conditional  and  Interactive  Assembly 
Extensive  text  editing  features 
Long  Labels 
Control  files 

Designed  for  Disk-based  Systems. 
$169.95 


V/S4* 


Eastern  house  software 

3239  Linda  Drive  PHONE  ORDERS 

Winston-Salem,  N.  C.  27106      USA    (919)924-2889 
(Dealer  Inquiries  Invited)  (919)  748-8446 


MostorCoid 


.EN     .BY       .OS      .BA 
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Developing  A 

Business 

Algorithm 

Keith  Folkner 
Venice,  FL 


Tlic  heart  of  a  computer  program  is  its  algorithm 
proccdinx'.  This  is  the  case  in  this  program.  The 
purpose  of  the  program  is  to  solve  a  simple  and 
fairly  common  problem  in  business:  if  a  customer 
wishes  lo  lease  a  durable  article,  with  a  view  toward 
buying  it  at  the  end  of  the  lease,  what  should  the 
rental  payment  be?  As  written,  this  program  limits 
the  term  to  6  or  1 2  or  24  or  M'y  months,  and  includes 
con,sicleration  of  an  annual  charge  for  insurance. 
These  considerations  were  part  of  a  specific  user's 
business  enviioinnenl. 

The  program  uses  an  algoritlnn  to  calculate 
llie  lease  |Jaymenl  anti  then  verifies  its  result  by 
simulating  tiie  pas.sage  of  time  and  showing  that 
the  expected  result  actually  happens.  This  will  be 
illustrated  in  detail  later.  What  is  more  important  is 
how  tlie  algorithm  was  dcvclo]3ed. 

Creating  An  Interest  Algorithm 

Almost  always,  the  idea  behind  an  algorithm  is 
very  simple.  This  is  ceitainly  true  here.  The  main 
idea  is  that  interest  is  the  protliu  t  of  principal,  rate, 
and  lime.  This  is  the  simple  formula  which  most  of 
us  have  forgotten  since  high  school. 

Applying  a  siiuple  formula  can  be  a  complex 
task,  but  is  usually  understandable  in  small  pieces. 
For  an  ex;nnple  see  Diagram  1 ,  whicli  merely  illus- 
tiates  that  P  dollars  will  grow  to  I'  +  P  *  R  *  I 
dollars  in  T  at  rate  R.  Ihis  process  can  be  treated 
in  rever.se:  if  monev  is  to  accunuilate  at  interest  in 
order  lo  be  worth  P  dollars  at  fulme  time  T  at  rate 
R,  the  present  value  of  that  money  is  P/(  I  +  R  *  1) 
dollars.  These  simple  fornuilae  are  the  heart  of  all 
interest  calculations,  however  complicated  they 
become, 

Diagraiu  2  shows  the  xalues  of  each  of  six 


DIAGRAM  1 

-timt-  T- 


PAST 

4 


PRF.SKNT 

><e 


—  limi?  T 


$P- 


-4  SP  +  P*R*r 
SP/(1+R*T)- 


KUTURE 

> 


^SP 


payments  of  P  dollars  each,  at  intervals  of  unit  time 
(that  time  which  is  the  basis  of  the  interest  rate,  e.g. 
2%  per  month,  irnit  time  would  be  one  month). 

DIAGRAM  2 
PRESENT  Pertoal1l7tfie?uture: 


I 
$P 


2 
$P 


3 
SP 


4 

SP 


5 
$P 


6 
$P 


P/(l+R)  e 

P/(I  +  R)'T'2  <- 

P/(l+R)'^3  <- 

p/(l+R)"^4  <- 

P/(14R)^5  '^ 

p/(i+R)4>6  e- 


Presenl  value  of  .six  payments  of  $P  with  interest  rale  R. 

The  above  is  simple  high  school  math.  To  add 
up  the  values  of  the  six  payments,  we  need  another 
idea  from  high  .school.  The  sum  of  a  geometrical 
|M"ogression  of  N  tei'ms,  fust  A,  ratio  X: 

S  =  A  +  A*X  +  A*Xt2  +  A*Xl^3  +  ...  +  A*xf  (N-1) 
=  A*  xtN-1 
X-1 

By  sub.stituting  P/(  1  +  R)  1"  (i  for  A,  and  ( 1  +  R)  for 
X,  we  get: 

S=  P  ^  il  +  R)^6-l 

(1+R)'f6  1  +  R-l 

I 


=   I   *<» 


(1  +  R)t'6 


) 


How  monev  increases  when  ihe  interest  rate  is  R  during  timeT. 


The  value  S  above  is  the  present  value  of  what 
the  customer  will  eventuallv  pay  in  lea.se  payments, 
six  of  ihctu  in  iliis  example.  That  money  must 
equal  the  present  value  of  the  contract,  which  is  the 
value  of  t tie  article  being  leased,  reduced  by  the 
value  it  will  fetch  after  the  lease  is  done,  and  in- 
creased b\  some  fee  for  insurance. 

Let's  delve  into  the  specific  workings  of  the 
program.  Table  1  identifies  the  variables  used. 

TABLE  1 

Variable    Meaning 

D  Fraction  to  buy  it  after  lease 

F  =  1 +R  (for convenience) 

I  Annual  insurance  premium  factor 

P  Payment  each  month  of  lease 

Q  Optional  price  to  buy  after  lease 

R  Rateof  return  as  9f  monthly 

S  State  sales  tax  rate 

T  Numberof  months  and  payments 

V  Value  of  the  article  being  leased 

W  Worth  of  contract  (computed) 

Z  Insurance  factor  (computed) 

l  he  program  collects  inpiU  vahies  lor  1.  R,  S, 
1  .  and  D;  since  I.  R.  and  S  will  usualh  not  change, 
the  program  knows  standard  values  lor  these, 
which  should  be  set  to  vour  standards,  not  those 


EASY  TO  USE  —  Letter  Perfect  is  a  single  load  easy  to  use  program.  It  is  a  menu  driven,  character  orientated  processor 
with  the  user  in  mind.  FAST  machine  language  operation,  ability  to  send  control  codes  within  the  body  of  the  program, 
mnemonics  that  make  sense,  and  a  full  printed  page  of  buffer  space  for  text  editing  are  but  a  few  features.  Screen  Format 
allows  you  to  preview  printed  text.  Indented  margins  are  allowed.  Data  Base  Merge  with  DATA  PERFECT  by  LJK,  form 
letters,  accounting  files  and  mailing  labels  only  with  MAIL  MERGE/UTILITY  by  LJK.  FEATURES  -  Proportional/ 
Incremental  spacing  *  Right  Justification  *  File  Merging  *  Block  movement  "  Headers*  Footers  *  Print  Multiple  Copies  * 
Auto  Page  Numbering  *  Scroll  forward/backward  *  Search  and  Replaces  *  Full  cursor  control  *  Underlining  *  Boldface  ' 
Superscripts  *  Subscripts  *  Auto  page  numbering  *  Insert  character/line  *  Delete  character/line  *  Centering  *  Horizontal 
tabs/changeable  *  Multifunction  format  line  (line  spacing  —  left  margin  —  page  width  —  lines/page  —  change  fonts  —  top/ 
bot  margin  adjust)  MUCH  MORE!     S149.95 

ATARI  VERSION  2.0  #2001 

Compatible  with  Atari  DOS.  Uses  proportional  font,  right  justified  with  Atari  825 /Centronics'  737,  739  printers.  Uses 
EPSOiy  MX'  Series  +  Graf trax /italicized  font.  Can  mix  type  fonts  on  same  page; mix  boldface  and  enhanced  font  in  same 
line  with  justification.  Can  be  used  with  1GK  Atari /40Q. 

"Compared  to  the  price  of  many  other  word  processors,  this  package  is  a  steal.  It  does  everything  the  advertisement 
claims  and  more.  On  top  of  this  the  software  is  very  easy  to  use."  A.N.A.L.O.G.  MAGAZINE 

APPLE  VERSION  5.0  #1001 

DOS  3.3  compatible  -  Use  40  or  80  column  interchangeably  (Smarterm  -  ALS;  Videoterm-Videx;  Full  View  80  -  Bit  3 
Inc.;  Vision  80  —  Vista;  Sup-R-Term  -  M&R  Ent.)  Reconfigurable  at  any  time  for  different  video,  printer,  or  interface. 
USE  HAVES  MICROMODEM  ll*LCA  necessary  if  no  80  column  board,  need  at  least  24  K  of  memory.  Files  saved  as 
either  Text  or  Binary.  Shift  key  modification  allowed-  Data  Base  Merge  compatible  with  DATA  PERFECT*  by  LJK. 

"For  SI  50,  Letter  Perfect  offers  the  type  of  software  that  can  provide  quality  word  processing  on  inexpensive  micro- 
computer systems  at  a  competitive  price."  INFOWORLD 


DATA  PERFECT 


T.M.  LJK 


APPLE  &  ATARI 

DATA  BASE  MANAGEMENT 


$99.95 


Complete  Data  Base  System.  User  orientated  for  easy  and  fast  operation.  100%  Assembly  language.  Easy  to  use.  You  may 
create  your  own  screen  mask  for  your  needs.  Searches  and  Sorts  allowed,  Configurable  to  use  with  any  of  the  80  column 
boards  of  Letter  Perfect  word  processing,  or  use  40  column  Apple  video.  Lower  case  supported  in  40  column  video. 
Utility  enables  user  to  convert  standard  files  to  Data  Perfect  format.  Complete  report  generation  capability.  Much  Morel 

T.M.  LJK  $29.95 

APPLE  &  ATARI 


EDIT  6502 


This  is  a  coresident  —  two  pass  ASSEMBLER,  DIS- 
ASSEMBLER, TEXT  EDITOR,  and  MACHINE  LANGU- 
AGE MONITOR.  Editing  is  both  character  and  line 
oriented.  Disassemblies  create  editable  source  files  with 
ability  to  use  predefined  labels.  Complete  control  with  41 
commands,  5  disassembly  modes,  24  monitor  commands 
including  step,  trace,  and  read/write  disk.  Twenty  pseudo 
opcodes,  allows  linked  assemblies,  software  stacking 
{single  and  multiple  page)  plus  complete  printer  control, 
i.e.  paganation,  titles  and  tab  setting.  User  can  mo.ve 
source,  object  and  symbol  table  anywhere  in  memory. 
Feel  as  if  you  never  left  the  environment  of  BASIC.  Use 
any  of  the  80  column  boards  as  supported  by  LETTER 
PERFECT,  Lower  Case  optional  with  LCG. 


MAIL  MERGE/UTILITY 

This  menu  driven  program  combined  with  LETTER 
PERFECT  allows  user  to  generate  form  letters  and  print 
mailing  labels.  With  the  Atari,  you  may  CONVERT 
ATARI  DOS  FILES,  or  Visicalc  files  compatible  for 
editing  with  LETTER  PERFECT.  Utility  creates  Data 
Base  files  for  Letter  Perfect. 


LOWER  CASE  CHARACTER 
GENERATOR 


$34.95 


LJK  DISK  UTILITY 


APPLE   S29.95 


This  menu  driven  program  allows  the  user  to  manipulate  a 
variety  of  different  file  types.  Binary,  Text,  and  Source 
files  may  be  easily  converted  into  each  other.  The  pro- 
gram may  be  used  with  APPLESOFT',  VISCALC*,  and 
other  programs.  These  program  files  may  be  readily 
adapted  for  multiple  use  including  editing  with  LETTER 
PERFECT  word  processings. 


Lower  Case  Character  Generator  for  the  Rev.  7,  Apple  II 
or  ll-^  computers.  When  installed,  this  Eprom  will  generate 
lower  case  characters  to  the  video  screen.  Lower  case 
characters  set  has  two  dot  true  descenders.  Installation 
instruction  included.  Manual  includes  listing  of  software 
for  full  support  and  complete  instructions  for  shift  key 
modification-  Compatible  with  LETTER  PERFECT. 
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actually  shown  in  tlie  listing. 

Lines  l-!()  lo  I  70  calculate  the  uisurance  factor 
Z.  For  a  six-month  lease,  Z  is  hali  the  annual  in- 
surance (actor  I.  For  leases  longer  than  a  year,  Z  is 
I  plus  the  present  value  of  I  for  each  future  year  of 
the  lease. 

Line  lyO  computes  the  total  worth  of  the 
contract  (the  value  of  the  article)  plus  the  fee  for 
insurance,  miruis  the  present  value  of  the  article's 
eventual  selling  price.  That  present  value  is  ex- 
pressed as  D*V  /  F/  F       T.  In  plain  f'nglish,  thai  is 
the  purchase-fraction  D  (for  example  .  1 0  to  buy  at 
liV/i  of  original  price),  times  V  the  item's  value, 
clividcci  by  F       T  to  bring  the  future  selling  price 
into  the  present,  luriher  divicled  by  F,  so  that  the 
customer  can  buy  the  article,  not  on  the  day  of  the 
final  payment,  but  a  month  later. 

At  last  the  payment  P  can  be  computed,  since 
W  (as  calculated  in  line  190)  is  equal  to  the  simi  of 
the  series  of  payments  calculated  above  as  S.  fhe 
payment  anioiuit  P  is  finally  calculated  in  line  210, 
and  is  truncated  to  the  last  cent,  not  rounded  to  the 
neai  est  cent. 

The  loo|j  in  line  250  sinuilates  the  behaviour 
oi  the  lease  as  time  passes.  Each  month  the  in- 
debtedness X  i.s  multiplied  by  F  the  interest  factor, 
then  a  payment  of  P  reduces  that  debt.  Any  debt 
remaining  after  all  1"  payments  have  lieen  made, 
represents  the  result  of  having  ignored  all  the 
fractions  of  pennies  which  were  clrop[)ed  in  line  2!^0. 

Well,  you  didn't  think  we  were  going  to  let  the 
customei  get  away  with  fractions  of  pennies,  cUd 
voii?  So  the  calculation  in  line  270  will  show  an 
amount  slightly  greater  than  the  purchase-fraction  D 
times  the  \alue  V.  laxation  laws  may  insist  upon 
some  minimum  purchase  fraction,  and  the  above 
methods  ensure  that  the  final  price  will  be  at  least  D 
times  V,  and  ustially  a  few  cents  more. 

The  results  of  all  this  are  promptly  displayed  on 
the  scieen.  'I'he  value  of  die  monthly  payment  is 
shown,  and  tlie  eventual  (optional  purchase  price  is 
shown,  both  before  and  after  state  sales  tax. 

Add  this  program  to  your  bag  of  tricks,  and  you 
will  have  a  new  and  potent  way  to  attract  investors. 
'Fo  verii'v  that,  just  take  a  modest  (nowadays)  interest 
rate  sucli  as  29(  per  month,  and  calculate  the  in\  estor's 
annual  rate  of  return,  which  is  ( 1+  R)      1 2  -  1 .  I 
leave  to  vou  the  task  of  exploiting  that  algorithm. 


Program  I. 

100    REM 


LEASE    CALCULATION 
110    REM    WITH    OPTION    TO    BUY 
120    REM 
130    GOSUB550 
140    REM    CALC    INSURANCE 
150    IFT=^6THENZ  =  I/2:GOTO180 
160    Z=I:IFT>12THENZ  =  Z+I/F''12 


170    IFT>24THENZ  =  Z-(-I/F"24 

180    REM    CALC    WORTH    OF    LEASE 

190    W=V-(-V*Z-D*V/F/F''T 

200  REM  CALC  PAYMENT 

210  P=R*W/(1-F"-T) 

220  REM  ROUND  TO  LAST  CENT 

230  P=.01*INT(P*100) 

240  REM  CALC  FINAL  PRICE 

250  X=W:F0RN^1T0T:X=X*F-P:NEXTN 

260  REM  BUY  IT  1  MONTH  LATER 

270  Q=X*F-I-D*V 

280  REM  PRINT  RESULTS 

290  X=P:GOSUB430 

300  PRINT:PRINT"MONTHLY  PAYMENT  IS  " 

.  .  .  ";TAB(25)  ;Z$ 
310  PRINT:PRINT"AFTER  ";T;"  PAYMENT 

S,  THE" 
320  X=Q:GOSUB430 
330  PRINT"PRICE  WILL  BE  ,..";TAB(25 

);Z$ 
340  X=Q+Q*S:GOSUB430 
350  PRINT"TAX  INCLUDED,  THAT'S  ..." 

;TAB(25) ; Z$ 
360  END 

370  REM  NUMERIC  INPUT: 
380  REM  PRESET  X$,  XH,  &  XL 
390  PRINTXS; :INPUT"";X 
400  IFX>XHTHENPRINT"TOO 

390 
4  10  IFX<XLTHENPRINT"TOO  LOW! 

90 
420  PRINT:RETURN 
430  REM  ROUND  &  FORMAT  MONEY; 
440  Z=.01*INT(X*100+.5)+.001 
4  50  Z$  =  STR$  (Z)  :Z$  =  LEFT$  (Z$,LEN(Z$)- 

1) 
460  Z$=RIGHT$("  $"+Z$,14) 

470  RETURN 

480  REM  ANSWER  YES~OR-NO 
490  REM  PRESET  X$ 
50  0  PRINTX$; : INPUT" "; Z$ : PRINT 
510  Z$  =  LEFT$  (Z$,l) 
520  IFZ$  =  "Y"THEN0K=1:RETURISI 
530  IFZ$="N"THENOK=0:RETURN 
540  PRINT"PLEASE  ANSWER  'Y'  OR  'N'. 

" :GOTO500 
550  REM  INITIALIZATION 
560  F0RK=1T024 :PRINT:NEXT 
570  PRINTTAB( 12) "LEASE  WITH  OPTION 

TO  BUY." 
580  PRINTTAB(12) "BY:  KEITH  FALKNER 

-  1981." 
590  PRINT:PRINT:PRINT 
600  X$="SKIP  INSTRUCTIONS?  ":G0SUB4 

80 
610  IFOKGOTO750 
620  PRINT:PRINT"YOU  ARE  LEASING  AN 


HIGH!  "  :GOTO 


G0T03 


A  comprehensive  accounts 
receivable  and  insurance 
billing  system  for  modern 
health  care  offices 
and  clinics 

DESIGNK!)  FOR  COMMCHXJRK  8000  SERIES 
COMPUTERS  AND  DISK  DRIVES 

Help  functions  are  always  on-line 

Supports  CPT,  ICD  and  RVS  medical 
coding 

Supports  open  item  or  balance  for- 
ward accounting  systems 

Interfaces  to  popular  word  processing 
programs 

Multiple  terminals  may  be  added  with 
Superbus  4.0 

Multiple  disk  drives  may  be  used— no 
limit  on  number  of  patients  or 
accounts 


■  Includes  a  data  base  and  forms 
generator  to  fill  out  any  insurance 
form 

■  Includes  a  computer  aided  instruction 
program  to  train  new  users 

Includes  these  standard  reports: 

■  A/R  aging  II A/R  transactions 

■  General  ledger  ■  Instant  cash  receipt 

■  Income  analysis  by  physician 

■  Doctor  referral  report 

■  Patient/account  cross  reference 

■  Standard  SuperBill  insurance  form 


SUPERBUS  4.0 

Commodore  Computer 
Networking  System 

■  Up  to  18  computers  can  be  interconnected 

■  Multiple  disk  drives,  printers  and  other  devices 
may  be  added  to  the  network 

■  Sophisticated  security  system  prevents  unauthor- 
ized use 

■  WordPro  and  Wordcraft  programs  are  supported 
to  allow  multiple  terminal  word  processing 

•WordPro  is  a  trademark  of  Professional  Software,  Inc. 


OlnlEo2330  LINCOLN  WAY,  AMES,  lA  50010  •  515-292-7634 
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ITEM  FOR  A  TERM  OF" 
630  PRINT"6,  12,  24,  OR  36  MONTHS.  ~ 

AFTER  THAT," 
640  PRINT"TKE  CUSTOMER  CAN  BUY  THE  ~ 

ITEM  FOR  SOME" 
650  PRINT"FRACTION  OF  ITS  PRICE.":? 

RINT 
660  PRINT"!  CALCULATE  THE  MONTHLY  P 

AYMENT. " 
670  PRINT:PRINT"I  NEED  TO  KNOW  SOME 

THINGS: ":PRINT 
680  PRrNT"THE  VALUE  OF  THE  ITEM." 
690  PRINT"THE  COST  OF  INSURANCE." 
700  PRINT"THE  MONTHLY  INTEREST  RATE 

II 

710  PRINT"THE  LENGTH  OF  THE  TERM." 

720  PRINT"THE  LOCAL  SALES  TAX  RATE. 
II 

730  PRINT"THE  PURCHASE  FRACTION." 

740  PRINT 

750  X$^"STANDARD  SET-UP?  ":GOSUB480 

760  REM  HERE  IS  THE  STANDARD  SETUP: 

770  I=.02:REM  2%  INSURANCE 

780  R=.025:REM  2.5%  /  MONTH 

790  S=.04:REM  4%  FLORIDA  TAX 

800  IFOKGOTO900 

810  PRINT"WHAT  FRACTION  OF  THE  ITEM 

'S  VALUE  IS" 
820  PRINT"CHARGED  EACH  YEAR  FOR  INS 

URANCE?" 
830  XL=0:XH=.2:X$="INSURANCE:  ":GOS 

UB370:I=X 
840  PRINT"WHAT  IS  THE  MONTHLY  INTER 

EST  RATE?" 
850  PRINT" (EXAMPLE:  ENTER  3%  AS  .03 

)" 

860  XL=.001:XH=.05:X$="INTEREST:   " 

:GOSUB370:R=X 

870  PRINT"WHAT  IS  THE  SALES  TAX  PER 

CENT?" 
880  PRINT" (EXAMPLE:  ENTER  £%  AS  .08 

)" 

890  XL=0:XH=.3:X$-"SALES  TAX:  ":GOS 

UB370:S=X 
900    PRINT:PRINT"WHAT    IS    THE    ITEM'S 

VALUE? " 
910    XL=50:XK-50000:X$="VALUE  $" 

:GOSUB370:V=X 
920  PRINT:PRINT"HOW  MANY  MONTHS?  (6 

OR  12  OR  24  OR  36) " 
930  XL-6:XH=36:X$="MONTHS:    ":GOSU 

B370:T=X 
9  40  IFT=6ORT-12ORT=24ORT=3  6GOTO960 
950  PRINT"I  CAN'T  HANDLE  THAT1":G0T 

0920 
960  PRINT"WHAT  FRACTION  OF  THE  ORIG 

INAL  PRICE" 


970  PRINT"WILL  BUY  THE  ITEM  AFTER  T 

HE  LEASE?" 
980  XL=0:XH=.75:X$="FRACTION:  ":GOS 

UB370:D=X 
990  F=1+R:PRINT:PRINT"0K,  HERE  WE  G 

0! " :PRINT:RETURN 

Program  2:  Atari  Version 

105  Din  2$(20).T$(20).Xi(30> 

:m  fW\l   ^ PRINT  "t1U^^THL^'  F-ft'Y'tlENT   13   ... 

".;=POKE  85.. 25^ PRINT  21 

336  PRINT  ■"Fv:ICE  WILL  BE   ...".:=Pi3KE  ffi.-2 

=  :  pp  T  kJT    -?.t 

350  PRINT  "TAX  IHCLUDED..   THAT'S   ..."i^PO 

KE  85. 25^ PRINT  2% 

398  PRINT  X$; ■ INPUT  M 

450  2$=STR$(Z>=IF  LEH(Zi;'>l  THEN  Z$=2$(l 

..LEN(Zt)-i> 

460  T$=2$:2I="  $":2$(LEH(2$Hi)= 

T*^Z$=2f(1.14> 

500   PRINT  -Ai?  aHPUT  K 

510  Zt=Z*<Ll) 

570  POKE  S5.i2=PKlNT   "LEASE  WITH  OPTION 

TO  BUY.;; 

530  FtiKt 

-  1981" 


i2^PRINT  "BV^    KEITH  FALKNER 


TO 


AIM-65  USER 


Would  you  be  interested  in  a 


Consulting  Job 


writing  custom  software  (jn  your  own  AIM-65? 

It  yes.  are  you:     1-     An  expert  in  AIM-65  use? 

2.     Located  m  the  Bay  Area? 

3     Farriiliar  or  ready  to  learn 
AIM-65  FORTH' 

Please  call;  Dr.  Gal    415   961-6823 


B  Dysan 

^/corporation 

SoK*  voui  d^  probtem^  buy  t  OOK  niff  ace 
tmni  Dv—rt  dWiettei.  AB  onitn  •hlppKl 
b^xn  ilack.  uMibi  24  houn.  C*ll  toD  PR££ 
(8001  235^137  for  prton  and  bifiicinKkm. 
V^a  Hid  Mulcr  Caid  iccqKrai 


PACIFIC 
EXCHANGES 

UK)  Foothill  Blvd 
San  Luis Obispo- CA 
43401    (In  Cal  call 
,  1805)  543-11)37) 


INVENTORY  CONTROL  PUIS 

*  INVOICING  — ORDER  ENTRY  —  ACCOUNTS  RECEIVABLE 


* 


for  CBM8032  and  8050 

*PARTRAC:  Three  separate  but  interconnected 
computer  programs.  All  are  "on  line"  or  in  the 
computer  at  the  same  time.  It  is  not  necessary 
to  change  disks  with  PARTRAC ! 


INVOICING  SYSTEM 

a.  Instant  stock  check  on  any  part  #. 

b.  Instant  price  check  orr  any  part  #. 

c.  Instant  customer  status  check. 

d.  Writes  invoices  and  posts  to  accounts  receivable 
automatically. 

e.  Writes  credit  memos  and  posts  to  accounts 
receivable  automatically. 

f.  Writes  daily  totals  reports. 

INVENTORY  SYSTEM 

a.  Keeps  track  of  all  information  related  to  a  part  #. 
Prices,  costs,  quantities  on  order,  in  stock,  back 
ordered  and  vendor. 

b.  Prints  reports 
1.)   "Reorder  Advice  Report" 
2.)   "Price  List  Report" 
3.}  "Complete  Parts  Inventory  Report"  with  total 

cost  of  inventory.  [Your  accountant  will 
like  that.l 

ACCOUNTS  RECEIVABLE 

a.  Posts  all  open  account  sales. 

b.  Prints  "Accounts  Receivable  Report"  with 
aging  function. 

c.  Prints  "Statements". 

d.  Prints  "List  of  Accounts  Names". 

e.  Allows  partial  payments. 

PARTRAC  is  fully  expandable  because  of 
modular  design.  The  basic  system  handles  8000 
part  #'s,  1000  accounts,  10,000  open  invoices. 
This  is  expandable  to  about  20,000  part  #'s, 
3,000  accounts  and  25.000  open  invoices. 

AVAILABLE  AT  YOUR  LOCAL  COMMODORE  DEALER 


CBM  8032 
$1099 


GUARANTEED  BEST  PRICES! 


commodore 


'i^'mmmu 


''016       5799.00 

4032    _S99999 

8096 SI79500 

CBM  «022Printer , S62900 

Tally  8024  __.       __        _  S1G99  00 

CBM  C2N  Cisseltc  Drive  S69  00 

CBM4Q<iO  Du;il   Disk  Drive  S999  00 

CBM  8050  DunI  Disk  Drive  S1349  DO 


VIC  20  $259 

Vic-TV  Modual  S19.00 

Vic  Cassette   S69.00 

Vic  Disk  Drive S  Call 

Vic  6  Pack  program  __    .    .  S44.00 


CBM  Software 

WordPro  3  Plus S!99.00 

WordPro  4  Plus S299  00 

Commodore  Tax  Package S399  00 

Visicaic     8(49,00 

EBS  Accts,  Rei;./lnvenlory  Interactive  Syst  .._S595  00 

BP!  General  Ledger S329  00 

OZZ  Infarmation  System ,,, S329  00 

Dow  Jones  Partfolio ^ 8129.00 

Pascal    ._, S239,00 

Legal  Time  Accountmg ...    S449  00 

World  Craft  aO 5289.00 

Word  Check   „ SIBO.OO 

Creato-A-Base     SIBO.OO 

Power  .._ SB9.00 

Socket-2.Me ___ S20  00 

Jinsam   _ Call 

Printers 

Epson  MX-TO 

Epson  WX-ao 

Epson  MX.eo  FT  Call  for  Prices 

Diablo  530 

Nee   5530    . S2495.00 

TEC  1 5O0  Starvvi'iter  25cps  .. ^ SI  495.00 

TEC   1500  Starwriter  45cps     ...., S199500 


Compuler  f  y/(cm/ 


IN  N.Y.  CALL 

914-434-3338 
(800)  431-3400 

GLEN  WILD,  N.Y.  12738 


FREE  FREIGHT-SAME  DAY  SHIPPING 

TO  ORDER:  Phone  orders  invited  (800  is  for  order  desk 
oiilyl  Send  cliBck  or  money  order  and  receive  free  ship- 
nint]  New  York  residents  add  7',,  sales  las.  Add  3'.-  for 
Vrsa  or  M  C  Equipmeni  is  subiect  to  price  change  and 
availability  without  notice  Ple.ise  call  between  BAM 
and  5PM 
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Anti-Hesitation 
Programming: 

A  Tutorial  On  Arrays 

M.  R.  Smith 

Calgary,  Alberta,  Canada 


Editor's  Note:  The  delays  discussed  and  corrected  in  this 
article  are  a  problem  common  to  Microsoft  B ASICs 
(Apple,  PETiCBM,  OSl,  etc.).  Because  the  Atari  has  a 
different  variable  storage  format,  no  hesitation  is  observed 
using  the  structure  of  Program  1.  Atari  BASIC,  though, 
is  similar  to  Microsoft  with  respect  to  COTO  —  it  searches 
the  program  for  the  target  from  top  to  bottom.  And  the 
time-saving  effect  of  relocating  REMs  can  he  seen  on  the 
Atari.  —  RTM 


Have  you  ever  had  a  series  of  hesitations  or  pauses 
occuring  at  the  start  of  your  BASIC  program?  It  is 
particularly  obvious  when  using  loops  or  sul^rou- 
tines.  First  time  into  a  FOR...NEX  T  loop,  the  pro- 
gram seems  to  hiccup  and  pause.  Thoughts  of  the 
dreaded  infinite  loop  occur,  but  then  the  program 
seems  to  recover.  The  second  time  into  the  loop, 
the  response  is  so  fast  that  the  screen  smokes.  What 
causes  this  alteration  in  hehavioiu? 

To  demonstrate  the  effect,  enter  and  run 
Program  I: 

1   REM  PROGRAM  #1 
20  PRINT  "LINE  20"  :  DIM  A(500),  B(500),  C(500) 
30  PRINT  "LINE  30" 
40  FOR  H  =  1  TO  5:  I  =  1 
50  J  =  1  :  K  =  I:  PRINT  "LINE  50" 
60  NEXT  I 

70  FOR  I  =  1  TO  5:  PRINT  "LINE  70" 
80L=1:M=1:P=1:  PRINT  "LINE  80" 
90   NEXT  I  :  STOP 

You'll  notice  a  pause  between  line  20  and  line 
30.  More  pauses  occur  before  lines  50  and  80. 
However,  the  next  foiu-  times  that  the  program 
gets  to  these  lines,  there  is  no  pause. 

On  adding  just  one  statement,  line  10,  to  this 
program,  you'll  notice  a  real  difference. 

1   REM  PROGRAM  #2 
10   H  =  0:I  =  0:J  =  0:K  =  0:  REM  INITIALIZE 

VARIABLES 
20  PRINT  "LINE  20"  :  DIM  A(500),  B(500),  C(500) 
30  PRINT  "LINE  30" 
40  FOR  H  =  I  TO  5  :  I  =  1 
50  J  =  1  :  K  =  1  :  PRINT  "LINE  50" 


60  NEXT  I 

70  FOR  I  =  1  TO  5  :  PRINT  "LINE  70" 
80L=1:M=1:P=1:  PRINT  "LINE  80" 
90   NEXT  I  :  STOP 

In  this  version,  the  pau.se  before  line  50  has 
disappeared.  This  change  occurs  because  the  simple 
variables,  Ft,  I,  J  and  K,  are  names  in  line  10  of  the 
pnjgram.  This  means  that  these  variables  are  used 
before  any  of  the  arrays,  A(500),  B(500),  (:(500) 
are  made. 

To  explain  why  all  this  is  occurs,  you  have  to 
imderstand  how  a  BASIC  interpreter  stores  things 
in  the  computer  memory.  In  the  middle  of  a  pro- 
gram (say  line  90  of  Program  1),  memory  is  split 
up  like  this: 

BOTTOM 

PROGRAM 

SIMPLE  VARIABLES 

ARRAYS 

UNUSED 

CHARACTER  ARRAYS 
TOP 

For  each  variable,  array  or  string  used  in  the  pro- 
gram, there  is  a  definite  place  reservefl  in  memory. 

Before  we  ran  ilie  j>rograni,  things  looked  a 
lot  simjiler. 

BOTTOM 

PROGRAM 

UNUSED 

TOP 

Alter  line  20  in  Program  1 ,  things  weie  different 
yet  again. 

BOTTOM 

PROGRAM 

A(500) 

B(500)  ARRAYS 

C(500) 

UNUSED 

- TOP 

The  first  pause  in  the  program,  before  line  30, 
occun-ed  while  the  arrays  were  being  set  up.  The 
second  pause  occinred  when  the  variables  H  and  1 
were  u.sed  for  the  first  time.  .'Mlcr  line  40,  the 
memorv  allocation  was  like  this. 

BOTTOM 

PROGRAM 

H 

I  SIMPLE  VARIABLES 

A(500) 

B(500)  ARRAYS 


INTRODUCING  MTU-BASIC 

MICROSOFT  BASIC+USER  ORIENTED 
ENHANCEMENTS =MTU-BASIC 


CAN  YOU 

Save  and  load  BASIC  programs  in  either  memory  image 
or  ASCII  format? 

Input  COMMANDS  and  data  to  BASIC  from  a  disk  file  as 
well  as  from  tfie  keyboard,  i.e.  drive  BASIC  from  an  ASCII 
"job"  file  on  disk? 

Execute  ANY  Disk  Operating  System  command  from  a 
BASIC  program? 

Redefine  the  effect  of  keyboard  function  keys  and  display 
legends  on  the  CRT  to  indicate  their  present  function? 
Use  a  lightpen  to  input  actual  X,  Y  coordinates  on  a  480 
X  256  pixel  array  in  1/60  second? 
Obtain  very  precise  coordinate  input  using  a  moveable 
crosshair  positioned  by  the  cursor  keys? 
Plot  high  resolution  images  using  screen  coordinates  or 
floating  point  coordinates  with  the  necessary  transforma- 
tions and  image  clipping  accomplished  automatically? 
Easily  extend  BASIC'S  command  set  with  your  own  ap- 
plication oriented  machine  language  routine  library  (up  to 
8  at  once)? 

MTU-BASIC  CAN  DO  all  of  the  above  yet  is  based  on  the 
industry  standard,  Microsoft  BASIC.  If  you  are  missing  even 
one  of  the  above  functions,  you  should  find  out  how  an 
MTU-130  computer  can  make  your  association  with  BASIC 
a  lot  more  pleasant  and  belter  suited  to  your  special  needs. 

The  MTU-130  also  comes  with  other  standard  features  that 
most  computers  offer  only  as  options  at  extra  cost  —  such 
things  as  19.6K  Bytes/sec  sustained  disk  data  transfer  rate, 
digitized  speech  playback,  4  voice  music  synthesis,  480  x 
256  bit  mapped  CRT  screen  display,  fiber  optic  lightpen, 
RS-232  port,  two  parallel  ports,  hardware  for  cassette  input 
and  output,  interface  for  local  network,  80K  RAM,  18  bit  ad- 
dress bus,  8  bit  audio  DAC  with  1  watt  amplifier  and  a  3"  x 
5"  speaker. 

Shouldn't  you  be  using  MTU-BASIC  on 
an  MTU-130  Computer? 


EXAMPLES  FROM  MTU-BASIC 

ENTER  "TRANSFERS" 

Reads  in  an  ASCII  text  file  as  program  statements. 
SYSTEM  "ASSIGN  1  BASICIN" 

Redirects  input  from  keyboard  to  disk  file  named  BASICIN. 
LEGEND  1.  "First,"  "Second" 

Relegends  function  keys  1  and  2  to  read  "First"  and 

"Second". 
LTPEN  F,  X,  Y 

Sets  F  =  l  and  X,  Y  to  coordinates  when  lightpen  picks 

a  point. 
GRIN  NWS,  X,  Y 

Displays  crosshair  and  inputs  X,  Y  location  of  its  final  posi- 
tion; NWS  contains  the  exit  key. 
DRAW  .0645,  3*Y 

Draw  a  vector  from  current  location  of  graphic  cursor  to 

specified  coordinates. 
LIB  "VGL,"  "IGL" 

Select  library  extensions  to  be  linked  to  BASIC. 

The  base  MTU-1 30-1 S  system  comes  with  one  single-sided 
double-density  8"  floppy  disk,  a  12"  green  phosphor  CRT. 
and  MTU-BASIC  for  S3995.  Three  other  models  priced  up 
to  S4995  contain  1  or  2  single  or  double  sided  drives  for  up 
to  2  Megabytes  of  storage.  4  Megabyte  systems  available  on 
request. 

We  obviously  cannot  describe  fully  all  of  the  details  of  the 
MTU-130  here.  If  you  wish  to  know  more  about  this  complete 
desktop  computer,  call  or  write  for  our  comprehensive  15 
page  descriptive  literature.  International  requests  include 
$5.00  U.S. 

COME  TO  MTU  —  for  excellence  In  microcomputing  systems. 


'Micro  Technology  Unlimited 

^.O   Box  12T06 
^2806  Hillsborough  Si, 
Jleigh,  NC  USA  27605 
019)833-1458 
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C(500) 


UNUSED 


TOP 


To  make  room  for  the  variable  H,  the  BASIC 
interpreter  had  to  first  move  the  arrays  A( ),  B{ ) 
and  C( )  higher  up  in  memory.  Then  it  had  to 
move  these  arrays  again  to  find  room  for  variable 
I.  During  line  50,  the  arrays  needed  to  be  moved 
twice  more;  first  for  variable  J  and  then  to  place 
variable  K.  All  this  movement  caused  the  second 
pause.  The  more  there  is  to  move  and  the  more 
variables  there  to  place,  the  longer  the  pause 
will  be. 

J'iie  second  lime  around  in  the  FOR. ..NEXT 
loop,  places  for  the  variables  H  to  J  were  already 
available  in  memory,  so  no  more  pauses  occinred. 
The  pauses,  however,  started  again  wiien  the  arrays 
had  to  be  moved  three  times  to  pro\idc  room  for 
the  variables  L,  M  and  P  in  line  80. 

In  BASIC,  each  time  a  simple  variable  is  used 
for  the  first  time,  all  the  arrays  then  in  existence 
have  to  be  moved  up  in  memory.  This  causes  a 
pause  in  the  execution  of  the  program.  If  a  large 
nitmber  of  variables  is  introduced,  these  pauses 
can  accinnulale  into  a  sizeable  delay.  To  avoid  the 
pauses,  we  have  (o  initialize  (that  means  establish) 
all  simple  varialiles  before  we  introduce  any  arrays. 

To  understand  how  this  improves  things, 
consider  the  memory  after  line  20  in  Program  2.  It 
looked  like  this: 


PROGRAM 


BOTTOM 


H 
I 

J 

K 


SIMPLE  VARIABLES 


A(500) 
B(500) 

C(500) 


ARRAYS 


UNUSED 


-TOP 


This  is  \ery  different  to  the  appearance  of  the 
memory  after  line  20  of  Program  1.  When  the 
program  reaches  line  40,  the  variables  H  to  J  will 
have  already  been  fitted  into  memory,  so  that  the 
arrays  will  nol  need  to  be  moved.  Therefore  the 
pauses  will  vanish.  At  line  80,  new  varialilcs  will 
again  have  to  be  placed  in  memory,  which  means  a 
pause  while  alt  the  arrays  move  over.  You  can  see 
the  advantage  oi  predefining  all  the  simple  variables 
before  the  arrays. 
Systematic  Irtitialization 
Taking  a  systematic  approach  to  the  initialization 


of  variables  in  a  program  can  prevent  a  lot  of  prob- 
lems. Program  2,  rewritten  for  systematic  initializa- 
tion, might  look  .something  like  this: 

1   REM  PROGRAM  #2  NEW 
10  GOSUB  60000  :  REM  DO  INITIALIZATION 
20  PRINT  "LINE  20 
30  PRINT  "LINE  30 
40   FOR  H  =  1  TO  5  :  I  =  1 
50  =  I  :  K  =  1  :  PRINT  "LINE  50" 
60  NEXT  I 

70   FOR  1  =  1:  PRINT  "LINE  50" 
60  NEXT  I 

70  FOR  I  =  1  TO  5  :  PRINT  "LINE  70" 
80  L  =  1  :  M  =  1  :  P  =  1  :  PRINT  "LINE  80" 
90  NEXT  I  :  STOP 
59990   REM 

60000   REM  INITIALIZE  SIMPLE  VARIABLES 
60010  REM  VARIABLES  A  -  E 

60020   H  =  0:1  =  0:J  =  0  :  REM  VARIABLES  F- J 
60030  K  =  0:L  =  O:M  =  0:  REM  VARIABLES  K  -  O 
60040P  =  0  :  REM  VARIABLES  P-T 

60050  REM  VARIABLES  U  -  Z 

60100  REM  INITIALIZE  ARRAYS 
60110  DIM  A(500),  B(500),  C(500) 
60200  RETURN 

This  does  seem  to  overdo  things  for  such  a 
short  program,  I)ut  this  approach  does  have  advan- 
tages for  long  ]jrograms, 

1)  Use  a  subroutine  for  initialization. 

There  is  an  obscure  advantage  of  doing  initial- 
ization using  a  subrotitine.  You  could  put  equivalent 
statements  to  60000  -  60200  at  the  beginning  of  a 
program.  The  advantage  lies  in  the  wav  that  the 
BASIC  interpreter  handles  GOSUB  and  GOTO 
commands.  When  a  GOSUB  command  occurs, 
most  BASICS  interpreters  skip  to  the  beginning  of 
the  program.  They  then  look  at  every  line  number 
(including  those  of  REM  statements)  trying  to  find 
the  Hne  number  wanted.  Suppose  that  statements 
which  are  used  only  once  in  a  program  are  placed 
at  its  start.  There  would  be  a  tremendous  waste  of 
time  while  the  interpreter  unsuccessfully  looks  at 
these  lines  each  time  it  searches  for  the  line  number 
it  wants.  Placing  these  lines  at  the  end  of  the  pro- 
gram makes  foi"  a  great  and  simple  wa)  of  sjieeding 
up  your  programs.  This  is  particularly  ti  iie  when  a 
GOTO  command  is  issued  from  the  middle  of  a 
FOR... NEXT  loop  near  the  end  of  the  program. 

The  effect  can  be  demonstrated  by  using  the 
following  program. 

1    REM  PROGRAM  #3 
10   PRINT  "LINE  10" 
20  REM 
30  REM 

keep  inserting  statements  until  you  have  about 

40  REM's 
430  REM 

440  FORJ=t  TO  2500 
450  GOTO  470 
460  GOTO  480 
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6502  AND  6800  SYSTEMS 

AIM  65     KIM     SYM      PET    S44.BUS 

•  Plug  com  patibie  with  the  AI M-65/SYM  expan- 
sion tronnector  by  using  a  right  angle  connec- 
tor (supplied). 
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6800  S44  bus. 

•  Connects  to  PET  using  an  adaptor  cable. 

•  Uses  +SV  only,  supplied  from  the  hn.st  com- 
puter. 

•  Full  documentation.  Assembled  and  tested 
boards  are  ^aranteed  for  one  full  year. 
Purchase  price  is  fully  refundable  if  Ixjard  is 
returned  undamaged  within  U  davs. 

Assembled  with  32K  BAM '...8349.00 

&  Tested     with  16K  RAM 320.00 
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free  with  manufacturer's  5-year  limited  warranty 
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5'',"  single  sided,  double  density 29,50 
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ping and  handling  S3. 00.  Calif,  residents  add  din 
sales  lax.  Cash,  checks.  Mastercard,  Visa  and  pur- 
chase orders  from  qualified  firms  are  accepted. 
(Please  allow  two  weeks  for  personal  checks  to 
clear  before  shipment.)  Product  availability  atid 
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INTERNATIONAL  ORDERS:  Add  15  ■"-  In  piir- 
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IDS  460G  9x9  Dot  Matrix  Printer S890.00 

IDS  560G  Wide  Carriage  Printer 1099.00 

TERMINALS 
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We  have  a  complete  and  affordable  controller  development 

system. 

The  controller  board:    MMC/03  comes  with  IK  RAM,  2K 
EPROM  socket,  2  6522s,  6503  CPU.    Uses  any  AC  or  DC 
power  supply. 
Kits  from  S89.00,  assembled  and  tested  from  SI  19.00. 

IN-CIRCUIT  EMULATOR:  better  than  an  EPROM  simula- 
tor. Works  with  any  6502-based  system  including  Apple 
PET,  AIM,  KFM,  SYM,  OSI.  Not  55,000.00  but  under 
S  100.00! 

EPROM  programming  adaptor:  complete  with  software 
driver,  programs  any  24-pin  +5V  EPROM  including  2532s. 
Battery  powered:    S40.00,  with  AC  power  supply:    S50,00. 

See  COMPUTE!  April  1981  for  Eric  Rehnke's  review. 

Call  or  write  us  for  more  infomiation: 

R.  J.  Braehman  Associates,  Inc. 

P.O.  Box  1077 

Havertown,  PA   19083 

(215)622-5495 

Coming  soon:    The  MMC/02.  complete  with  ICE:    IK  RAM 
6K  EPROM;  or  3K  RAM,  4K  EPROM. 

Registered  TM-Apple-Apple  Computer  Co., 
PET,  KIM-Commadore.  AIM-Rockwell  In- 
ternational SYM-Synertek 
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470  GOTO  460 

480  NEXTJ 

490  PRINT  "490" 

This  is  a  short  timing  loop  involving  three  inter- 
linked GOTO  statements.  Measure  the  time  it 
takes  for  the  program  to  go  between  the  two  PRINT 
statements  using  the  second  hand  of  your  watch. 
Now  remove  the  REM  statements  and  place  them 
at  the  end  of  your  program.  Time  again  and  notice 
the  chffcrcnce. 

On  my  APPLE,  the  timing  was  28  seconds  with 
the  REM's  at  the  beginning  compared  to  eight 
seconds  with  the  REM's  at  ihe  end.  Quile  a  time 
saving.  Siiiflingthe  initialization  statements  of 
your  program  can  have  the  same  effect.  This  also 
works  ilie  other  way.  If  you  have  a  subroutine  that 
you  use  often,  then  place  that  at  the  beginning  of 
the  program.  That  way  the  BASIC  interpreter  can 
fmd  it  quickly. 

2)  List  the  variables  in  groups. 

The  main  advantage  of  grouping  the  variables 
(A  to  E,  F  to  I,  etc.)  on  separate  lines  is  that  it  be- 
comes easy  to  determine  if  a  varialile  has  already 
been  used. 

It  is  not  as  obvious  as  you  might  think  to  deter- 
mine whether  or  not  a  variable  has  already  been 
used  in  a  program.  Consider  a  long  program  which 
uses  variable  VES  at  its  beginning,  and  variable 
YEAR  near  its  end.  Many  B.VSIC  interpreters 


consider  (since  these  two  variables  have  the  same 
two  starting  letters)  that  tlicy  must  both  be  equal  to 
the  variable  YE.  Tliis  means  that,  although  vou 
intended  the  two  variables  to  be  different,  they  are 
actually  being  treated  as  the  same  game  by  the 
interpreter.  Spotting  a  conflict  like  this  can  absorb 
a  lot  of  time.  However,  if  \  on  put  all  variables  in 
one  location,  then  you  are  more  likely  to  spot  pos- 
sible conflicts  in  names. 

Declaring  (initiali/ing)  all  the  variables  at  the 
beginning  of  a  program  can  decrease  the  nimiber 
of  strange  pauses  in  the  middle  of  a  program.  It 
also  decreases  the  chance  of  accidentalh  getting 
two  independent  variables  with  the  same  name.     Q 


MEMOREX 

FLEXIBLE  DISCS 

WE  WILL  NOT  BE  UNDER- 
SOLOn  Call  Free  (800)235-4137 

for  prices  and  information.  Dealer 
inquiries  invited  and  C  O  D.  s 
accepted 

PACinc 

EXCHANGES 

100  Foothill  Blvd 
San  Luis  Obispo.  CA 
93401    In  Cal  call 
(800]592-5935  or 
(805I643-1037 


OlyoiPic 
Sales 

0^    SERVIIVG  YOU  SINCE  194/ 

Company 


Main  Showroom  S  Offices: 
216  Soutti  Oxford  Avenue 
tos  Angeles,  CA  90004 

WE  HONOR 

VISA  and  fWASTERCHARGE 


tappkz 
xomputor 


Wa  ire  jin«ulhoii2Dd  iCrvicme  Appit  dtlltc  'or  Apple  II  A  III 
tTniTwdiili  dtliviry  on  ill  mciitlt-we  uiry  >n  enorEnnui  innntary 
d1  Appti  nKoducTi  i1  «M  limti' 

Immediate  deliverv 
16K-32K-48K"64K-Plusar  Integer  in  stock! 
NEW.  IMPROVED  APPLE  111  128K  VERSION 

ATTENTlOWi  Immcdultdelmrv 
Wf  ALSOCARRYSQFTWARE 
P*rK]a|l  S^ttwiit 
Peich  Tri»  Sdhwiirc 

Micfopro 

Aineiion 
Synf  m  ?1ui 


EwilhcnrTroltir  DDS33 
SctondOiik  Dirvn 
Piial-Fatlrin-Cobol  Ungmpi 
Odw  JanH  &  Quott  itpoMci 
Giichia  tthl«'tL 
VibcikfDC  Applf  llAlll 
SfMitwm  80  column  uid 
Micfomodem  II  h*  DC  Kiyti 
tnd  rnori 


'^"s?^., 


TELEX:  67  34  77 

ORDER  DESKS  open  7  DavsaWeek! 

700  AMI  to  7:00  FM  Mon  thru  Sat 

Sunday  Noon  to  5:0QPM 

Order  Desks:  (213)  739-1130 

TOLL-FREE  TOLL-FREE 

(outside  Calif.)  (within  Caiif.l 

80Q  421  8045        800-252-2153 


HEWLETT  PACKARD 

i  (Vf  tV DELUXE  CALCSFItOM  HP' 
Shm    ihiftpocketilyling 

NEW!       HP11C 

AiJnncid  Progcimmtblc 
ScHnUfie  LCD  Rtwl  SiJOOO 

NEW!      HP-12C 

Advirud  PiDgrimmibll 

FininEhil  LCD  f^fW  S'iOOO 
HP  12S  N«*  MicrMtinipulw  ""J'    >n..-fijif 

6AK  CPUrriirninil/KrvboMd  JfbOGQ  J19^.D0 

HP  as     HiaoKompijtt'-hu.lt  in  ponlti/mflmtm 

3j 50  00  urn  Ml 

HPI3  MiciKorapjIM-builr  inmonrtoi  ??&00OlJ99W 
HPISllBPiintii  dDliTvliidltKii  wningSODO  1199  N 
HP8;SOSABOECi(prinwr.dotmitin  9*5  M     TSSPO 

HP  2eO\A  Leim  duilitv  P'tM.  di«v  wh«l  149500 

Hr  lailM  Dull  nuitn  (iSSKB  diit  drm]  IbOO  00  1939.011 
Cjll  ui  fsf  lb*  lownt  p[»»i  on  7  diik  drivH  CaUu^Cill  «t 


Your  Cost: 
S1 14.95 

Your  Cost: 

SI  29.95 


NO  ONE  UNDERSELLS  OLYMPIC  SALES 
Write  &  request  our  new  112  pg  catalog- 
please  include  $1.00  to  defray  postage  & 
handling-includes  many  moie  itcmsfiom 
TV's  to  Watches! 


fill  qoodi  jubifct  to  ^vi'ljb'ftiy.  ff>'i  ^  super 
seaei  jllP'e^^otjs  3di:  we  srenat  fesponsio'e 
lot  typogtaofiical  efrars.  we  w<ll  meet  or  be^l 
jn  y  adve^Tt^fd  prices  if  zhe  compel'Iion  has 
f/fp  §oa<JS  O"  hsnd. 

Minimum  shipp'/^q  3n^  h^ndhrig  S-T  i^5 
L>d"  orderi  i^b,cct  10  veri/icjton  and  accfpcinc 


HP41CV  N«*' 2  ?K  hviejof  mtnorv  32^00 

Ciidnud<rkr41CV  IKOO 

P„nlrro,41t«  MS  00 

0..d  H.m  9S0D 

0tliuHVindlt>r4ICV  125  00 

HPtlCCikiil.TOt  'SO™ 
KhmO'V  >nad  tot  41C 

HP  31  Praqimbit  punWt  '^0  DO 

hP  lie  Ppiljimhlf  iCKnliliE  '^D  DO 

HP  leC  Pioqtmblehulmtilfl'E  'SOM 

Wi  hl«t  vhi  CDripl«tff  line  0l  »c5*aorirt,  elc. 


25sao 

1T1G0 
294.10 
94IS 

9t.9i 
1)1  9S 
2195 

srsib 

II?  55 
119  9S 


Texas  Instruments 


-19IZMoil« 
full  rvptwiiiei  nylc  Ictybaiid, 

TI99/4A  U/LaKfiriQi 

N«w  KEYBOARD 

$1C095 


^369^ 


iij^Q  au    S369.9S 


ID'  colof  monnor  lor  99'a 

J2((  Eip   mull   module  i 

E  iimltd  Bnii  1  MUST  loi  1 

32K  modult 
S&tftit  lYiihMiifr  1 

Wt  ciiiv  I  llig'  invvnlDiy  of  uItm»if.  ^ 

II  M2  ICSSiuSl.ds  NEW  1li.9S 

ri  35SPLCDSClENTlflC  22.i0 

TUO  LCDSti  NEW  28.55 

Tl  bl  P.<-,5  S:i9ni,lic  39.95 

II  iSC -ISO  Step  Pmj  89,95 

Hi9  360Su»  fm.  179  95 

PC  lOflC  Pr.nt  Pigl  149.95 

ICQ  Proiiawmii.'NEW  59  35 


319  95 
15  00 


PRINTERS 

•  DIABLO  ILEtier  Qualilyl  REiail  Your  Cn<l 
li]D  R10Zbii1iiei:lnal/1MclsiW96S0D  2639.00 
16'IllK1D9k,vboaril.  irstiors  30;7.0a  2899,95 
li3D  RO  Rcctivc  only  2;iO  00  2499.95 
lC50K136  1.tvli03til/tractijii    3?3D  00   2999.95 

•  CENrRONICSdnl  mjiin 

ID0  9  Piialle).  he^w  duly 
104  9  Serial   hpivy  duly 
737  I  Pirallll 
737  1  Serial 
lot  II  Parallel 
P  1  ElecliDuaric 

■  PAPER  riGER- 
460 

flbOO  ;ii[iliici 

5G0 

5E0G  fijphici 

445 

14SI: 
EPSON  PRI 

MXBO 

OptioniiGiiitriii  Chip  an 
UKBorr 

MXIO-GRISFrnAXBa 

Hutorr  .GaAFTnAXBO 
Mxioa _^ 


XEROX 

MnlliaiO  1  15%")  B"S375a-O0 

64K  COMPUTER  &  WORD  PROCESSOR 

AS  LOW  AS 


$2995.00 


S-rtM'l  i   I 


«E¥l-FAMOUSCOBVUSOISKDfllveS-5.10.2D 
MESseVrES    «,Ihlin1jiticn(«0M«INETN>lwoib 
Cll  »i  loi  lb.  bin  ["CIS  in  Itll  USA'  Smin 


intfirv  olpciiplik.  ttttu  tic 

tr  '  ■■■ 

SPtciaiPnicE'iBK  issno 

No  1IR9U1Q1  inc..  opfl  biiic. 


IlliOIJO  1199  95 
1795  00    1599  95 

995  00  799  95 
10-15  00  B99  95 
1870  00   1695  00 

laS  no     183  95 


995,00 

B95,B0 

103100 

9G99S 

1295  00 

IC99,D0 

1334.00 

1195,00 

7J50D 

E95Q0 

854  00 

J19II0 

1  EKS                 Relail 

your  Colt 

64S00  539-95 
95.IIB 
145.00  859  95 
G9500  S7935 
79500  Iia9.95 
995  00         lt9.95 


WE  ALSO  HAVE  .  .  . 
•  MDVATiaM  Mddemt 

CAl 

D  CAT 

APPLE  CAT  Oirtcl  coitneci 


R^lail  Your  Cgvi 
139  9b  159  9i 
'SI9  96  169  95 
-A'}'}:'-     314  95 


jh  V  A  n  I  lirg'  inytnlflry  o 

AIAKl  Compute 


1&K  CoirouTei 

SPECIAL! 

ATARI  BM  4tK  Compi 


1080  00 


339.95 
54  95 
769  95 


175000     86995 


OHIO  SCIENTIFIC 

C8PDf    4aKRe1ail:S3495.0OY/C:S3195.D0 

•  Dull  a    DiiveH     •Bitot  «  ii  Imp  tuliii 

•  .7  MIPS     fAS?'  •Mativ  more  '•^"^  tealurif^ 

Failran  &  Pascal  availabli! 

.■.fine  ufher  OSI  :iroi/iicti  -Jt  (fucauniiil  antei 


SANYO  MONITOf^S    High  resolution 

13  Colnilnn<IHbgiilli1(  550  00  419  95 

1!  Oj.in  pl.o.pb«(oui  360  00  251 9S 

12  Sl.tli  S  *liili  """1  239,95 

15  ei.tkioliil.  I'OOO  259.95 

9"  eiick  A  «fiili  <lli*ben  lelierl  n'-.in  1S9,95 

AMDEK(Leedex)High  Quality  Monitors 


12'  B/W.  12MH1 
12'GlKll,  12MH! 
12"Ci>lB.  ISMHi 
13"  Color,  NTSC  enrap. 
ludininpA  ipukii 
Cilorll     13  "Colpl.RBG  input, 
hi  i«1  grighics,  ipuhll 


100 

moG 

300.G 
Cgloi  I 


179,00  139.95 

193  00  174.95 

?19aO  199.95 

npol.449  00  333  95 

999  00  S9S95 


•  HAZELTINE  VidEO  Oi^tilav  Tiimirhah 

•  SHUGART  Drill  Drrves 

•  DEC  VTIOO  &  VT103 

C2ll  us  for  vntir  DISCOUNTED  prii:t  TODAY' 


NEVV  FTOmTS    Si^MtvIO      Pirspnal  Inturnmiiin  Ti!rr:iinal    PeH'l  395  OP  rnu^  Coir  795.011 


January.  1982.  Issue  20 


COMPUH! 


59 


How  Random 
Are  Sequences 
Of  Random 
Numbers? 

Brian  J.  Flynn 
Vienna  VA 

Chance  is  a  word  void  of  sense;  nothing  can  exist  without 
a  cause.  —  Voltaire 


Editor's  Note:  Ra\D  i.\  one  oj  the  more  intriguing  aspects 
of  computers:  how  do  you  generate  accidents  in  a  world 
dedicated  to  logic?  Though  Mr.  Flynn  analyzes  the  TRS- 
80  RND  here,  his  approach  and  methods  are  applicable 
to  any  RND  analysis.  —  RM 

You  turn  on  a  Model  I  TRS-80  and  key  in  "PRINT 
RND  (0)."  The  response  is  ".768709."  You  key  in 
the  same  conirnand.  The  response  this  time  is 
",781397."  You  do  this  again,  and  again,  and  again. 
Using  a  FOR  NEXT  loop,  suppose  you  generate  a 
"random"  sequence  of  1,000  numbers.  Or  perhaps 
you  generate  10,000.  Or  maybe  even  100,000. 
Have  you  ever  wondered  how  such  "random" 
sequences  of  nimibers  are? 

Before  performing  a  statistical  experiment  a 
short  while  ago,  I  wanted  to  make  sure  theTRS-80's 
random  num!>er  generator  was  a  good  one.  So  I 
examined  its  degree  of  randomness  using  a  few 
popular  statistical  tests  and  a  few  common  sen.se 
indicators. 

But  before  discussing  these,  first  note  that  the 
phrase  "a  random  number"  is  used  popularly  to 
denote  a  member  of  a  "random  sequence"  of  fig- 
ures. Strictly  speaking,  however,  the  adjective 
"random"  should  modify  only  "sequence,"  unless 
we  happen  to  be  concerned  with  the  digits  which 
compri.se  a  number.  This  is  because  0.768709  is 
not  any  more  or  any  less  random  than  0.5  or 
0.372  or  any  other  positive  fraction.  Each  occurs 
with  zero  prol)al)ility  in  the  selection  of  one  number 
from  the  infinitely  dense  continuum  of  fractions 
from  0  to  1. 

Executions  of  RND  (0)  on  the  TRS-80  generate 
rational  numbers  between  0  and  1,  inclusive.  "Ra- 
tional," in  this  ca.sc,  does  not  mean  sensibility,  but 
rather  means  that  the  fraction  is  expressible  as  a 
ratio  of  two  integers.  For  instance,  0.625  is  equiva- 


lent to  5/8.  And  the  "ratio-nal"  number  0.768709, 
from  above,  equals  768709  divided  by  one  million. 
Fractions  generated  by  RND  (0)  are  supposed  to  be 
distributed  in  roughly  imiform  fashion  as  in  Figure 
1.  Almost  as  many  fractions  should  fall  between  0 
and  0. 1  as  between  0. 1  and  0.2,  and  so  on. 

How  ckjse  to  uniformity  are  distributions  of 
TRS-80  fractions?  From  machine-off  to  machine-on 
position,  100,000  execuUons  of  RND  (0)  generate 
the  spread  shown  in  Table  1.  Non- TRS-HO  owners 
may  want  to  use  the  BASIC  program  listed  here  to 
see  how  well  the  random  number  generators  on 
their  machines  compare. 

The  distribution  in  Table  1  is  highly,  but  not 
perfectly,  uniform.  Less  than  perfect  uniformity, 
however,  is  desirable.  For  if  exactly  10,000  figures 
fell  into  each  category,  then  the  mechanism  that 
generated  this  spread  would  seem  awfully  mechan- 
ical, too  good  to  be  true.  While  a  good  random 
number  generator  may  father  a  perfectly  uniform 
distribution,  the  probability  of  this  is  very  low. 

Just  how  close  to  uniformity  should  the  distri- 
bution of  fractions  be?  The  chi  (pronounced  "ki") 
square  goodness-of-fit  statistic  provides  an  answer: 


^^„ 


E 


Ei 


is  the  Greek  capital  letter  sigma,  for  sum;  k  is 
the  number  of  categories,  also  called  cells  or  inter- 
vals; Oj  is  the  number  of  fractions  observed  in  the 
i' '  interval;  and  Ej  is  the  number  expected.  In  oin- 
ca.se,  K=  10  and  Ei=  100,000/10  =  10.000. 

Let's  reveal  the  mystery  of  the  fornuUa.  First, 
Oi-E|  is  the  deviation  of  the  expected  from  the 
actual  number  of  observations  for  category  "i- ' 
Next,  this  deviation  is  squatted  because       (Oj-E,)  =  0. 
Finally,  the  squared  deviation  is  divided  by  E|  to 
give  equal  importance  to  each  category  in  cases 
where  the  Ej's  are  different  from  one  another.  To 
clarify  this  last  point,  let  E,  =500  and  E^^  1,000 
for  the  two-interval  case.  If  Oi  and  0^  are  10% 
higher  than  E,  and  E.j,  respectively,  then  (0,-Ei)^' 
=  (550-500)-  =  2,500  and  (0.,-E.,)'-'  = 
(1,100-1,000)-  =  10,000.  The  second  squared 
deviation  is  four  times  the  fust.  Now,  weighting 
each  squared  deviation  relative  to  expected 
number.  (0,-E,)'-'/E,  =  2,500/500  =  5  and  ((K,-E-,)-/ 
E,.  =  10,000/1 ,000  =  10.  The  second  term  is  now 
only  twice  as  large  as  the  first,  just  as  £<_,  is  twice  as 
large  as  E[. 

X-=  12.07  for  100,000  executions  of  RND 
(0),  grouped  into  10  cells.  As  Figure  2  shows.  10% 
of  all  values  in  a  chi-square  distribution  with  nine 
degrees  of  freedom  (number  of  celts  minus  one) 
are  less  than  4.2  and  10%  are  greater  than  14,7. 
Our  value  does  not  fall  within  either  of  these  ex- 
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treme  percentiles.  The  sequence  of  fractions  can- 
not, therefore,  be  accused  of  non-randonmess  on 
the  basis  of  this  test  alone. 

One  test,  however,  is  not  conclusive  evidence 
of  randomness.  The  X"^  test  performed  on  100,000 
ninnbets  may  suggest  global  randonmess  while 
hiding  locallv  non-random  behavior.  Foi-  example, 
the  distribution  of  the  first  500,()(K)  numbers  gen- 
erated by  RND  (0)  may  be  skewed  towards  0  while 
the  distribution  of  the  second  50,000  is  skewed 
towards  1.  The  two  distributions  added  together 
may  appear  uniform.  To  uncover  such  deception, 
the  X-  test  is  performed  on  each  successi\  c  block 
of  10,000  fractions,  and  on  each  cumulative  block. 
Table  2  shows  that  the  TRS-80  random  number 
generator  produces  an  acceptable  X^  value  in  each 
case  examined. 

Batteries  of  .statistical  tests  such  as  the  chi- 
square  will  nevei-  prove  that  a  random  niunber 
generator  is  a  good  one,  however.  But  they  may 
diminish  doubt,  for  each  passed  test  boosts  confi- 
dence in  the  quality  of  the  generator.  To  strengthen 
or  shatter  this  faith,  sequences  of  TRS-HO  fractions 
are  now  "RUNS"  tested. 

Let's  explain  this  procedure  using  a  list  of 
Presidents  of  the  United  Slates  and  their  political 
parlies.  We  start  with  Franklin  Pierce  to  avoid  the 
Whigs  and  Federalists  beftjre  liim. 


PRESIDENT 

Woodrow  Wilson  D 

Warren  G.  Harding  R 

Calvin  CooHdge  R 

Herbert  Hoover  R 

Franklin  D.  Roosevelt  D 

Harry  S.  Truman  D 

Dwight  D.  Eisenhower  R 

John  F.  Kennedy  D 

Lyndon  B.Johnson  D 

Richard  M.Nixon  R 

Gerald  R.Ford  R 

Jimmy  Carter  D 

Ronald  Reagan  R 


PRESIDENT 

Franklin  Pierce  D 

James  Buchanan  D 

Abraham  Lincoln  R 

Andrewjohnson  R 

Ulysses  S.Grant  R 

Rutherford  B.Hayes  R 

James  A.  Garfield  R 

Chester  Alan  Arthur  R 

Grover  Cleveland  D 

Benjamin  Harrison  R 

Grover  Cleveland  D 

William  McKinley  R 

Theodore  Roosevelt  R 

William  Howard  Taft  R 

Are  Democrats  (D)  and  Republicans  (R)  ran- 
domly distributed  here?  Notice  the  string  of  six  Re- 
]nil)licans  from  Lindoln  to  Arthiu'.  And  notice  thai 
C;rover  Cleveland  appears  twice!  Let's  compare 
your  guess  to  the  probabilistic  answer  ot  the  Runs 

Fest.  We  first  coiinl  the  numl)er  of  rims  of  Demo- 
crats or  Repul)licans: 

DD      RRRRRR       P     R_D 


R  R  R      D      R  R  R, 


1 


345 


8 


DD      R      DJD,     RR,      D        R 
9        10       U         12        13       14 

A  run  is  a  succession  of  identical  symbols 


followed  and  preceded  b)-  the  opposite  symbol,  or 
by  no  symbol  at  all.  Fhere  are  14  runs  in  our  se- 
quence. The  essence  of  the  Runs  Test  is  to  deter- 
mine if  this  number  is  "too  many,"  or  "too  few%"  or 
"about  right."  "Too  many"  runs  is  best  exemplified 
by  a  sequence  where  Democrats  and  Republicans 
perpetually  alternate:  D  R  D  R  D  R  ...  and  so  on.  It 
is  highly  unlikely  that  a  random  sequence  will 
follow  a  palteru  so  mechanical.  "Too  few"  runs,  on 
the  other  hand,  is  exemplified  in  its  most  grievous 
form  by  a  sequence  of  all  Democrats  or  all  Republi- 
cans: RRRRRR...  and  so  on.  Again,  it  is  highly 
unlikely  that  a  random  sequence  will  display  this. 
The  Runs  Te.st  formula  (reference  2}  is: 

25ii!^     -R      +c 
N ,  where 


2n,n2 


2nin2-N 

N'-N 


n  1  =  the  number  of  Democrats 
n^  =  the  number  of  Republicans 
N    =  n,  +  n2 
R    =  the  number  of  runs 

This  leaves  "c,"  which  is  Yates'  factor  to  make 
z's  distribution  better  approximate  a  normal  curve. 
Specifically, 

c=  +0.5ifR<2n,na/Nandc=  -1.5  if  R>2n|n2/N 

Actually,  the  z-formula  is  supposed  to  l^e  used 
only  if  111  aiid/or  n.^  is  more  than  20;  a  special  table 
is  used  otherwise.  For  our  example,  however,  the 
table  and  the  formula  give  the  same  result.  We 
march  with  z  to  deinonslrate  its  use. 

In  calculating  /.,  first  note  that  2n|n2/N  = 
2*10*17/27  =  12.5926.  With  R=  14,  c= -1.5. 
Therefore: 

2*10*17 


27 


-14 


-1.5 


=  -0.04. 


^- 


*10*17       2*10*17-27 


27*27-27 


27 


We  reject  with  95%  confidence  the  a.ssumption 
that  a  sequence  is  landom  whenc\'er  z=  1 .06  or 
more.  Since  our  calculated  value  is  less  than  this, 
the  Runs  Test  won't  allow  us  to  call  the  sequence  of 
political  parlies  non-random. 

'I"o"Rinis"  lest  a  sequence  of  fractions,  replace 
the  "D's"  and  "R's"  with  "  +  's"  and  "-'s."  A  "-" 
denotes  a  fraction  below  the  expected  median,  0.5, 
and  a  "  4- "  denotes  a  fraction  above  it.  For  example, 
[.3  .7.1  .2  .6]  becomes  [-  4-  --  4-].  Executing  the 
Runs  Test  on  100,000  TRS-80  fractions,  and  on 
blocks  iherein.  gives  the  results  shown  in  Table  2. 
Each  sequence  appear  random. 

The  computer  program  also  generates  lour 
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•  Compatible  with  all  existing 
Basic  interpreter  commands 

•  Accepts  extensions  to  Basic 
Implemented  in  RAM  or  ROM 

•  Provides  demanding  two  pass 
syntax  and  logic  analysis 
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on  faster  execution  times 
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benefit  from  memory  savings 

•  Securi^  Key  attaches  to 
either  cassette  port 


A  Basic  COMPILER  for  your  Commodore  Microcomputer 

by  Drive  Technology 


DTL-BASIC  is  a  Basic  compiler  for  Commodore 
machines  designed  to  convert  existing  programs 
to  machine  code  and  run  them  without  modifi- 
cation. Complied  programs  will  run  much 
faster  and  operate  in  exactly  the  same  way  as 
the  un-compiled  versions.  Compiled  code  Is 
typically  20  to  50%  smaller  than  source  code. 
For  large  programs  thfs  saving  will  more  than 
offset  the  4K  run-time  library  appended  to  each 
compiled  program,  providing  additional  internal 
memory  space. 

The  compiler  implements  true  integer  arithmetic 

as  well  as  real  arithmetic.  Use  of  integers  can 
lead  to  significant  speed  improvements.  Special 
compile  time  options  make  identification  and 
conversion  of  real  variables  to  integers  a  simple 
task. 

A  'Compiler'  security  key,  which  plugs  into 


either  cassette  port.  Is  supplied  together  with 
the  DTL-BASIC  compiler.  This  key  must  be  used 
in  order  to  compile  a  program  or  to  run  the 
compiled  version.  In  order  to  allow  for  the 
distribution  of  compiled  versions  of  user  devel- 
oped programs,  a  second  type  of  key  known  as 
a  'Run-Time'  key  is  available  in  any  required 
quantities.  Software  developers  can  obtain 
private  security  key  sets  with  unique  serial 
numbers  providing  comprehensive  protection 
of  their  products  while  allowing  customers  to 
make  backup  copies  of  compiled  programs. 

DTL-BASIC  is  a  disk  based  system  requiring  a 
32K  PET/CBM  and  comes  complete  with  an  in- 
depth  user  manual  and  a  Compiler  Security 
Key.  Three  versions  of  the  compiler  exist  for 
CBM  3032,  CBM  4032,  and  CBM  8032  machines. 
Please  specify  machine  type  and  disk  type  (4040 
or  8050)  on  which  compiler  is  to  be  supplied. 


DTL  OASIC  WITH  MANUAL  AND 
SECURmr  KEY $350.00 

RUN-TIME  KEYS      S50.00  EACH 
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descriptive  statistics  useful  in  evaluating  degree  of 
randomness:  mean  and  variance  of  the  fractions, 
and  covariance  and  correlation  coefficient  of  suc- 
cessive fractions.  The  expected  mean  is  0.5,  or  the 
midpoint  of  the  uniform  distribution  of  Figure  1. 
The  expected  variance  is  '/la;  this  can  be  derived 
using  a  bit  of  integral  calculus.  Finally,  the  remain- 
ing two  statistics  are  expected  to  be  zero  since  the 
elements  of  our  sequence  of  niunbers  are  supposed 
to  be  independent.  Table  3  shows  results  for  the 
first  three  statistics.  All  conform  very  closely  to  ex- 
pectations. 

The  X'"^  test,  the  Runs  Test,  and  a  small  battery 
of  descriptive  statistics  suggest  that  RND  (0)  is  a 
decent  random  number  generator.  But  our  evi- 
dence can  never  be  conclusive,  and  the  next  test 
that  we  subject  the  generator  to  may  be  the  one 
that  it  fails.  So: 

Be  not  loo  ptcsmnjjtuously  stire  in  any  business; 
for  things  of  this  world  depend  on  such  a  train 
of  unseen  chances  thai  if  it  were  in  man's  hands 
to  set  the  tallies,  still  he  would  not  be  certain  to 
win  the  game. 

Herbert 
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TABLE  1 

Distribution  Of  The  First  100,000 
Fractions  Generated  By  RND  (0) 

INTERVAL     TALLY      %  OFTOTAL 


O.lto 
0.2  to 
0.3  to 
0.4  to 
0.5  to 
0.6  to 
0.7  to 
0.8  to 


0.1 
<0.2 
<0.3 
<0.4 
<0.5 
<0.6 
<0.7 
<0.8 
<0.9 

0.9 


9969 

10084 

9980 

9904 

9985 

10099 

10098 

9938 

9774 

10169 


9.97 

10.08 

9.98 

9.90 

9.99 

10.10 

10.10 

9.94 

9.77 

10.17 


Uniform  Distribution  Between 
OAnd  1 


Relative 
Frequency 

1.0 


Figure  1. 


E 


0.2 


0,4 


0.6 


0.8  1.0 

Fraction 


Table  2.  Test  Results 


Cumulative 
NumberOf 
Fractions 


X^  Values 


"RUNS"  Values 


Generated       Block       Cumulative      Block       Cumulative 


10,000 
20,000 
30,000 
40,000 
50,000 
60,000 
70,000 
80,000 
90,000 
100,000 


13.87 

10.16 
7.20 
4.23 
4.99 

11.59 
5.51 
5.35 

12.19 
5.26 


13.87 

14.14 

6.71 

8.55 

6.21 

10.06 

9.77 

12.33 

10.87 

12.07 


1.34 

1.34 

0.19 

0.80 

0.03 

0.69 

0.03 

0.58 

1.50 

0.16 

1.47 

0.75 

0.63 

0.46 

0.85 

0.73 

1.40 

1.18 

0.21 

1.05 

Table  3.  Descriptive  Statistics 


Relative 
Frequency 

0.125 


Chi-Square  Distribution  With  9  Degrees  Of  Freedom 


Cumula- 

tive 

Number  of 

Mean 

Variance 

Covariance 

Fractions 

Block 

Cumula- 

Block 

Cumula- 

Block 

Cumula- 

Generated 

tive 

tive 

tive 

Expected 
Values 

0.500 

0.083 

0.000 

10,000 

0.498 

0.498 

0.085 

0.085 

-0.00 1 

-0.001 

20,000 

0.499 

0.499 

0.083 

0.084 

O.OOI 

-0.000 

30.000 

0.499 

0.499 

0.083 

0.084 

-0.001 

-0.000 

40,000 

0.499 

0.499 

0.083 

0.083 

0.00! 

-0.000 

50,000 

0.502 

0.500 

0.083 

0.083 

-0.000 

-0.000 

60,000 

0.503 

0.500 

0.083 

0.083 

0.001 

0.000 

70,000 

0.504 

0.501 

0.084 

0.083 

-0.001 

.0.000 

80,000 

0.501 

0.501 

0.084 

0.084 

0.001 

-0.000 

90,000 

0.496 

0.500 

0.084 

0.084 

0.001 

0.000 

100.000 

0.501 

0.500 

0.083 

0.083 

-0.000 

0.000 

107c  of 
area 


-x= 


Figure  2. 


ft  commodore 


CBM 


Model    BOSS 


computer 


SUPERGRAPHlCS 

128.000  ACCESSIBLE    POINTS 


# 

* 

* 

* 
* 

* 


Features 

128,000  accessfble  points  arranged  In  200  x  640  grid 

16K  static  ram  supplies  memory  mapping  of  pixels  on  separate  board 

supported  through  extended  Basic  commands  supplied  In  ROM 

uses  no  memory  from  the  existing  system 

mix  standard  CBM  text  and  low-res  graphics  with  hl-res  displays 

easy  to  design  and  display  user  defined  shapes 

normal  or  Inverted  display  mode  for  partial  or  total  screen 

switch  graphic  display  on  or  off  -  continue  output  in  passive  mode 

save  graphic  Images  on  a  disk  file 

recall  Images  from  disk  with  option  to  mix  with  existing  display 

supports  hardcopy  to  Epson  MX-82  or  Centronix  739  printers 

easy  to  follow  Installation  instruction  Included 
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Program  1. 

10   REM  EXflMINIHG  THE  RRNDOMNESS  OF  R  SEQUENCE  OF  FRRCTIONS 

20   REM  CHI~SQIJRRE  TEST..  RUNS  TEST..  DESCRIPTIUE  STATISTICS 

30   REM  BRIRN  J.  FLVNN;  WINTER  19S0.-31 

40   REM  MOD  l:  IWITIRLI2E 

50   GOSUE  1000 

e.0   REM  MOD  2:  GEHERRTE  RRNDOM  NUMBERS  .ft  TRLLV  STRTISTICS 

70   GOSUD  2000 

80   REM  MOD  3:  PRINT  DISTRIBUTION  OF  FRRCTIONS 

90   GOSUE  3000 

100  REM  MOD  4:  PRINT  TEST  STRTISTICS 

110  GOSUE  4000 

120  REM  MOD  5:  PRINT  DESCRIPTIUE  STRTISTICS 

130  GOSUE  5000 

140  END 


1000 
1810 
1020 
1030 
1040 
1050 

1060 

1070 
10S0 

1890 

1100 
1110 

1120 
1130 
1140 
1150 

11&0 

1170 
1180 
1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

12S0 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

136G1 

1370 

1380 

1390 

1406 

1410 

142© 

1430 

1440 


REM  MODULE  1 
REM  URRIRELES 
REM  MOTE:  -'BLI^: 


FOR 


NLiMCCR 
iJECTCiR 
NUMBER 
RRNDCM 


=    INTERUHL 


NUME;ER 
NUMBER 

"  -  "  flT' 

f-iUNBER 
■'SIGNt 
SUrt  OF 
SUM  OF 
SUM  OF 
URLUE 


OF 
OF 
"  1  ' 
OF 


REM 

REM 

REM 

REM 

REM  QBLK 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 
REM  #  OF  FRRCTIONS..  BLuCf 

DRTR  100000.'  10000..  10 

RERD  N..B..K 
REM  EXPECTED  URLUES 
DRTR  .5..  .033..  0..  0 
RERD  E1..E2..E3..E4 
REM  IHITIRLI2E 

D I M  QBLK: <  K  > ..  QCUM  '■. i<  > 
FOR  J=l  TO  K:QBLK':j:3=0 
FOR  J=l  TO  3:SBLK<J;5=0 


B 
K 

^3 

I 

RfJ 

CELL 

EBLK 

RBLK 

SIGNit 

RBLK 

SBLK* 

SBLKCliJ 

SELK';2:5 

SBLK<3::' 

PBLK 

F4;>;  ') 

L 

KELK 

FBLK 

NUM 

DEH 

ZBLK 

El 

E2 

E3 

E4 

MBLK 

k^BLK 

CELK 

HBLK 


■'  MERNS  -block:.  •-  --CUM--  MERN: 
EUERV  --BLIC.  ■■■  TNERE  IS  R  ■'CUM-' 
TOTRL  NUMBER  OF  FRnCTIOK-IS  TO  G 
NLIMBER  riF  FRRCTIONS  PER  ELOCh:; 

OF  CELLS  FOR  CHI-SQURRE 

OF  CELL  C:OUh^TS 

OF  FRRCTIONS  GEhJCRRTED 

NUMBER 


CUMULRTIUE- 

RNRLOGUE. 

iENERRTE 

TEST 


.!HICH  R  FRRCTION  FRLLS  INTO 
FRRCTIONS  FRlJ._If.lG  BELOU  0.5 
FRRCTIONS  FRLLING  RCOUE  0.5 
'  FOR  FRRCTIOtJ  BELOW  i3R  RBOUE  8. 
RUNS 
OF  PREUIOUS  FRRCTION  GENERRTED 
FRRCTIONS 
SQURRED  FRRCTICiNS 
PRESEf-IT  ::•;  PREUIOUS  FRRCTIONS 
OF  PRE'...iIOUS  FRRCTION 


'viECTOR  OF  OUTF'UT  FORMnTS 

LINE  COUNT 

CH I  ■  SQURRE  STRT I ST I C 

CORRECTION  FRCTOR  FOR  RUNG  TEST 

NUMERRTOR  OF  RUNS  TEST  STRTIbTIC 

DENOMINRTOR  OF  RUfJS  TEST  STRT  I  STIC 

RUNS  TEST  STATISTIC 

EKPECTED  MERri  OF  TI-IE  FRRCTIONS 

EKPECTED  URRIRNCE  OF  T(^E  FRRCTIOf^S 

EKPECTED  COURRIRNCE  OF  SUCCESS I UE  FRRCTIONS 

EXPECTED  1ST -ORDER  SERIRL  CORRELRTION  COEFFICIENT 

RCTURL  MEHf-l 

nCTURL  URRIFlfC:E 

RCTURL  C:C!l>RR  I  RNC:E 

RCTURL  CORRELRTION  COEFFICIENT 

SIT'E.  .<'  #  OF  Ct-II -SQURRE  CELLS 


QCUM ';..t:'j=0:  NEXT 
SCUM<J:j=^0:NEKT 


THE  mflnflCER 

The  first  truly  user-friendly  Database  Management  System  available  at  reasonable  cost. 

This  suite  of  programs  is  ideally  suited  for  both  the  businessman  and  programmer,  for  use  with  the  CBM  8032. 


lltlHMMIIMIHIIlHlllllUMMMIMMHIHIMIMMUllllMMHIMIIIMIHtMt 
lllltllltltHIIIIHMMIIIiHMIItllllltHltHtllllltMmMHIIItMIIMNIirtll 


BKHP  ft  JISffiFTE 
PUIE/ffiVISE 

le  imam 


isBumrE 


BWIPUiTE  FILES 
i»«E  SUI-f  ILES 
IPORT  ©CRftTE 


lEXr  EmTM 


I^IT  T«  HBIC 


DirEs  saicriwi? . 


no  programming 


For  the  Business  User 

•  Uses  Menu  Options 
experience  needed. 

•  Lets  you  enter  data  in  the  form  you  wish, 
then  lets  you  recall  it  using  any  search 
criteria. 

•  Performs  predefined  calculations  on  the 
record  in  realtime  as  record  is  displayed  on 
the  screen. 

•  Reports  can  be  produced  using  any  search 
criteria  and/or  arithmetic  functions. 

•  Useful  applications  can  be  developed 
quickly. 

Typical  Applications  include  - 

•  Inventory  Control 

•  Mailing  Lists 

•  Accounting  systems 

•  Personnel 

•  Costing 

•  Gathering  test  data 

•  Budgeting 

•  Scheduling 

•  Examples  of  use  included  on  disk  supplied. 


As  Programmers  Tool 

•  Uses  standard  PET  ASCII  files. 

•  Software  interface  is  in  Basic  and  available 
to  the  programmer. 

•  No  special  disk  formatting  so  that  word 
processing  or  other  programs  can  be  stored 
on  the  same  disk. 

•  No  ROM  Based  Security  thus  no  need  to 
open  CPU. 

•  Fast  'n'  key  Sort/Merge  included. 

•  Full  realtime  intra  &  inter  record  arithmetic 
performed  on  the  screen  as  record  is 
displayed. 

•  Professional  software  support  including 
unique  security  available. 

TRY  IT! 

IF  YOU  ARE 

NOT  SATISFIED  WITHIN  30  DAYS 

WE  WILL  RETURN  YOUR  MONEY 

$250.00 


CIVD 


CANADIAN  MICRO 
DISTRIBUTORS  LTD. 

365  Main  St.,  Milton,  Ontario  L9T1P7 
416  878-7277 


DISTRIBUTORS  OF: 

MUPET  •  DOUBLE-MUPET  •  SPOOLER 

THE  MANAGER  •  I/O  PRODUCTS 


66 


COMPUTE! 


JanuQfv.  1982.  Issue  20 


1450 
1460 
1470 
1480 

1490 

1500 

1510 
1520 
1530 
1540 
1550 
1560 
1570 


I  =0 :  nE:LJ:;=0 :  flCUM=0 :  BBLK=e :  E:C:UM=0 :  SBLK'^f^  "    "  : 
RBLK=0:  RCUn=0:  PBLK=0:  PCLIM=0 
REM    HERDING 

CLS :  PR  I  NT   TRB  ■;  7  V  E)mh  I N I NG    TtlE   Rf  If-IDONHESS 
print: PRINT"HOTES: " 


5CIJri*=" 


;iGH:t=" 


OF  f\   SEQMEHCE  OF  FRACTIONS" 


PRINT"  1. 
PRINT"  2. 
PRINT"  3. 
PRINT"  4. 
PRINT 
PRINT"HIT 
INPUT"RERDV 
RETURN 


TOTFIL  NUMBER  OF  FRRCTIONS  TO  GENERATE  =  "  JH 
NUMBER  TO  PUT  INTO  EACH  ■•BLOCK--  =  ";B 
NUMBER  OF  CELLS  FOR  CHI -SQUARE  TEST  =  " ;K 
CHANGE  LINE  13£.0  FOR  DIFFERENT  UALUES  THAN  THEi 

■'ENTER-'  TO  PROCEED.  " 


;e. 


2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

20SS 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 


REM  MODLiLE  2 

REM  RANDOM  FRACTION 

CLS: PRINT"GENERRT ING  FRACTION 
RN=RND';0>:  I  =  I-il 
REM  CHI- SQUARE  TALL',' 
REM  I  DENT  IF'-.'  THE  CEL 

CELL  =  INT'CRN^t:!:;;:'  +    1 
REr-1  ADD  TO  CELL  COUNT 

QBLKCCELL::'  =  QELK^CELLj 

qcumi;:cell:?  =  qcumcceld 
rem  runs-test  tall',' 
rem  add  to  ciounts  of 

THEN   BBL!^; 

THEf-l    ADLh' 

RUf-l    CCiUNT 

<>   SBU<t: 

O    SOJP'S-    THEN 

SIGN 


THAT    THE    FRACTION    FALLS    INTO 


IF  RN<.5 

IF  RN>.5 
REM  ADD  TO 

IF  SIGN* 

IF    SIGN-it 
REM    RECORD 

SBLh-'it    =    SIGNS 

SCUMi;  =  SIGHS 
REM  DESCR I PT lUE- STRT I ST I CS 
REM  SUM  OF  FRACTIONS 

SBLK<1>  =  SBLi^'::i:i  i 

scum';i:j  =  scuM';i>  i 

REM  SUM  OF  SQUARED  FR 
SBL|:;":;2>  =  SBLI<"::2::'  ■< 
SCUM-' 2 >  =  SCUM<2>  -i- 

REM  SUM  OF  CURRENT 
SBLK<3>  =  SBLIO:3 
SCUM ''3:)  =  SCUM ''.3 

REM  PREUIOUS  UALUE 
pblh;  =  RN 
PCUM  =   RN 
REM  GENERATE  ANOTHER 

IF  I-'-B  <>  INT';i-'-B> 
RETURN 


FRRCTIONS 

=  BBLI^::  -i  1:E:CUM 

=  AGLK  +  1:ACUM 

IF  appropriate 

THEN   RBLK    =    RBLK 
RC:UM    =   RC:llM 


FALLING   BELOU.-ABOUE   MEDIAN 
=    BCUM    +    l: SIGNS    =    "- 
=   ACUM    +    l:  SIGNS   =    "■^ 


TALL'.' 


Rt^ 
RH 

iCTIONS 
RN^^Rf-^ 
RN^i^RN 
PREUIOUS   r 
RN:i:PBLI< 
RN:i^PCUM 
FRACTION 


RACTIONS 


NOW  EQUALS  CURRENT  'JALUE 


FRACTION.. 
THEN  2030 


IF  APPROPRIATE 


3000  REM  MODULE  : 

3010  REM  FORMATS 
3020    FS<i;j  =  " 
3030    FS<2:i  =  " 
3040    FS<3::'  =  "1. 

3050  FS';:4:i=" 
306©  fs-::5:j=" 
3070   FS';6:i=" 

3080    FS'::7:)  =  ">= 

3090  REM  ICADING 


NO.  OF  FRACTIONS  IN  •-BLOCK-' 
NO.  OF  FRACTIONS  IN  --CUMULATIUE-'  = 
DISTRIBUTION  OF  FRACTIONS: " 

BLOCK 
INTERiJAL  TRLL'V   ■-.  OF  TOT. 


CUMULATIUE" 
TALL',:'   :;  OF  TOT. 


#.##+*    AND    <#.### 


Stt### 


###.## 


##:S#4t 


###.##" 


Model  EP-2A-88 

EPROM  Programmer 


■k  Easy  to  use 

•  Reliable 

•k  Field  proven 


Fast  as  Jackrahblts  .  .  .  Well,  almost! 

In  Australia,  two  rabbits  can  reproduce  ouer  13  million  offspring  in  three  years  . . 

At  105  seconds  for  2716's,the  EP-2A.88can  reproduce  1,892,160  EPROMS  in 
three  years.  Single  push  button  control,  the  EP-2A-88  checks  if  EPROMS  are 
erased,  programs  and  verifies.  Many  features,  including  self  test,  diagnostics  and 
audio  prompt 

The  EP-2A.88-1  w-ll!  accept  Copy  (CM}  rtiodules  for  the  2758,  and  2716 
EPROMS-  The  EP-2A.88.2  will  accept  copy  modules  for  Ihe  2716,  2732  and 
TMS  2532  EPROMS.  Power  requiremenb  are  1 15  VAC  50/60  Hertz  at  15  watts. 

Part  No.  Description  Price 

EP-2A-88-1     EPROM  Programmer S490,00 

EP-2A-88-2     EPROM  Programmer 490.[K) 

CM-50  Copy  Module  for2716,  TMS  2516  EPROMS 25,00 

CM-70  Copy  Module  for  2758,  TMS  2508  EPROMS 25,(X) 

CM-20  Copy  Module  for  2732  EPROMS  25.(X) 

CM-20A        Copy Modtile (or 2732A EPROMS 33,1X) 

CM-40  Copy  Module  for  TMS  2532  EPROMS 25,00 

Non  Standard  Voltage  Option 

( Specify  220v,240v,  or  lOOv) 15,00 

Optimal  Technology,  Inc. 

Phone  (804)  973-5482 
Blue  Wood  127  Earlysville.  VA  22936 


NEED  MORE  MEMORY? 

32K  BYTE  DYNAMIC  RAM  &  ROM  EXPANSION  BOARD 


Expand  %>ur4K,8K  PET 
SYM.  KIM,  AIM  -65  to  32K 


•  Easily  connected  to  yout  compute" 
via  the  eipansion  connector 

•  Build  niige  antt  complex  programs' 

•  Need  64K  ot  RAM'  Buy  Iwo  lioards 
on  tjoaiil  conliguralion  cncmlry  will 
nilow  you  lo  expanti  lo  UK  easily' 

•  New  rtynamic  RAfwl  teclinoliigy  bungs 
you  more  memory  in  less  space  and 
at  a  lower  cost' 

•  RAM  chips  are  upgraded,  compatiljle 
with  the  new  B4K  HAM  chips  for 
luture  expansion' 

•  Operates  on  "5  volts  only  supplied 
trom  your  coinpgiei  powei  supply  no 
on  board  generators  lo  go  Pad 

•  Requires  A  LOT  less  power  ihart  sialic 
RAM' 


•  Has  lull  invisioie  refresh  operaiion 
does  not  mledere  with  processor 
operaiion 

•  fully  bultered  DATA  BUSS 

•  5  on  doaid  sockets  lor  2716/2732 
i2Kim  lype  EPROMS  atfdiessalile 
anywheic 

•  Greal  lor  designing  a  Iwo  board 
computer  system  ICPU  IrO-flAM 
ROMI 

•  Other  specifications 

D(5at)le  any  4K  block  ol  RAM  lor  I/O. 
place  RAM  above  or  below  BOOO  HEX 
KIM  4  BUSS  COMPATIBLE  FOB  CARD 
RACKS  Adapter  cables  available  lor 
non  rack  use 

•  All  lheselealuresona6x4  5  tioard' 


ASSEMBLED  &  TESTED  BOARDS—GUARANTEED  FOR  6  MONTHS 

PURCHASE  PRICE  IS  FULLY  REFUNDABLE  IF  RETURNED 

UNDAMAGED  WITHIN  14  DAYS 

List  Price  -  $289.88 

Introductory  Price  —  $269.88 

Inclucie  $2.00  for  S&H  —  Allow  4  weeks  for  delivery 

Full  informative  documentation  included  witti  all  our  products. 
C  0-D.  Ordars  Accepted  (702)  361-6331      Mail  Order  Only, 


I  Kvy  I  K\.J\  HK.J 

COMPUTER  INNOVATIONS 


1516  E.  Tropicana,  Suite  7A 
Las  Vegas,  Nevada  89109 


IBM  COMPATIBLE  8"  FLOPPY 
DISK  for  CBM/PET;  Aim,Sym 

•  HIGH  SPEED  -  at  least  FOUR  times  faster  than  the  488  bus  disks. 

•  HIGH  CAPACITY  -  up  to  850K  bytes  of  storage  in  a  three  drive  system. 

•  RELIABI LITY  -  wide  timing  margins  insure  long  trouble-free  operation. 

•  SOFTWARE  -  the  PDOS  II  disk  software  provides  a  full  set  of  BASIC 
^_^_^^^^^^^        ^^^^  commands  with  standard  syntax. 

I J  ^^^Kiti^aam  ^^^  5%"  MINI  FLOPPY  DISK  SYSTEMS; 

Model  540-1  Single  Drive,  Double  Density  (143K)  S595.00 

Mode)  540-2  Dual  Drive,  Double  Density  (286K)  S895.00 

Model  580-1  Single  Drive,  Quad  Density  (286K)  S795.00 

(^^^^^^^^^^^^^^^^^^^^^^^^^                       Model  580-2  Dual  Drive,  Quad  Density  (572K)  $1  195  00 
^^r~~~^~^~~~"N                      8"  MINI  FLOPPY  DISK  SYSTEMS: 

L— ^L^    lOISIV    II              I                      l^odel  877-1  Single  Drive,  IBM  standard  (295K)  51,095  00 

^m^mi^^^^^^^^^^^^^^^^J                      Model  877-2  Dual  Drive,  IBM  standard  (590 K)  81,695.00 

FULL  FEATURE  "FORTH"  FOR  6502  SYSTEMS 

I   full  F"OHTH-M  Interpreter -Cross-compiler -Cond.  Assembler - 

^  ^^t-^    ■    n    TJ  Screen  Editor  -  String  Handling  -  Floating  Point 

SPECIFY  PEDISK  II,  PET  2040  or  4040  DISK,  OR  APPLE $75.00 

FOR  IIMFORMATION,  SEE  YOUR  DEALER  OR:  ADD-ON  DRIVES  FOR  TRS-SO* 

^cgrs^Bi^H^^^a^B^^^^^^^.^  Modell,  574",  40  Track  (102K)  8329  00 

I    K/IIC  R  n^Ep^  111  ^°''^"  ''  ^''''"'  ^°  ^'"'''  '^'''*'^'  5429^00 

DEALER  INQUIRIES  INVITED  ''•°-  ^^^  ""^^  *  LANGHORNE,  PA  19047  •  (215)757-0284 

*PET  IS  A  TRADEMARK  OF  COMMODORE 
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3100  CLS 

3110  LPRINT  F*';3:> 

3120  LPRIHT  USING  P^t:';  liJiB 

3136  LPRIHT  USING  FSCZ':)  il 

3140  LPRINTiLPRlNT  F*  <  4  >  :  LPR I  NT  r$<5>:LPRINT  F^<G'> 

3150  REM  DISTRIBUTION 

31fc".0  REM  LINE  COUNT 

317Q  L=7 

3180  REM  FIGURES 

3190  FOR  J=l  TO  i< 

3210  LPRINT  USItJG  F-t:<7>  ;  ■;  J- 1  :>.i:;,  J..-!::;,  QBL!=:'r.  J!) ,  QBLK-'.T>:ia00. -B..  QCUM-:  J:> ..  QC:UM<  J:)  +  ie 

0.1 

3220  L=Lil 

3230  NEXT  J 

3240  LPRINT: LPRINT: LPRINT 

3250  RETURN 


4800 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

40S0 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

42S0 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 


TEST  STriTISTIC: 
STHTISTIC 


;b 
;l 


REM  MODULE  4 
REM  FORMRTS 

F-4;.;4:i="    sthtistic           block 
F$':^''>="  "- 

FS  <  S  :j  = "     CM  I  SQURRE  #### .  «# 

F-,5,:;7::.="      RUNS  ####,*?# 

REM  HERDING 

CLS 

LPRINT  Ft';3> 

LPRINT  USING  Ft- ''A 

LPRINT  USING  F-|;'::2 

LPRINT:  LPRINT  Ft:'::4>  :  LPRINT  Ft-':.':.:, 
REM  CNI-SQUflRE  STRTISTICS 

XELK=0:JX:UM=0 

FOR  J=l  TO  K 

HBLK  =  XBLK  +    ■::QBLK<J>-B.10^iKQBLKi;j:3-B^'K:i^-':E.--K:5 

XCUM  ~    J-;CUM  +  .rQCUMCJ>- I'1<>'!-<QCUM<j:5-I--"K>-'<I---'K> 

NEXT  J 

LPRINT   USING    FtCCy  X^^BUi.XOJn 
REM    RUNS- TEST    STFlTISTICS 

REM   '.'RTES-'    FFICTORS   TO   BETTER    RPPRO>aMRTE 
FBLI<=Gi:FCUM=0 
IF    RBLK    <    2M^FlBLr::+BBLI<.-D 
IF   RBLK    >    2ti^nBLI<:tCiBLK/B    THEN   FBLK 
IF    RCUM    <    2M■^FlCUr■1^^€!CUM.■■I    THEN    FCUM 
IF    RCUM    >    2^i1"iC:UNH=BCUM.--I 

REM  STATISTICS 

HUM  =  RBS^2m^RBL10!€;BLIO^-B 


CUMULRTIUE" 


■H  NORMRL  DISTRIBUTION 


THEN  FBLh;  =  .5 
=  -l, 

__      E- 

THEN  FCUM  =  -1 
FBLK 


^.  ._.,_, „  RBUC>    -i- 

DEU    =   SQR-::  .:4+RBLK^HRBLIvteBLK^4^BBLK--2=+^B*RBLI<*BBL[0.'';  6*6*6 

ZBLh:   =   NUM.--DEr-l 

NUM    =   aBS':;2*nCUN*BCUM--I    -•   RC:UM>     i-    FCUM 

DEN  =  SQR';  ir4:!:RCUM:f^RCUn*BCUM^<=BCUM-2*I*RCUM*BCUM>.-< I*r+a- 

ZCUM  =  NUM'-CjEN 

LPR I  NT  US  I NG  Ft  C  7 )  j:  ZELK ..  ZCUM 
LPRINT 
REM  DEGREES  OF  FREEC'OM 
'  LPRINT"      NOTE:  DEGREES  OF  FREEDOM  FOR  Cdl-bQURRE  TEbT 

LPR I NT : LPR I NT : LPR I HJ 
RETURN 


-B*E>> 


■1*1  :)> 


=  ";K--i 


5000  REM  MODULE 
5010  REM  FORMRT: 
5020    F-t<3 


3.  DESCRIPTRC 
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5030 
504Q 
5050 
5660 
5070 
5OS0 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
51&S 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
52S0 
5230 
5300 
5310 
5320 
5330 


COURRIRNCE  OF 

SUCCESS I UE 

i-.-tRR  I  nUCE  FRfHCT  I ONS 


###.«## 


F*<5:i=" 

f$os:j="         urlijes  mern 

F$i'7;:'  =  "     "- -  - 

REM  HERDING 

CLS 

LPPaNT  Ft':z) 

LPRIMT  USING  F-^';i:>j:D 

LPRINT  USING  F$i;2;:';I 

LPRIHT:LPRINT  Ff<4>:  LPRINT  Fd;-:;5:)  :LPRIHT  F-F < 6 :>:  LPRINT  F*';7:i 
REM  ES^PECTED  URLUES 

LPRINT"   EXPECTED",- 

LPR I  NT  US  I NG  F$  ■;  3  >  ;  E 1 ..  E2 ..  E3 ..  E4 
REN  MEANS 

MBLK  =  SeLK<i:J^-B 

MCUM   =   SCUM<1>--I 
REM    UflRIRNCES   &    COURRIRNCES 

;SBLI<';2>-SBL!<';  1  ^^^SBLI^v  1  ::..-B ::■.■•■ '^B-l  :i 

;  SCUM  <  2  ':>  -  sc:uM  ■;  1  :>  ■■i-scun  <  i  > .- 1  >  -■■  <.  i  - 1  ':> 
C  SBLK  <  3  )  -SCiLK  <  1  >  m^SBLK  ■;  1  :>  y-B  ■>  y  <:  B~  1  ■) 

CUM  <:  3  J  -SCUM  ''A'j  ■■r-Sr.\JH  <.  1  >  .■■- 1 ')  .-■  ■:  I  - 1  > 

CORRELRTION 


SERIAL" 
CijRREL.RTION" 
COEFFICIENT" 


UBLK  = 

UCUM  = 

CBLK  = 

CCUM  = 

REM  SERIRL 


-i:j:t:ScuM';i>.--i 

COEFFICIENT 


HBLK  =  CBLK.-UBLK 
HCUM  =  CC.UM--UCUM 
REM  •'BLOCK--  RESULTS 
LPRINT 

LPRINT"      BLOCK"; 

LPRINT  USING  F.|;<S;j  iMBLI::!..  UBLK..  CBLK..  HBLK 
LPRINT"       BIRS"; 
LPRINT  USING  F^'rOiJ  ;MBLK-E1  .  UBLK 
-E2..  CBLh.:-E3..  HBLK-E4 
5340  REM  'CUMULRTIUE-  RESULTS 
5350    LPRINT 
53€.0    LPR  I  NT  "  CUMULRT I  '..JE  "  ; 
5370    LPRINT  USING  F*<S:j  ;  MCUM  ..UCUM.. 

CCUM..  HCUM 
5330    LPRINT"       BIRS"; 
5390    LPR  I  \\J   US  I  NG  F$  ■'  8 .1 ;  MCiUM-  E 1 ..  i.'CUM 

-E2..  CCUM-  E3..  HCUM-E4 
5400    FOR  J=1T0  15: LPRINT: NEXT  J 
5410  REM  RESET  -'BLOCK''  'JflRIRBLES  $>. 
GENERRTE  MORE  FRACTIONS..  IF 
RPPROPRIATE 
5420    IF  I  =  N  THEN  54G0 
5430    FOR  J=l  TO  K:QELIO;.J:)  =  0:NEXT  J 
5440    ABLK=0 :  BBLK=0 :  SELK-.t=  "  " :  SBLK k  1  > 
=8:  SBLK';2>=0:  SeLK';3;j=0:  RBLK=Pi:  PBLK 
=0 

5450    GOSUB  2020  : GGSUB  3828  :GOSUB 

4028  :GOTn  5828 
5460  RETURN  rt=f 


EPROM 

PROGRAMMER 

KITS 

Shown  assembJed   EPROM  not  mclLfdccJ 

'    ■ "  la   .,  s  SB? 


TOLL  FREE 

Subscription 

Order  Line 

800-345-8112 

In  PA  800-662-2444 


For  single  supply  2516.  2716  &  275B  EPROMS.  Verify  erased. 
Program    entire  of  partial.  Auto  verify  after  programming. 
Transfer  contents  to  RAM  for  modifying  or  duplicating. 
Select  Documenlation  (or;  Use  wilh: 

6502  6S20  PIA  or  6522  VIA 

6800  6820  PIA 

6809  6820  PIA 

8080/BO85/Z8O  B255  PPI 

Documentation  includes  scfiematic.  instructions  for  construction 
check-out  and  use,  and  software  listing  for  specified  lilPU 
Complete  kit  ol  parts  (includes 

Welcon  24  pin  ZIF  socket) $  39  gg 

Bare  PC  board  and  Documenlation $  15  00 

Software  listings  for  additional  MPUs 

(with  purchase  of  Kit  or  PC  boardi j     5,00 

OraEr.rii]    Spncily  MPU    AOtl  SI   for  [WslagP  i   hanohng    OvBrieas  a<)d  J2    An? 

Micro  Technical  Products 

814W,  Keating  Ave,,  Dept-ftd  •  fvlesa,  Arizona  85202 
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TELECOMMUNICATIONS 

Getting 
Outside  The 
Computer 

Michael  E.  Day 
Chief  Engineer 
Edge  Technology 


Getting  a  computer  to  communicate  with  the  out- 
side world  is  not  an  easy  task.  In  fact,  many  of  the 
"internals"  of  the  typical  computer  are  devoted  to 
the  task  of  converting  information  from  or  to  a 
form  that  the  computer  can  understand. 

Sometimes  attached  equipment  (peripherals) 
is  designed  to  meet  the  computer  part  way.  This 
helps  to  reduce  the  circuitry  and/or  work  that  the 
computer  needs  to  convert  the  information  into  or 
out  of  a  form  it  can  understand. 

Keyboards  are  sometimes  set  up  this  way. 
Other  times,  due  to  the  complexity  of  the  work 
involved,  a  large  amount  of  the  work  must  be  done 
by  the  computer. 

Monitors,  for  example,  can  cause  some  dilfi- 
culty  since,  if  the  computer  is  spending  too  much 
time  "servicing"  the  attached  devices,  loo  little  time 
is  left  to  run  the  program.  An  example  of  an  ex- 
treme case  of  this  is  the  SINCLAIR  ZX80  which 
actually  spends  all  of  its  time  servicing  the  monitor 
and  keyboard.  Because  of  liiis,  it  must  stop  servicing 
the  display  in  order  to  run  a  program  (causing  the 
display  to  go  blank).  The  ZX81  cures  this  problem 
by  having  a  slightly  improved  display  service  routine 
which  gives  the  computer  a  little  time  to  squeeze  in 
the  program. 

In  order  to  solve  this  problem,  IC  manulac- 
turers  came  up  with  a  "Video  Controller"  IC.  This 
htde  chip  (a  computer  in  its  own  right!)  does  all  the 
service  work  for  the  computer,  and  allows  the 
computer  to  do  more  important  things  like  running 
your  program. 

TheUART 

When  the  computer  is  to  communicate  over  the 
phone  line,  the  same  problem  occurs.  The  com- 
puter can  spend  a  large  amount  of  lime  doing  the 
required  work,  or  we  can  bring  in  another  device 
to  do  it  for  the  computer.  This  is  called  the  U  AR  T 
(Universal  Asynchronous  Receiver  Transmitter)  or 


USART  (Universal  Synchronous  /  Asynchronous 
Receiver  Transmitter)  depending  on  which  flavor 
you  Hke. 

A  UART  accepts  information  from  the  com- 
puter in  a  form  which  the  computer  understands 
and  converts  it  to  the  form  necessary  to  transmit 
the  information  out  of  the  computer.  Additionally, 
it  accepts  information  sent  to  the  computer  and 
converts  it  to  a  form  which  the  computer  uses. 

Inside  the  computer,  we  deal  wilh  data  in  a 
form  called  byte.  When  this  is  translated  to  the  form 
it  takes  on  the  outside  it  becomes  a  rharacler.  A  byte 
is  made  up  of  eight  hits,  with  /;//  being  the  simplest 
form  of  data  representation  inside  a  computer.  A 
bit  consists  of  nothing  more  than  an  ON  or  OFF 
condition.  When  a  computer  is  using  the  informa- 
tion it  works  with  all  eight  bits  of  the  byte  at  once. 
This  is  called  parallel  operation  since  eight  bits  are 
used  sinuillaneously.  Since  each  bit  has  two  possible 
conditions  {on  or  off)  and  since  we  are  working  with 
eight  bits  at  once,  this  means  that  by  using  these 
bits  together  we  can  represent  two  lo  ihc  eighth 
(256)  possible  conditions. 

By  taking  some  oflhe.se  256  states  and  deihiing 
them  as  representing  something  such  as  characters 
in  the  alphabet,  we  provide  a  means  for  the  com- 
ptxter  to  work  with  information  as  we  hinnans 
understand  it. 

Since  the  computer  must  know  whether  data  is 
your  information  or  its  own,  one  of  the  biis  is  usually 
set  aside  to  indicate  this.  This  leaves  us  two  to  the 
seventh  (I2H)  possible  things  which  we  can  repre- 
sent as  our  own  informalioii.  When  using  the 
computer  to  communicate  lo  other  equipment,  the 
equipment  generally  requires  certain  "control 
codes"  to  perform  some  of  its  functions  —  returning 
the  carriage  on  a  printer  or  clearing  the  screen  on 
a  video  terminal.  Generally,  34  of  the  possible 
representations*  are  sel  aside  for  the  purpose  of 
controlling  equipment.  This  leaves  94  possibilities 
left  to  represent  all  the  characters  in  the  alphabet 
(both  uppercase  and  lowercase  letters)  the  numbers 
(0  through  9)  and  some  of  the  more  commonly 
used  symbols. 

When  we  want  to  send  this  information  over 
the  phone  lines,  we  run  into  a  problem.  Ihe  phone 
network  is  an  endrely  different  enviromnent, 
and  is  no)  at  all  compatible  with  compulerized 
information. 

Digital  into  Audio 

This  is  where  the  MODEM  comes  in.  The  MODEM 

changes  the  digital  signals  which  ihe  coin]nitcr 
likes  into  the  audio  signals  the  phone  network 
likes.  (For  this  discussion  we  will  a.ssume  that  a 
BELT  103  compatible  MODEM  is  being  used  in 
the  originate  mode.) 


Introducing  the   M  line  .   .   . 

Now!  Drive  Systems  for  AIM,  KIM  and  SYM  Computers 

-  from  PERCOM. 


Assembled  and  tested  systems  start  at  only 
$599.95,  including  the  drive  controller  cir- 
cuit card,  disk-operating  system,  intercon- 
necting cable,  drive  and  comprehensive  us- 
ers manual. 

•  The  right  storage  capacity  -  Available  in  1-.  2-  and  3-drivc 
systems,  willi  either  40-  or  80-track  drives. 

•  Flippy  storage  -  Flippy  drives  (optional)  let  you  flip  a  diskette 
and  store  data  and  programs  on  the  second  recording  surface. 

•  High  Storage  Capacity  -  Formatted,  one-side  storage  capac- 
ity is  102  Kbytes  (40-track  drive).  205  Kbytes  {80-track  drive). 

•  Proven  Controller  -  The  drive  controller  design  is  the  same  as 
the  design  used  in  the  Percom  680X  LFD  mini-disk  system.  This 
system  -  introduced  in  1977  -  has  given  reliable  service  in  thou- 
sands of  applications.  Two  versions  are  available:  the  MFD-C65 
for  the  AIM-65  expansion  bus.  and  the  MFD-C50  for  the  Sus- 
tem-50  (SS-50)  bus. 

•  Includes  an  explicit  data  separator  circuit  that's  reliable 
even  at  the  highest  bit  densities. 

•  Provides  for  on  card  firmware. 

•  Includes  a  motor  inactivity  time-out  circuit. 

•  Capable  of  handling  up  to  four  drives. 

•  Capable  of  reading  both  hard-  and  soft-sectored  diskettes. 


•  DOS  included  -  The  MFD  disk-operating  system  works  with 
the  AIM  monitor,  editor,  assembler,  Basic  and  PL/65  programs, 
interface  is  direct,  through  user  1/0  and  Fl.  F2  keys.  Diskette  in- 
cludes DOS  source  code  and  library  of  20  utility  commands. 

•  Reliability  assurance  -  Drives  are  burned-in  48  hours,  under 
operating  conditions,  to  flag  and  remove  any  units  with  latent 
defects. 

•  Full  documentation  -  Comprehensive  hardware  and  soft- 
ware manuals  are  included  with  each  system. 

Now!  Expand  your  AIM-65  with  Low-cost  Systcm-50 
Modules. 

The  Percom  M65/50  Interface  Adapter  connects  your  M-65  bus  to 
Percom's  System-50  (SS-50)  motherboard,  allowing  you  to  ex- 
pand your  AIM,  KIM  or  SYfv/I  with  proven  System-50  modules. 
You  can  add  disk  storage,  memory  modules.even  a  video  display 
system.  The  M65/50  provides  buffer-amplification  of  address,  data 
and  control  lines.  On-card  decode  circuitry  lets  you  allocate  ad- 
dress space  either  to  the  computer  or  to  the  expansion  mother- 
board. Price:  only  $89.95.  including  System-50  motherboard. 

System  Requirements:  AIM-55,  KiM  or  SYM  computer  with  ex- 
pansion bus  and  four  Kbytes  RAM  {min). 


Yes  ...  I'd  iiliG  fo  know  more  about  Percom  MFD  drive  systems. 
Rusll  me  free  literature. 

Send  to 

PERCOM  DATA  COMPANY.  Inc.,  Dcpt.  65-C 

U22U  Pagemill  Rd.  Dallas.  TX  7524.3 


PERCOM  DATA  COMPANY,  INC. 

1  1220  PAGEf^ILL  RD-  DALLAS,  TX  75243 
1214)  340-7081 

Toil-Free  Order  Number:  1-800-527-1222 

PRICIia  AND  SPECIFICATIONS  SUBJECT  TO  CHANGE  WITMOUT  NOTICE 
=  m«l  PERCOM  DATA  COMPANY  Iiic 
AmS"'  "''■?-°'",-  Mro-C65  a„d  .M65  50  are  trademarks  o(  P(>rcom  I5au  Comp.nv   Inc 

KIM  i5  a  trademark  of  MOS  Technologv!  Corporation 
SYM  is  a  iradcmatli  of  Sunertpli.  liir 
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When  an  on  condition  is  sent  to  the  MODEM, 
it  transmits  a  1270  Hz  signal.  When  an  o/jTcondition 
is  sent  to  the  MODEM,  it  transmits  a  1070  Hz 
audio  signal. 

This  allows  us  to  send  digital  signals,  but  we 
still  have  a  problem.  The  computer  is  dealing  with 
256  possible  combinations  at  any  one  time,  but  the 
modem  can  only  handle  two  conditions  at  any  one 
time.  This  is  what  the  UART  is  for.  The  UART 
takes  a  byte  that  the  computer  feeds  it  and  breaks 
it  down  into  bits  that  can  be  sent  through  the 
MODEM.  In  order  to  do  this  it  takes  the  eight  bits 
which  make  up  the  byte  and  transmits  them  one  at 
a  time.  The  liming  of  this  is  critical.  The  computer 
at  the  other  end  (the  remote  unit)  that  is  receiving 
this  information  has  to  have  some  way  to  reconstruct 
this  sequence  back  into  the  byte  that  the  computer 
can  imderstand.  It  must  have  a  UART  to  do  this. 
We  can't  just  send  the  information  whenever  we 
feel  like  it. 

Timing  is  Critical 

The  first  thing  we  have  to  do  is  define  what  a  bit 
will  be.  This  is  defined  as  being  an  on  or  o/^condition 
for  a  specified  period  of  time  (This  is  referred  to  as 
the  bit  time  or  bit  rate.)  This  way,  the  remote  UART 
can  know  that,  once  it  starts  to  receive  the  informa- 
tion, the  first  bit  will  be  presented  to  it  for  one  bit 
time.  Then,  the  next  bil  will  be  presented  to  it  for 
another  bit  time.  This  continues  until  the  last  bil  has 
been  sent. 

We  also  must  specify  which  bit  is  to  be  sent 
first.  By  taking  the  bits  that  make  up  a  byte  and 
labeling  one  of  them  as  tiie  Least  Significant  Bit 
(LSB),  and  another  as  the  Most  Significant  Bit 
(MSB)  we  can  define  that  we  will  send  the  LSB  first 
followed  by  ihe  next  to  the  least  significant  bit  until 
we  reach  the  most  significant  bit  which  is  the  last 
one  that  gets  .sent.  Tliis  allows  the  remote  UART  to 
know  what  order  the  bits  are  being  sent  and  it  can 
reconstruct  a  byte  properly. 

Since  this  is  a  time-dependent  activity,  we 
need  to  ha\  e  a  way  to  synchronize  the  two  UAR'fs 
so  that  the  one  that  is  receiving  the  information  is 
looking  at  the  right  bit  al  the  right  time.  To  do  this, 
the  U.A.RT  adds  an  extra  bit  to  the  byte  that  is 
being  sent  called  a  start  bit.  When  no  information  is 
being  sent,  the  UART  will  send  a  continuous  on 
signal  to  indicate  that  it  is  in  an  idle  condition  (some- 
times refened  to  as  a  warA/n^ condition).  When 
something  is  to  be  sent,  the  UART  will  send  a 
single  r^//  bit  to  let  the  remote  UART  know  that  it 
should  begin  collecting  bits. 

Since  the  computer  only  uses  seven  bits  to 
repre.sent  a  character,  the  U.ART  makes  use  of  the 
eighth  bit  for  il.self.  This  is  usually  referred  to  as 
the  ptirits  bit.  The  parity  bit  is  created  bv  adding  up 
the  number  oi  on  bits  in  the  character  that  is  being 


sent  and,  if  there  are  an  even  number  of  on  bits  in 
the  character,  the  parity  bit  is  turned  on.  If  there  is 
an  odd  number,  it  is  turned  off  (assuming  that  the 
standard  even  parity  convention  is  being  used).  This 
lets  the  remote  UART  know  if  the  information 
sent  was  lost  or  damaged  during  transmission.  The 
remote  UART  does  this  by  adding  up  the  on  bits  it 
receives  and  then  compares  this  sum  to  the  parity 
bit  that  the  first  UART  sends  it. 

One  Final  Problem 

Now  we  have  only  one  final  problem  with  which  to 
deal.  The  remote  UART  knows  that  the  transmis- 
sion has  begun  when  it  receives  the  start  bit,  but 
what  happens  if  the  parity  bil  (which  is  the  last  bit 
sent)  is  an  off  b'li  like  the  start  bit?  The  remote 
UART  has  to  have  some  way  of  being  able  to  rec- 
ognize the  next  start  bit.  To  do  this,  we  have  to 
insure  that  an  idle  condition  always  precedes  the 
start  bit  so  that  there  will  always  be  an  on  condition 
prior  to  the  o//^ condition  generated  by  the  start  bit. 
So,  the  UART  adds  one  final  bit  to  the  information 
called  the  .<itop  bit.  The  stop  bit  is  always  an  on  bit 
insuring  that  there  is  always  an  idle  condition 
generated  before  the  next  is  sent.  This  means  that 
a  sum  total  often  bit  times  is  required  for  the  com- 
puter to  send  each  character. 

In  the  next  column,  I  will  discuss  the  inter- 
reaction  of  the  UART  and  the  conipulci-  with 
I  egard  to  timing. 

*  Note:  the  "space"  as  an  alphabetic  character  does 
not  exist.  It  is,  in  reality,  a  control  function.  It  has 
come  to  be  used  and  referred  to  as  a  character  be- 
cause it  is  simpler  to  represent  this  non-character 
condition  in  the  context  in  wiiich  real  characters 
are  used.  This  is  analogous  to  the  number  zero 
which  is  iiot  really  a  number,  but  is  used  as  one  to 
represent  the  condition  of  nothingness.  © 
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able  dala  sale  Dependable  Scotch  diskettes 
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•  MPS  6530-002,-003  for  KIM-1 
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•  KIM  PROMMER 
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^      f  A^A\LY  •  KIMEX-1  EXPANSION  BOARD 
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•  RS-232  ADAPTER 
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BRIDGE  2Mh>tliMt  fqr  Ml  compwltnl  rrtn:  SLT.n  Cmmmim'ZXIM  DkkitH 

A/ikll  Lneluki^r  •nuon  of  ihij  mail  papuJu  ai  cu-d  iuiki  T^ii  [HD(fuii  both  IMD^ind  PLAYS firhci  (i)fitiK<  m 
dupiKiif  hidie  Dtpcodint  on  lh<  contiKi,  rw*"  ■fpmpum  op^oftfiit  -tit  tiilwi  pUj  ih*  orfeDM  OH  deftmc  II 
tint  Cnd  [on  hi^h.  iht  Mmpuiei  *iU  dovbic  vow  cnniract!  BRIDGE  1  0  prQitdn  rtulkrifiRi  (nienitBincnl  for 
tJ^VKcd  pliyiTi  utd  LI  aa  excellent  kanuR)  totf  fw  Uw  bndfr  hutl-c-  S«  ih«  tariMMi;  fevuv  in  U  SofTvift 
Cnliqur.  blol  rl  D;  ClHIiX  CoffipaliqL 

HEARTS  1.3  (A«illibl(  ro»»JlnimpBlrnl  h*c»;JiJ_Mi:-— «./lH.1«Dl*j«. 

^flCiCtlinjWid'tntfrUinintcdiininilit  lElUAb  C'rihtl  populsi  Ufd  |unf  Hcini  11 1  irKk-OTKntcd  lirnrin  '■luchtht 
^rpOMil  AOI  ID  Ukr  U)'  hcini  Dr  the  qomi  oripKICI.  F1«J  «Min]l  Ivpcprnpvlrr  opponFnli  wtto  t.'r  vnwd  wilh 
hiid  lobn)  pEifint  tiiiintn  NLAfirS  t  S  ii  u  tiul  (um  for  inifodi^tni  th*  uniniEkiird  I/our  ]9»uk)to  com- 
pu[(tii   S«  ih(  K:ri><vr  [cvir^  <?  H  SoIlvut  CniiqiK'. 

STUQPOKEIl(AUfto»l?)  M*.i|1I.WCi«*n*--ilS.«Dtak»n* 

ITtiiiilhc(tuiKfimt'lfi')(«tdM"v  Th#ccinptj[fidemlithtMr(lii>rK*i«iLin(tind|'OLit(AdilKma;niEe>b«cn 
wHti  you  uc  TTm  cornpuKT  don  nol  ch««t  iwl  unw^/Mi  the  9d<U  Havrrf*.  \i  tomtiJiMi  btuffi!  Alio  iiKl>udedii 
A  n>eruddriw  pdkrr  trKinipiB^iKt  pti^un.  Thiipi^kmijiail]  runoni  IfrK  ATAKI.  ColDr.trtphioLKHiiid.  Sec 
/FVitw  hn  COMPUTE, 

POItER  PAHTV  (Aralftbk  r«r  iJI  conpatm)  Pifc*:  S17.HC>wHi/X11.«5  DWntta 

PDKEil  PASTV  u  *  df«*  poUf  limuLiLin  bucd  un  ihc  book.  POK£Il,  bj  Ch*ild  Ik4^.  Thit  i*  lis*  mOi*  so™ 
pic>imiiTt  rfTuon  iiubblr  for  micTtKoiDpumi.  "Pi*  p»rtr  ti5ft"iii  of  (Aifwlf  Aikd  lu  oifwr  (Ewipiur)  pli|wi 
Eulu  o\  ihDt  pIiTtTi  Ijou  s^  tn  EO  Ltko*  (Ann)  tku  ■  difrccmi  prr»aiiit)>  lb  Om  form  of  ■  ■urini  propnmlv  Mt 
Cihiir  ot  fod  iiOd«  piniuiE  Ptkik*  ■■b  POKER  PABTT  b«fw*  |ab|  w  ih*i  cipnuivc  |uik  LO[U(]«r  Appb 
cuKtu  lad  dukcit*  timat^  rcquu*  t  i;  X.  |«  Itricil  Appk  tl 


CfUBBACELVOItS-iaoiU) 

ThA  ii  vtaHi  iltr  boi  cnbbiic  fuw  i-twlfibW:    ti  ■ 

Liri|uat«  i&uii.nci  pio'>Kh  iipvd  citecuTiM'.  Sk  the  h 


Prtw;ll*.«*C-— «*^I*.M  MAHW 
■Ii  ncrlWii  -protrwn  [»i  ib(  cnMi*(c  piaycr  ii  tcvdi  of  * 

g  unprovt  lui  fUUt     Thr  p«|>>uE1  W  ii^pab  lAd  urniUy 


THOUGHT  PROVOKERS 


MANAGEMENT  SIMULATOR  lAliri.  Nonb  S"  ■*!  CP/M  onlr» 


Tttu  protrirti  a  BcOl  ut  (icriknE  locJuiti  Cwi  »  »r[i  ■■  a  uiffliiJuiaj  inirUenual  imjm.  Bu«d  upoe  iwulir  lamci 
pSiytd  IE  pkdiuEf  buftivH  viu»l<.  *»th  pUycf  or  iuri  comrDli  ■  cenpuT  •hK*  HMfluliriiaitfi  e1j«  prodiicii. 
Eith  pl»jTT  >is«inpci  la  ouipcrloraj  Iiu  nrntpnlou  *t  »«iiift«  **Uint  pri«i,  prudumon  volumn.  nulelint  iml 
d<b|n  KXKndnurn  eic   !*«  mwJ  i4i£i:tu[ul  finn  ii  the  out  "lEh  ifw  hiibnt  ji«fc  p™»  •hra  th*  linuUikMi  eodt. 

FLIGHT  SlMt'tATOB(A»«a»bk  tot  tUvmpaMm)  m»:  til.WCi— ttt/lll.M  Dbbm 

A  :rHl.ttK  *iMj  fiErtuivt  grMlhcmii>cfJ  .uiiulAiioa  of  liki-cfr,  flifthE  UKi  Urnhftf  -nuprBK-m  i,>[jIu*i  *«odyii»3vk 
tquitiont  Hid  ihr  ichuKicniiia  of  ■  rnS  ■iTfinl  Tw  (M  pik^kc  luinnntnt  appiiMcHa  utd  n«Ti)ilioq  ihiob 
Ftdktli  lAd  {ompui  bMJj}T(i  Ttw  *«*  *dt«ic«*  fJjrr  (Ui  dM  pn  rpTTn  Ippfn,  h*:f  *oil»  fcnd  timiUi  hto6*ik 
mumiTTik  AJihsiuih  Ehii  pouun  do«  roi  rmpldr  tfiiphk",  ■!  n  (Kiimi  wnl  i-err  tdd«i<>Y  Sw  e(h  KiTEvur 
(«i**mC"OMPUTRONIfS   Hwfti  1(1  itK  At*ii 

VALDEZ(A*iUibl«fij»Bllco«pt»Wn)  rf*c*!»lS.»sc— HU/ll*.»3lJiik«i* 

VALDEZ  Ii  1  rompulci  )Lmul±iioEi  ol  >ij[xn»nter  iiiviM"CF>  m  ttw  Pi^n**  WilLim  Sound/ViJdci  Nirrowt  repon 
o[  Alwi*  IhtliwiKl  ia  thu  iiiniililEoo  11  ■  mliiiK  nAd  fnimiivt  IM  ■".  JJ*  dm«ii  mip.  ppnign>  o!  •hieh  mir  b* 
riettid  Mini  ih*  ifwpS  ilcit*niini«i=  tidir  dupUy.  The  rMtiw  Ol  Eh*  ihip  Hull  ii  Kcunicly  Eiwddlcd 
mJihrauticiJlr  TTw  iimuUiion  ilia  cdaluci  i.  mtPdfl  fw  ih*  iidjtl  p*tirm»  in  th*  lej^oB.  u 
(ami^ni  tukcri  iind  dnlEini  K»(mp)  Ch*«  J'out  conii*  from  iIk  Qi^fof 
»ui  rf*>*»  in  n  tifti-mtit  Cnti^LW 

BACKGAMMON  t.«  (Al»ri,  .Nort*  *Ur  wd  CP^M  *lriyl  Iii«:  IU.«  C— rtU-lU.W  DMfii* 

TTiit  piACruB  <Hii  >mi'  bKk|«mmo<5  liifli  tad  will  iJ»  impfcwr  joufiJtfTHf,  AbumMMncoiriprtrijfciCiii  1  rora- 
pumoKAfunji  WKHkn  RuiH>i>  ■nMcotapuiD  CM  r>n)  plir  !»•""*  ""II  Enb*i  [^  humMa  or  ihe  mmpuWr  c»n 
dMt4«  «  ^f*fM«  d4M  roOt.  Boud  powtJQiM  <**  be  ciuud  «  m*«)  for  rtpUt  BACKOAMMON  LO  pltjt  tn  k- 
MiduKi  wih  iht  offKi*!  ml"  of  b^isimnieft  ifid  u  lurt  Is  punmi*  ftntnr  rucuunc  kiumli  of  twckfiffmsn 
P"«r 

CHECKERS  3,04PCT<«ij)  Pr*»:fl*,»SC— HU/ni.«Dtak*m 

Thitiion*  of  th*  mon  ch»fln>iJf«  thttlei  profrinu  i.ynl*bk.  Ii  bu  l^lntU  ofpUy  uuJiUowsdw-jan  tochwn 
(till  kv«ii  t\  Kit  uint  AlihouiA  prDvtdtni  t.  'tn  n™*h  sHin«  *e  k»(L  «  I.  CHECKEKS  3.0  »  prteticJlj  urLhe*uM* 
tl  Lr<rl<  9  u^  ID 

CHESS  MASTER  (Nortb  Sur  ud  T1»«l  <»(3r)  f"*-*  ll».MCM*«i./nS-W  duhu 

Thu  complrU  iNt  >(n  poKcrlul  profrun  proodci  f;>r  l«vrl>  ol  pUf  li  intluda  cuillnt.  rn  puiuil  capturn  irvd 
iht  pforoaiJon  of  ti*wr)i.  AMUKhmU).  th«  bawd  miy  tw  pttKi  btfon  iiw  iLmi  sf  &!*>,  pennJtilni  tht  euxnLiuElon 
of  "book"'  pUp  To  mwiiisiM  ciwiEicn  iptcd.  !h*  pmuun  u  •m«n  Lr  lunnbl)  lanriajc  (by  SOFTWARE 
SPECIALISTS  Df  CaJJfOTDiil  f  nU  irxpfcic*  ur  empki)*!  In  ih«  TUS-HJ  ^rwn,  jaJ  evc  -idih*  of  ilpfunuirmk 
duplAT  •'»  no»*i*l  to  tuomniisdau  Nwtb  SUi  hk"-  S*  rtvKv  in  anCoirpuEJnj 

LEM  LANDER  |31IC  Ap^  DU  i»«1t>  M"=  "*-"  n*^ 

PikH  jmr  LEM  LaNDEI  to  i  ««fe  laadmi  on  m»  sfiUMdirrfrtiii  njr«iffl[  tanfiin  ffUm  ifflo«h  10  iimcJwtoui. 
Tht  iiEiw  pi^dlM  »ri:  lucd  Eo  coorral  fStS\  aniiule  ud  ihnm;   Thii  11 «  rr^l^iOM  hith  ra  chalknv! 

FOHESrnREICAJjriBJr)  Pi»«!!W,»SC»B./JM.»nArt* 

opftiiiora  10  pui  wji  line  flit  "hik  tEMnpeiuiiirn  Fw  chmnitf  in  *v4,  "(Mhw  iftd  tnTuiL.  Nm  prw«ciiEif  xlwibb 
wrmriLffi  »n  rnuli  ift  lurtlinj  pc7uJi*i  Liftlitt  .w«blrt  tit  pio*i4iii  »o  makr  FOREST  FtBE!  *«fr  lutpeawful 
jjid  chaJkrriPf  Ho  i»o  (unw  h*^*  ih*  W"!  wftini  uvl  iheif  tit  J  k™!*  of  difflfulli', 

NOMINOES  JIGSAW  (A<Wl.  Appto  ud  TRS-IO  0»1>)  Prter:  lU.W  Ci»ch./|».W  Otakwu 

A  jujH-  puuk  on  row  computoi  Complrt*  itu  puuh  bj  Kltciiiij  jbht  pi«™  ff«n  1  t*ble  (ouinJni  of  »drr 
(K«!t*fi*pci  MQMINOES  JIGSAW  in  vifiuo»pioiiimmmirfrofi  Th*  (laphKi  *«  mpnUlrtf  «od  ihe  puxtlt 
-til  EhaJlfntc  fdu  -iEh  It)  ihtK  Ifveli  ol  Ci.(^i.liy  Seoiiniii  &m«J  upon  iht  numbft b(  iuhim tiben  uul  b]-  ihedif- 
nojltj  of  V\t  bowd  Ktup   Sw  r*»i*-  in  ELECTBONIC  GAMES 

MONARCH  iAUr1o«Jj>  Pri«:Jll.HC«-rtti/ll5.Mmrt*n* 

MONARCH  ii  ■  f4Kin*ii(i|  Konocntc  [snuIUioR  icqtitnxi  you  10  lurti^r  tn  Ijmt  Inn  u  jtow  ruwm  >  k«dir. 
Tw*  ikf«»l«  !Jw  uncuAE  of  KTHiT  dooi(d  19  liidiitEhil  uid  ifTkuLiinal  u«.  how  moch  looJ  10  diiiributc  lo  |in 
populace  and  K*™  mi«K  ihoOd  b«  jprrE  00  poUulwn  toriid  You  -ill  rirf  ihai  altdWHC"*  iFf.Dl«  1  i-ompom.H! 
am!  ihw  ii  11  iKM  <aiy  eo  malr  frtrjoM  hapry 

CHOH?EL0  (AUri  <»lil  ^«"^  »"■«  "^-'"■"  «^'' 

CHOMPELO  II  rMJif  E-oih*3Jnnin|  prnfl  m  onr  0*«  "  fcmJtf  ifl  NIM'  )Ou  muil  biif  off  p«n  of  t  cookN,  but 
4ii»d  ukiKf  ib«  pcKKMil  porinai  TV  «h«r  (UK  »  Ih*  popylK  bwotf  i*nw  ITVEfSI-  Ii  lull?  um  th«  Ai*Jti'i 
(TtphKi  !ap«biiiir.  "^  '*  l»*'d  lo  bcai  T^u*  pwXu'  wtU  lui!  on  a  tUC  ixmbb 

SPACE  LANES  (Av-itaW*  fw  ■■  rt«f«l*n)  Ptto:IM.«  DhkaWa 

SPACE  LAN"ES  ii  a  iimplf  bm  MSiiini  ipice  iraaiportat>on  jajnc  wlMh  involva  u^i  10  Ic?ui  playwi  imtlibOifii  iti* 
compuin)  T>woibj«i  ino  fotm  usiCTpind  ip»;cu*nif*aai»ni:Dinpani«in  acompWiiivewvirotinErii.  Thtioal 
It  no  amau  mott  jwl  -i?iili  ih*ii  r*"'  cj^ntni  Tht  wonowht  uwlad*  Hoek  piucCLam  lUid  comnnr  nnTjBi 
Vi'tuK  jrSitf  Btalih  iinT 


*ATAIIt.     PIT.     TIIS-30,     SORTNiTAf.     CP.M    anj    /flW 


rri'f'f I'rif    itaJtnti 
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DYNACOMP  OFFERS  THE  FOLLOWING 

■  widest  variety 

•  Guaranteed  quality 

•  Fastest  delivery 

•  Friendly  customer  service 

•  Free  catalog 

•  24  hour  order  phone 


AND  MORE. 


STARTREX  3.1  (AttlkUt  for  tfl  cowpaim)  Pete'  »irnc>— fl>/Ill.H  OakMU 

rhii  ii  \'bt  cluik  SUftrek  tunulaiLoaH  bui  trih  tncal  am  Cuiuia.  Tai  uaitplc.  the  KlintDoi  oo-  ihooi  ai  Lbc 
EninpriM'  «iElwuE  *afmn|  >Fiik  iiu  uiukiAi  iiubua  in  oi&ct  Q«uuiFinti.  Tiw  KJinxoru  alw  iiLbcL  aiib  biMh 
U[lit  and  hetvycrulKiiajid  novctbci]  ihoE  ai!  TIm  iiiuai:orL u btnic  when  CM  EnitrprTK  iib«iq:«3  bylhrcrlKaii? 
{TuiMTiu^aiiwIWicS.OnS-iitein'tiil  TTm  KUnfAnt  jet  tvenlSMEtw  tofiwattri^xwi  in  A.N  A.L  O.G.,  lOSofi- 
(harf  Cntiquc  and  Camr  Mcrchandiiint. 

DI^CK  HOLE  (Apph  oaly!  rrin:  »l4.MCwilii''l1t.H  EMkrtlv 

ThliivumciitnuiaptiKal  iiniulalicin  ohU«  proWroii  innplTplin  flij»eif)tgbH"iiii  p  bl^tk  hoJe  wiih*«pwrr  crcob*'. 
Th*  object  ii  lo  ensei  aadraainliJ.nH  I"  «  preicrtbcd  lunc.  in  orbii  cImc  eoa  iitaIJ  tkac).  hc}4t.  Rili  li  lo  be  achKred 
xiEhoui  eomni  w  m«  itx  arKtmair  Ifmi  tM  Ejii  ^reu  dBi/i^T*  ih«  P">t"  CDriibJ  df  ihe  trafr  n  reaiiiiicJlT 
lEinuLiiied  uLiR|iid(  jeti  for  lotaiCiOB. litd  cntjn  thniiEeii  lei  accckruion.  rhu  prof/a/ri  tmp^yi  Hi-Rci  ijiphjci  ami 
u  rdiKaiEOoal  ai  «tll  ai  fhalkn^ini 


a  U  'Tall"  a  ball  inco  a  bote  ia  Uk  urtDi.  Sumd  limpk?  Not 
If  aUcivt  you  to  meuuie  »on^  ikjjl  atainu  otlici  id  ihti  habit- 


SPACE  TILT  ( Afipfa  a^  Atari  Dilr> 

Uw  ihr  i«J]ic  pa^i:lci  Eo  lib  tSc  piiD*  fif  Etie  TV  M 
Khfii  thr  bqlf  ^iinud^  uid  imalkt!'  A  Buhnl 
fofminf  Bcuoa  |*dc. 

MOVING  MAZ£tAppto  Bad  AlarinKljl  rTkt:tll.HCMMllt'lt4,HDM««t 

MDVINC  MjU£  TTBpio]rii  ih'  i«iriei  p*ildkn  lAdireti  a  pu<;k  fion  on*  ude  'Sl  *  laau  to  lAe  othn  Ha*rvR'+  the 
muc  11  dpuni^^^V  ("^  rindomlr)  buill  and  a  cofltiniullr  bcint  modinod.  TtK  objwlt't  ii  lo  aoM  1^  maM 
without  iDuchiAs  (d*  btiAj  hii  bfi  a  *a]l,  Sconoc  ti  by  aa  elapMd  linw  indicaiot,  anl  ihrtt  leviU  of  ptay  an 

ALPHA  FIGHTER {AtaitoBlrl  Prtn:f  l4.HCMMl»r>I».H  DMrfl* 

Twa  csixLlCTvl  (faphio  a^iJ  Kiian  [iJD|fi/FLi  ih  cn(!  aLPKa  FIGHTER  (tqulict  you  la  deitioy  the  alien  lurihjp) 
puiini  ihicufb  )our  leciai  ol  the  iaUir.  ALPHA  BASE  li  in  ihc  pacli  of  xn  alien  UFO  invuioq;  In  Tire  UFO'i  vi, 
by  lod  the  |unc  ewli,  Both  (wnw  rrntatt  Un  ioyiiick  aiul  ici  EnOrpru'ttr  mtnc  difflftj^i  itit  hiifver  you  kots! 
AiPKA  FIGllTES  *il]  rtifl  on  I6X  lyucnu 

THE  RJ.NGSOr  THE  EMPIRE  lAUri  odr)  Prt«:  IU.KO-hw^IMW  DtaMU 

The  cnipirt liu  derElopoIa  new  bank  KatiooprcKcclHlby  rotatEncnnpofiranir  Euh  tin^rnu  Mue  ihicuih  the 
nnp  viid  i^ritivr  t^  itmiteitt,  ihe  tinpt/f  dfi^o(H  a  neik  iiaiua  mtb  rnoie  prouctWt  rioiJ  Thii  ciin>iniia.T<  tuni 
on  I6K  iTUemi,  mplap  e'li-roH^f  fiapliKn  w<d  »ovpd  a;>d  tan  be  plaTf4  bjr  arm  n  iwa  pUrm 

INTRUDER  AL£RT  (AUrt  daIf)  T^--  IU-«  C— »n.v»-M  Efci-n. 

T^  tt  a  full  nndpap^u^i^A*  wtiji:hptKM)0uia  th«iiuddl«oftli«"'DTndHw"ha.'kinf  jiiit  iiE^lca  lEipUu.  Tbc 
droidi !^>c  b«E  aJened  aad  aie  djrvcted  lodnlm  youat  alJ  (pO-  V'l^vm^ii  ^ma  andratn  ^oui  lAiptoMcape  wiEh 
ihcpUiw)  rirrlnTbi^fdiffWuhr  aftproriditd.  IKtRL'DER  ALEUT  lequirtiajDTiiKk  a»d  wi]]  run  on  ItKiytEnai. 

GIANT  SLALOM  (Atmri  OKhr)  Prhs:  SU.fS  CMCtU/SII.HEHifcmt 

TWi  nal-uret  KiioThfaiTVf  qi(uaiajit«d  •ddietnel  twihrioTrt^ktn  mntrd  yswrj^ihihfoiiih  tld 
v^iiniof  MhD[icninddoMd|«iM.Ch(MKriExndirfiT«nt  kvdiordirriailir.^KCBpitn'ioihet  playettoc^mpl]' 
itkt  pfaclkct  run)  aM:iuE  ihr  ciock.  GIANT  SLALOM  will  mo  on  lEiK  ariltn^ 

TRIPLE  BL(K:KADt:iAUriiMl7>  r^;%UM<:^mAUi%\^.*^T»,kMU 

TFl^lPlEBIOCKAiit-liAiwQmihiMplayer  ^iphiiM  and  lound acKontaiiu.il  li  baud  Dfl  Ihc  rlaiii<  video aickde 
xane  irliLcA  miUdoci  tia^e  ntjoi'td.  Uiinj  ihe  A^ail  joyilkki,  the  ob)«1  tt  lo  dirprl  ypur  hlotkp^ini,  tine  a/dund  ihe 
Kttwi  wfihsul  lunninf  Into  jpoi  oppiih**i(H  AJiMn^  ift*  eooeepf  ii  iimple,  th*  combined  »riphici  and  lound 
<rfeEi  leail  Id  "hifji  anilei)-". 

GAMES  PACK  I  (AitOfUi  for  ■UcoaipaUn)  Prirv:  111 .H  CMMltt''11'i.H  DM<m< 

GAMES  PACK  I  ctMiaiDj  the  eUiwc  comp^iHT  kuBb  tf  BLACKJACK,  LUNAR  LANDEJl,  C1AI*S. 
HORSEB^CE.  Switch  And  rn«e.  Thne  camci  lii^e  been  combiDed  into  o«  larj*  ptotra™  f™  ™«  In  ka^dg. 
TheyarticdrriduaUr  KcaKd  by  a  coaT««<n'i  rarau.  Thii  coUcEtion  uvofttiitwpnce  jutifoe  the  DYNACOMP  >□-- 
uoa  ot  BLACKJACK. 

GAMES  PACK  D  {AviOibk  fw  tB  (OBpltml  Pftor  11I.HCaiMtl«:'l]4.V9  Oikrtl* 

GAMES  PACK  Ifmduin  ih*  jiniH  CRAZVEICHT5,  JOTTO,  ACEYDUCEY.  LIFE.  WUMPUS  a»d  othcri.  A* 
■ub  GAMES  PACK  I,  all  ihc  iMirm  tit  lowkd  ai  one  ptnpam  »nd  kt  callnl  tpwn,  a  ntnt.  You  i*iU  pviKiUaf))'  tei- 
>9r  DtNACOMpL  trf^n  of  CKAZV  ElGHTl. 
Why  pay  J7.SS  or  uuxe  pet  p(e«iani  when  ■rfu-  ian  buy  a  DYKACOMP  iollemon  fiw  )iui  1ID.W7 

MOON  PROBElAUri  ud  Norlk  SlW  Otlrl  rTk<^SI].fSCHHiie/ILJ.HDkk<iU 

Thii  n  an  Mfrfliwlr  irha!k#niri(  "Ijnar  Lander"  pfovram.  T?ii  iiie  miui  drop  from  orbK  (o  land  p(  a  ptolrtHnii/ieil 
lariei  on  ihe  snoon't  luiface.  tou  renlrol  the  iriruil  and  bricuEHioo  of  youf  mfi  i»Jui direct  ihe  rale  ordctccGi  and 
approach  asfk. 

SPACE  TRAP  (Aliri  Oity.  NK)  nirn  Jn.«  C**-n*/$tl.t*  l>t»kF«r 

Tba  lalactic  "ihoM'rm  up"  ajc^<r  lunr  ptacvi  yOu  n±ar  a  black  hole.  You  c3CUol  your  ipaceenft  uung  ihc  )3y- 
nkk  and  atUtnpt  '-f  biui  ■•  irtuty  of  the  alien  itiipi  ai  poaiibk  bttoie  Ibe  dU^L  h^Lt  t'i^tm  abouE  tiHi 


ADVENTURE 


CRANSTON  MANOR  ADVENTURE  I N»nfcSl*JiJdCP/M«lTl  rTte;OI.»ll**a» 

Ai  lafll  A  eomiKeheTurvt  Ail»Pi%Lit  i*jT*  foe  NortS  Sta:  and  CP.'M  Tytuxa.  CKA-NTSTOS  MANOR  ADVEN- 
TURE i«ia  r*"  t*to  myiterwui  CILOJSTOM  MA>OK  whnr  you  astcrapt  to  fuhtt  fabuioui  ueaiuiH  Luj-kioj  ia 
the  ntaiic>Tirt  wdd  aoUnaJi  »»i  robAU  who  *ill  not  five  up  tht  tronra  witboul  a  fltht.  TV  numM  Cf  imwh  ii 
linUT  «nd  Ihe  aiiociaud  dcKTtpuoai  are  much  more  claborik  i^ian  ■>>€  ^att^i  popula/  wtet  of  Adventure  pco 
irum.  makkui  th^  M^e  i>>r  top  m  iu  clau.  Play  can  be  iioppsj  at  iny  unr  and  Ihe  itaiui  xated  on  duteiir  Hot 
■>uUbk  In  IV. '-  CF/M  fcimat. 

GXIMBALL  RALLV  ADVENTURE  (Nwib  Sur  OlOji  4«)  Wee:  WI.M  Dtakefle 

Take  part  in  Lhiaojiif*  !■(»  f'oni  iheeaitiEOMt  to  Efi*  well  cMiE.  TbrtioaJ  1*10  rind  youtweij  to  ihe  fliii«h  lint  while 
nuintajftLbj  [he  hiiheii  pouibh  ipcml  You  r\tii.hoott  orit  at  fiir  fji  aTailabb  ai  Ut*  laiafe.  The  c  bote  c  »iL:  affect 
vour  ip«ed  and  ra?i<   jtcAiifnbcr  lo  ukr  tpaj-c  fam  loA  don't  tet  caufhl  ipwdwjl 


SPEECH  SYNTHESIS 


DYNACOMP  tl  wj*  duiribuufti  the  new  and  rcoliUKmary  TYPE-'N-TALK^*'  (TNt)  pp*w;h  iPinib**iMf  Itom  Voer**. 
Stniplyco«iacciTNTIoywkrwcpp*iWi''«*»*Lalust*rfiic*,  fnierteiilroinihekeyboMdafldS*«iihew«d«ipoktn  rNTii 
tTif  eaimt.tiCi-pi>CPiphffl  tpexh  i)nihetluT  on  Eh<  nurtel  It  utet  tt>t  kaji  ^miHAi  ol  memofr  end  provda  ihc  ino«  flea^ 
ttk  rocabulao  ivallabk  anywhnci 

I*Hce:  l)J9.'f^  (PUuc  iiU  M  00  for  ibi|ppin(  and  handlini) 

TNT  Softw»n 

Tlw  foUowui  DTKACOMP  pTi>ir«isM  *re  availibk  for  uie  wtib  TNT: 

STUD  POKES  {Alan.  ^K) 
NOMINOIS  JIGSAW  (Aiart,  UK) 
TEACHER'S  PET  I  (Atari,  ■"■s  North  SuiJ 
fiKJOOCltKNartli  Scaf) 
CHOMPELO  lAlan.  :««) 

TALK  TO  MEa'S'T  AUrl  oalr,  MKl  Prke:  lU.M  Ca— a.^.«  D4**bp 

Ttia  pro(r*m  prfwnti  a  wpnh  tutorial  on  ip<«h  lyflttmii  uMna  Ibc  Atan  KO  an4  TYPE  N  TALK '  ^  TALK  TO 
MEaiUilluiEfUeponnat  i¥Ocd(cmTationu  wTl3P'>ii^aA*flM|eBefaKtan.ThtdoawKiiuitonLfKludeinianT^<*pfi|l 

ipcDfcaniRuref  Itps 

pifuc  iprii^i  ■TNT"  'Feruooi  when  CKderm|. 


ABOUT  DYNACOMP 


DYNACOMP  ii*  leadJni  dliliibuioi  df  irnill  *yHtm  lofiwuc  with,  uln  iptnnini  the  w^jfld  {titfKrily  in 
c»MM  or  40  courltf i«l,  DuriPj  ihf  pait  t*P  yemri  we  hive  ifcilly  Mlujtd  th*  DYNACOMP  p^rodjcl 
lifie,  buiha«tn»irl»jnedind  improved  our  hijfi  levelcf  quajiiyifid  euiioraer  iuppOtl,  The  ichitTtmeni 
in  quAtity  '\i  tpputni  from  our  many  repeal  culTOfTlttS  kfld  ih*  Kjflw*te  revie^i  in  luch  pubLcBtlOtU  U 
COMPUTRONICS,  80  Sofi"U<  Crii^jye  ind  A.N.A.L.O.G.  Dm  cuiioriMrf  tupport  ij  «  eJos*  w  your 
ptjore,  It  ij  t]w»yj  friendly,  The  »tjiff  ii  hitlily  litiwd  utd  ilw«y*  willini  to  di>cuu  products  or  (i^c 
■dvicc. 


BUSINESS  and  UTILITIES 

STEUjGVARD"' it"  C?/M  o«lT)  LtaiPrw:  lU*.  Dl><n,COMr  rtkc:  UlV.fS  DM 

SP^J-GIJAUI  11  m  rE7i£iJu(iteUr]r  ^nr  pnUiKl  wtu(k  in^c^^q  t^  t>1uc  □(  r<»i  «utdi[  wnril  ptccmuj.  lyilna  (V.'OtD- 

5TAA.  MAGIC  v-A-HD.  £L£CTR]C  PENCIL.  TEXTED  EDITOR  11  ud  otbmH.  Wn:i<D  murr^r  u  lumblr  Lin|uA(c. 
S PELLGU AJLD ^^  npidlj  uwu  ib  uic  is  ■^"'^"'"i  ipcUat  uid  tjpofnpbKitl  errcn  bjr  coinpvint  etclb  *vd  al  tbc 

round  in  Uh  dictiOB(iT  4rr  "fbisvd"  tc*  (VT  ■(ha'ilindpe  ind  wmcttoti,  MMt*dpw<D<;iti*rpialT;t«asliv*iihw(ir^p(D. 
c^cai.  Equ^mat  w2]  b<  tbk  id  jx  SPELlCUAJto''^  in  oofy  ■  few  BUGina. 

MAIL  LIST  1.1  (Apfle.  Aurl  lud  North  Sur  dUritt  tmij)  r-*^--  %HM 

Tbu  prcfitnU  wimuchcd  Uitj  iibd;tj'  tanoft  t  mulnuni  aunbcr  of  iddmuM  hi  WMdmBU<niininMDpf  IIDOpndltk 
ClE<.  iDOar  U&B  I2m  (in  "dcKiblc  Elauilf"  ir'icnJk')  [tp  buoj  trV\fia  led iidr  sipKabfli^  And  tip  MikiOriiei.  Ubd  JX^PIiftl, 
(I.  Lot  l-u?).  BtcTFatoCrila  ud  ■  ho^^ie  tr]r«ad  HckiatriMRiQC  wbtcfamncrn  tnina  bj  ■  •iniiarllrl>a<<i(tt*>*^«^'<>n>'r 
UNT  dxfiiMd  codM.  Mtil  Uk  2.2  *il!  rvM,  tiad  uid  ddA4  duplxuc  ifttnti.  A  %«)  vAlatbk  protrunt 

FORM  LETTEH  SYSTEM  Tri.  1  ( AEifl.  Nortk  SUr  ud  Apple  DUkctls  oalr^  THa:  %UM 

n>RM  LETTEll  SYSIEM  [FLhS)  n  the  lOnl  pn>piffl  fin  cmbq  ifld  tditiAi  fotm  kum  vul  i^kim*  ii»M,  It  nnfun  u. 
euy-UHue  tea  edator  vhicb  pmducni  fuS?  junifiid  cm.  Special  coda  trc  umJ  In  [be  tbdmi  bn  tn  otuin  pmemtliatd 

ulutMtHlBi.FfKlDleUasUE  produced  b]r aalOiABiiisUj  uUslifiEathaddrai  lDIi)  >  pted«inmiia«d  poniOOOrj«Bl  lAMf.  FU 

i*  nmptetdy  coaiptiiUr  wii^  MAIL  LIST  2.2,  vtui^  mi)'  be  uxd  l9  macix  ind  mt!  yvni  tddim  fJa 
FLS  ud  MAJL  LIST  Z.I  m  fuliblc  u  ■  ansEnned  jmciMft  fcr  SIV.M. 

SORTTT  J*  i  |a<Ttl  purpoK  wniAi  procrwa  wniun  la  KHD  uionblF  Unimjf.  Thli  prcifrwn  will  nan  tiqumtlil  diii  rUn 
XciitTii«4  hr  NOKTH  Star  SASIC  (^TriijTiJ>doptiofiJiB™oiWik«7»B>»jh"iMBirt«eMic>6lMdi*i«atf  iirij^ 
SORTTT  U'BiiIriuid*i^nici|CMrMcdb7DrNACOMP']  MAIL  LIST  prafraaud  It TnrvcrHlik Is  III  np«bihiw>  Fo 
411  Mb«r  Basic  dui,  111*  lonint. 

PERSONAL  FINANCE  SYSTEM  (Atui  ud  Koftfe  Star  mOrt  ff^-  tM.95  Dkktiw 

FFS  i*  I  unik  dufcrtH-.  aeUv^riaslHl  fj^na  nprariOKd  pf  ITO  iJlftnTOrt  piDpuW-  BnUa  nradlAt  row  apmia  kdtd  lu 
deduciibk  Kcri.  PF3  nQ  ion  lod  fumcuriii  cipaua  try  pajnr,  %ad  ditfAay  tnlDrmuimi  dh  ctpcndiiiu'ii  bj  uir  of  ZA  uh) 
^flcwd  fodn  hi  mAaihor  by  ^j*t.  P^*iU  ma  pntduM radimiUr tur [fkpfai  tit  yitai  aceiua  hf  CMUtfit^l  Thapovtrt^ 
T^^i'^r  nquim  Htlji  ooe  diik  dnvt,  ■"■""■i  m^&Drj  (24K  Aun.  )1K  Konb  Suj)  ftod  wUi  uorc  up  la  UD  ticoedi  pa  ditk 
(uid,oii(f  I[nOrecMdap«Tdii.k  bymjikiiq,!  tt*  uajd*  chMiteiiiaiiHprot'*''^)  YauCiJtrMM'idclwc'k.ipluJctdbttpeMa  to 
thu  I'ou  can.  niully  »«  'hetc  >Dur  raontr  jon  ud  ri^untnuc  piaiwDik  tad  tedicui  hukd  olculUioia. 

FAhntV  BUDGET  lApptt  Oitij]  Prtcf  ;KM.n DMf«f 

FAMILY  BUDGET  u  i  **tf  uovtnieni  rnuoi].  tecoid'kwp^  pro(rwn.  Yau  will  bt  ibie  tolKp  UKk  of  cuh  und  crtdii 

^proOIEujia  u  ircl!  u  iBCODi'  (M  ■  dulj  buu.  Ybu  taa  EBnMd  lU  daliHliMt  l-Umi  jAd  ih^Utk  ddiUtklM.    FAMILY 

BUDGET alHptoiridaicoiiuDBOiijrGcwd  of  aU  ctcdilLnuainJiOcu.  YmicaaraAktdiily  cull  udfhuit  cntncilourcif  21 
dirrtttni  aptMt  tccctuiu  u  iirdl  u  ld  J  ptyroa  ud  tu  Kcovati.  Dui  tie  euily  miievcd  lirlni  ili«  at*t  cooipkH  mhudI 

[fTTEUNK  (Aurl  oatj)  hfa..$«t.H  DUm. 

Thli  lofiwErt  pkciite  coatiioi  ■  mmu-drirra  coUccucc  nl  pfofimmi  lac  fi£iliimiint  frridcol  iwo-siy  ccmEunlcilwni 
Uvtn4tt  t  fua  djplH  moitm  [rcquirtd  fsc  uk),  In  ok  Eoodt  of  ^entioii  you  our  wnncct  id  ■  diu  ktvjh  (t.| ,  Th« 
SOUnCE  or  MiacNn)  tad  qutctCy  loid  dati  lucii  u  Hock  quouiioiu  oflis  >vlii  dJi-kciLc  for  liLo  virwint-  TtUi  pcail)'  ic- 
diKH  "wnMcl  lime"  t»d  ihw  (h?  wrncr  chviCr  Tmi  ni«T  tbo  rKOfd  llw  (pmpldr  twtimt)  pf  i  «itnri«fiie»iipn*  lauon. 
Addiiioull]f,pro|7iruwniiuinUASlC,  PDRTXA>r,  nr.  nurbcbuUiorriiMuUniihciupcKiniciicditn  "up- 

]p»dHl"  lo  uvplhrr  mmpultr.  milling  the  AUri  »  *tT7  hb*jI  irmumJ,  E*n<  Aiwl  BASIC  proxr"n"  in«T  ►■  uplo*iinJ 
PunhcT,  I  nrecunud  fUr  mai'  be  bulli  oir-UiH  uhI  lucd  lutr  u  cDatrclUEi  input  lot  ■  limc-ilu/E  ijriinn.  ThLi  ji.  ycu  can  ki 
j|;i  Jinn  tofitfux  al  timt-Atit  commuidi  uvi  pofiuni,  ud  iht  Aiul  •mill  iramnK  [^ttn  u  riMdcdL  hiich  prtKtitir|.  All 
ihii  iddi  up  to  urini  bmh  cooikct  lime  ud  frmi  time. 


TEXT  EDITOR  U  4CP/M) 
Thii  ii  ttit  Hccfid  fduu  vei 

EDITOR  It  pn!  nuj  bmld  Ic 
dclnrd.  RIa  miy  be  uvcd  o 


rTfct:in.HDUritt/UJ.4]  HA 

If  DYNaCOMP'i  pofiulv  TEXT  EDITOK  I  ud  ranibju  inuy  nr*  fuiurei.  Wiih  TEXT 

5  lnEhuE.ki  Midijiaiilikthcin  fni  Uici  Etippltiir.  ttw^i  of  laimpr  fie-^ppendcil,  iinerintof 

idiik/dijiEiLcicirithiiiuiiritd/crQirTrdfiSTiauiobclitciprmicdbyciilKrTEiXTEDITORll 


nheCP/MEDrtciliiir.  Fui her,  ASCII  CP/M  nia  rmdudJaj  BASIC  ud  UMnUy  lutiu^e  P'Ofiuui  nuytt  f«id  bji  ibc 
editor  tad  pTP^fwd.  In  Fki.  tcif  Titn  cu  be  built  uim»  ED  tnd  l«a  Igrmilted  u»iii|  TEXT  EDITOK  II  Ml  in  rU,  TEXT 
EDITOR  II  ii  ui  inciEKTuiviE,  ^y  id  lue.  but  vtrf  Ikiibh  cditinf  iturii. 

DFILE  (Atxriud  Norifa  SUrdlikc1Iaa«hr)  Prin:llif.M 

Ihij  Kudy  ptDfiim  aIIowi  North  Scar  tnd  Aujidtiik  uwii  lonuinuin  i  ipfnaliud  dai^k  btMoF  tlinita  wtd  piapuiiln  itw 
iiwlt  of  diib.1  *bi(h  l.nTKTtilili'  vccwnwktfi-  DFIUE  h  tvj  lo  kI  up  w>d  uk.  II  «4t9fM'<^  T*'ui'  ^^*  ^f  pts^^df  rtricknt 
locaiinf  or  itM'  doiicd  /Uc  m  piofna.. 

FlNOrr  (Noftk&Uf  Atlj)  Pfkt:  ILf.H 

Thli  ii  I  UuM-in-onc  proiruc  ^bicb  Bitifiuioi  LnlocDuiioa  ■K(uil>lc  ta  tnrwpidi  pf  ihiee  srpei:  PfTi<pntl  (n:  lui  mmej. 
CoounaeuJ  {e^:  plunbcTi)  ud  Rclere&ct  leg:  matulac  uilda.  rKiird  iJEium),  ru).  In  uldiiKKi  to 'keyword  tcvcha,  theie 
lit  innhd»y ,  »aai\way  lad  ippOtnUIMSt  IttlAtt  for  eIm  pefiAfi^  InHV^aildlij^iiOinlnlFnlHucba  f[R  Ihe  tDmmirdAl  rr- 

cotii.  K-ttimia  tcifKii  t'p  Bcaucd  by  ■  unite  |[rT»ord  PT  by  crpM-ftferwKJUj  i"0  SI  [Jif«  'kitywDfdi. 

SHOPPING  U5T  (Aud  oil;)  Pilni  IU.vsCmhw/SM.H  Dunn 

SHOPPING  LIST  Horci  iDrormaiiaD  on  itecu  youpuKbuc  tt  [h« nis«nuftH_  B^oteloiociJwTiKOi.  iivdl  rrBuad  jaii  of 
lU  the  LblAit  yoo  mitht  need,  utd  th«A  dbpky  loi  apuouii]'  pru3i|  TPVi  MiDcpiAf  iiit  ud  ItM  lOiUl  mrt.  Addui|.  dckiuij. 
cbAii^Ai  4Ut  ucdnj  >^u  u  very  euf.  Hibi.  mib  1  &K. 

TAX  OPTIMIZEK  ^Nwlfc  SOr  mt;)  rnn:  1».M  DUttto 

The  TAX  OPTIMIZER  u  u  bi]i-io-mw^,  mmu  oncnied  lon^vt  pa^hkir  mbich  provide*  ■  etHvenMiii  mMJU  for  tiu^ynot 
r«npui  iFi«iTW  tu  itrattiM.  The  jmtms  ii daicned  to  [»o>ial<  ■  quKk  lod  t^ij  diu  muj.  iopinne  ii* » cpn^t«d  bT  til 
-uumcihodi  (rifu^,  incocnt  ivcnpci.  ru^traum  m-oJ  ^Eiciritie  mjxiiiniis  tul.  Tbc  lucr  auy  tmodwuly  obMTtc  ibc  ■»■ 
«rreci  of  cfjkal  riBHE3£ui  [t«i^B).  tax  QPTLMIZER  bu  been  ihomjitit}  r«ld  toud  ID  CFAoiriut  ud  comtt  conipku 
-iL"i  the  narreat  ux  ubla  Lt  iu  diu  Tiki.  TAX  OPTLMIZER  u  uj  Jolurflbler 


EDUCATION 


HODGE  PODGE  iAffW  Hi},  -tUC  AppkHh  h'  laUgcr  BASIC)  Prttai  li*.«$  t  n  iWi -pl.tl  t«ibii« 

Ln  HDDCE  PODGE  be  ycur  cfaild'i  baby  uiur  PrttUDg  aay  k^r  mi  r^iu  Appk  wX  mvlf  m  •  diTreml  aod  mO^am  "hao- 
pcmsi"  rriiud  to  eJm  Inur  or  Dusbei  of  ibt  ^faova  ker-  Tbe  ptofTBn'i  trapbia.  color  *ad  lovod  an  a  dctwbi  loi  diildna 
rrooi  i«es  1  vi  EO  ».  HODC^  PODGE  s  a  gonijitinudKiat  iEK±iai  devu  which  brmgi  a  Dt*  iia*mie,±  lo  ib«  uv  of  son- 
puim  >;■  tCjctiiwi. 

T£ACHEX'SPCTI(Attllbkforilc«Hp«t«il  Piba^lll.MO— eta/tU.«9PM«a* 

T^  ii  Ibv  fint  of  DYSACOMF't  cducaocu]  p«ka|H  PncunlT  uiimlnl  foi  pre-Kt>«i|  lo  pide  3,  TEACHER'S  PET 
pionda  i9te  riMqf  flatoit  ■fah  cnntini  ^rtcmx.  k'aa-noti  recotutidn  ^fal  lAirt  iivt^  erf  buDj  Ufl  ctntba. 


MISCELLANEOUS 


CH¥STALS(AtfcrlM*rl  Prt«:l  f.HCMMI./1l].MbU.ii. 

A  uaiqvc  iltonttis  [indooily  produi:*i  ruinvuf  (iaptua  dupiiyi  tccaapuitd  •tch  iaam  -hkh  rair  •(  u^  pttirrTii  aic 
bwh.  NomoxHiLUnuantbEiuw.  udlbicombianlElfectaftheiouiiduidpapluciueiBnintnnnt  CRYSTALS hu  ban 
litta  LB,  tocaJ  uoin  In  E^fRujcKfatr  ibe  lOLad  and  color  itmi^na.  of  ifce  Alaf> 

•^DRTH  STAJfc  SOFTWARE  rXCHANGE  (NSStJ  LIBRARY 

DYNaCQMP  m>*  dmrifriita  tbc  23  vohco*  NSS£  iihnrj.  ThfM  ^iikma  eftdh  weuu  nuny  ptofiiAU  aad  oFI«  an  tr^s 
lUDdinx'thie  Ik  ibe  puTzbuc  prk*.  T^  >hould  V Kit  of  cvvy  North  &ui  uMi'*coffiKiio(L  CiU  di  unir  PT>rACOMP 
for  drtaiii  rtrudiiia  tU  ueusn  a(  iht  NSSE  coUccuoc. 
Pncr:  S9.5S  efech/S7.«  euA  («  in  rpttI 
TVcprapWt  wlkcticn  may  be  pwcbased  fat  SUS.Sj 


DYNACOMP  CASSETTES 

Dfreri  lii«h  quxLiy  DYNACOMP  bfud  iuom  C-U^JM^ctm  fpr  cmpuicr  uk   EKh  ci 


Bciol  IDctuHut^    tIJ-MpPitpud 
Bun  of  iVuuctin:    OSM  poe[«id: 


AVAILABILITY 


OYSACOMP  uifi-^e-  ^  luppbcd  *iih  romplete  docwtwiiaijor  aoa^Muiii^t  ^kar  eipUiuiioni  and  (luipfei.  Untai  Plfier-be 
ipetifttd.  all  pro|ruiii«-iII  ninwibin  161:  projram  jbciscj  ipii^  lATARI  itqjiin  MK)  E»Mp<  -here  rot«|.  pioitanu  trc  i»*il- 
able  on  ATARI,  PET,  TRS40  (Ldrel  Uf  »ixd  Apple  lApplciofi)  uuetu  ud  diiktii*  m  **H  u  Sorih  Sur  tiaiie  dmiJty  [di>ubi« 
deiuiiy  ClomiBLislej  distetie.  AddiliaatUy^mm:  projrimi  can  b*  obuincd  on  ittndanl  (IftM  rormaO  t"  CP/M  flpppy  diiki  loi 


syMemi  lumini  undci  MBASIC.  i  /•  '  CP/M  Jiiketm  vt  i^aJliblc  lai  Sor^i  Stai  and  Oihom 


STATISTICS  and  ENGINEERING 

DICrTALnLTEmAT«lliMerwtfl««p*i»n)  Prtea:OtMC««o«-MJ-«»*-«. 

UlCirAl  FILTER  ii  I  eDinpj-rticnii'.e  da:i  pf  txeiunt  p<o|iWD  -feids  pn™i.u  i!w  -mt  ia  ^loLtn  Itrn  o^ti  rJtct  (.uklkh  or 
«bpp*e  [rofT  <  BKBi*  ef  fill"  fofmi  Ih*  fJiet  f«nu  ut  ii^Lbtcqucaily  ccnifmtd  inic  B«irtcufn»e  cpmoljuoe  codlfkMou 
which  pDEut  7ifnd  data  pcocciunf  Ip,  tb<  ciTia^ii  Oaitfi  BOd<  [b<  Akpe  ol  the  [[e4,t<ciKy  traoilet  IjKiion  ii  tpe^ned  br 
dircElJr  mlmin  pOiMi  aJonj  ihcilciiicd  fUtei  cur«<.  [n  ifWDfOu  ra«Je.  >*«»!  loo  pui .  hi^h  puJ  >Ad  biadp*M  TLlitn  xuy  be 

ip^QUDuiHiiDiiErLnidcxrm  KCiordia(toLhe  Bumbci  ofpckDUuied  lb  lite  calcutauon  TVw  p{iBiriu|'oi«iMiaIJriltabe 
uDOoUMd  Bith  a  Hasnjnf  (uDciif^n.  In  hitUiioa.  mdii-*ittt<  hjlitntonh  fdifri  irjif  be  tdcncd  Feaiuin  of  DHjITAL 
nLTER  iDdLid*  ploHLiii of  ihedaja  bef«i  and  aflrr  niiennj,  u  irrll  u  diipUir  o(  itw  choten  fiUw  fwKtJooj.  AJio induced 
itoiift,  r«ii>*iial  arid  t^iini  procedktrn 


DATA  SMOOTHER  (!*at  ■TpbUr  ror  Atari)  P>«ce:  llf  H  Cwffta/fU.MUaLaaa 

•n,!,  ipKial  dau  Htwotftsai  profrini  way  tu  i»eO  m  'niWlir  d«1.»  uielal  Luformuiioa  fiom  nouy  buuMU  an!  eatlwwerinf 
dau  -Uca  uc  cquilly  ir«ced  Tlw  wfiwaie  fearturei  [hwn  >n  dcpn  ai^  r*iu*  of  fii.  u  nU  ai  icnoMhedl  Hrii  and  tKOOd 
deriTtlite  cakvU^Kn   Abp  iiKJudad  ii  auMAJik  plotuivi  af  Lbr  input  data,  and  unoMbed  rnvJti 

FOURIER  ANALYZER  *AT»llMlita  for  in  eompBlni)  Pt*c»:iip.f*C»i»n./tU.«Dtih«u 

Uk  iKii  jffyw  to  naminc  the  frcqitCBCT  is^ctiw.  of  hitiiitd  duiaiicfi  i^uit  T^  fcav""  IcaiurEi  auiomaue  icBiint  tad 
ploiiiAtol  iw  inpui  dauaad  reiulu.  Pr^uoJ  ipplpcHmu  ipdude  iFK'XF«l]ruii'f<:«°{ibkaicdiiaiwiuiD  inch  Tidldi  at  dcc- 


TTA  arMtF«  luBclhia  AMlywr)  PrV*;  tl»-«  C— tu/EJ.KDtakeo* 

Thli  iiiipmalMli>i,repa<kA((*hich  mar  be  uxd  ii>naJuu*iheiru«r«  fuocuotu  si  lyMrraii^bu  hb-H  iroplir'ieTTa---d 
rilini  br  tujfijMni  iheii  ritpcMMe  lo  pwlicd  inpuu  TFA  ti  a  ma^  RmblWalipn  of  FQURIEA  aNaLYZER  tad  coauiai  tr. 
rnfinterr^l-orwninlikfi^lmfuitui  lit^utMy  pioiaji*ellaid*UHLua|rntum.  Whneaji  FOURIEX  ANALV7f  k  tad*^ 
■ifwd  f«  ediKviional  aMi  KHnilflc  at*.  TFA  n  an  maiDrmnj  lod    A>*ilabl(  fof  all  compuim 

HARMONIC  ANALYZER  (A*alUbk  fof  •!)  c«Bp«len>  Prtcs: tM.H  Cawiir/f3>.H  DUtfle 

HARMONIC  ANALYZER  »ai d«i*n*(J  to:  ihe  ippntuia  ajulytiofteprttlwt  •arelatrai-  FcJutM  ihdude  dau  nieieacra- 
[Joti.  odilJiif  arid  ttoia|e''rt4r>r>>]  4JI  ■■^  u  d^a  and  ipecirura  ptottn(.  Ov panJcUahy  uiuquc  racility  II  thai  Ibc  input 
iiMd  eoc  be  tqually  ip*u>l  or  in  ordn.  The  oripnil  data  ii  Mnnl  and  a  culK  iphfie  uus^oUtJoti  ii.  uMd  toacau  the  due  file 
icquurd  by  IV  FFT  •Itorith™. 

FOURIEK  A.NALYZER.  TFA  anl  HARMONIC  ANALYZER  may  be  puretiaied  tdfRlKT  for  a  corabioed  pnce  ol  t^H 
itSftt  tMiittttiJ  artd  lie.M  {three  dlifcntci) 

REGRESSION  I  (A*BUkUe  for  tU  coopatm)  rrkr^ tli.4C^>««"m.H  Dlahetu 

REOItESSIOM  1 11  a  unique  tF>4  eueiHliwallr  '«>aiib!  ont-duoenuaiul  Icbji  iqiu/a  "jnlyitoioitl "  cirvr  fttllaf  ptPirtm 
FuiuiN  include  *try  high  accurvy,  an  automatic  dtttec  ddniniHiipB  uption.  ut  niMiJi>*  iateiiial  Ubiary  of  niunc  lubc- 
1L01U.  daii  Biiiint.  airiOituiic  Jaia  aod  eunc  plottLni;  a  itaiiitical  uva]yi,li  {«) ;  ilandud  de^UUpn.  {orrrl'iian  (CefreieaiH 
cic  land  muchflwre.  InaddillMi,  me*  filnnitr  t«<t<alwiihaui  iHiiterir^  the  dale.  RECAESSIDN  I  LictTitliUy  thceotnn' 
i.iont  (xoiiam  m  any  data  tiulytti  toFtwarc  Eibra/y 

REGRE^ION  II  (PARAFITl  (Armtttble  (or  all  coB^alctil  frttw; tl*.« Cwaeeie^UJ.M  OUeiu 

PARAF1T  u,  i]«iaiipd  la  liuidlc  th»e  cun  in  Hhifh  iIk  paitirkcun  aieimbtddcd  Ipoatibly  noiUineaj^lr)  tn  iW  fitiifiit  fu&e^ 
tion,  The  UKT  imply  inioli  the  funeWma:  for™,  inctudmtthe  pa(«inei«rt(A(l),  Aflj,  eic.)*i  OMHKBKwEASICiUJemHit 
lina.  Daia  utd  inulii  nuyMintalpuJfiFdwtdploiiEdu  wih  REOJtESSIQM.  UkRECKESSION  I  loi  poJynomiii  riitiit|. 
and  PARAFIT  for  thoK  fonplkiird  funnioni, 

MULTILINEAR  kEGttES&lON  (MLR)  (Af allabk  tM  aU  eonpHUft)  Pri«!  |U.K CeaMN/^IU.H  DUecu 

MLKJt«pti:^reMU^n^H>ri»*ir  ftk'kajt  lor  analyiini  data leti  conulnliriiiiiha  «  moiellMaily  independml  "tnable^,  Ekudn 
perlotimri  ihe  bajik  rrxrcttlnii  <ali:iilaliaa.  Ihli  profram  alw  piomki  cur  id  uie  data  Miry,  Moraie,  leuirvtl  tod  cdiilni 
functjiM^  UuldiiLonjheuief  Rtiiy  iiiiHiofiicihf  »LuiiH>ibriupplyin4>'tlidnlailb(lndependrnl>«n«'Mei  ttvenuniTMiof 
varLabbi  and  data  lUce  Li  llmtied  only  by  the  4*ula^  mfmetj, 

REOHESSION  I,  II  and  MULTILINEAR  REGRESSION  nuy  be  pwtli*K«J  tppthel  (et  iM-9>  [thiee  cuuiiHp  or  MJ.9S 
llhiet  dliknies). 

ANOVA  {NeilaTaUabk  for  PET/CEM)  n*i:  Wt.M  CMPeti./**i.M  Diiiiri. 

In  the  [Kit  ihc  ANOVA  (aALlyiu  of  vmanccj  procedure  tuu  been  limited  10  ihe  larfc  muifrtcne  cotrputrn.  Npw 
DYNACOMP  haitiiou|hllNep9<>eiprEFuinieUti>l[OMiuJliriE«nii.F«ihoMMnferuAt*iih  ANOVA,  the  DYNACOMP 
lofi^are  p*;kktE  Incliada  the  l-*>y,  2-wiy  trtd  N-way  procedurei.  Alio  picked  tie  Ihe  Yatci  l*-'"  i'aclpriildewfni.  For 
thtHf  unfuEilur  *iih  ANOVA,  dio  iiiti  ivflfry.  Th« acco0ijHnyLnj  dockifiMDiaUoi:  %ai  Aiiiien  in  t  iLtonal  faihion  (by  a  pro- 
Icuur  UI  ihr  iub>tct)  aadiefrei  ai  ancjiecllenl  inlrodiKUpnlothe  ■u'b)iKl.  Aei:<i^pvtyvi)  ANOVA»ai,iaF^itp[<r|i*f>i  fOf 
bJLklkiti  Ihe  data  baje.  Inclitded  aif  Kvcrti  coni'ipkct  Itaiiuei  Indttduti  date  «dlEjii|,  dekiinj  ukd  anKTidlni. 

BASIC  SClENTinc  SUBRULrTINES,  Vgtai 

DVMACOMP  II  Ihe  euiunh-e  Jntntuior  fai  the 

Voiumti  J  tmd:  by  F   RuckdcKhd  (ice  kdveiuK 

la  (haplJT    In^Mdcd  *iEh  ru^h  roUetlbt^  u  ■  1T4 

Votawl 

CdllecEbn  f  1 .    Cupuii  2  and  ]  ■  Data  and  fwKUon  pkHEiai;  coicpla  vahabki  asd  fmxtiofli. 
Collection  n     Chapter  4  ■  Ejilended  naUu  tod  ^.tod  Aipefaiioni 

ColltcEJOfl  n.    ChaptHi  S  ajid  G  -  Rindom  numbc  jEKraion  (Pouiofl.  Gauuian,  elc.):  iota  appraiButKiu. 
Free  per  cvUccUmi:    11*  9']  CtHetle/Slt-A$  D^liecte 
AH  ihfce  coOeciioni  uc  available  for  UI.'H  lEbree  ciuninl  and  IM.f}  Ithrtt  dukrttnl. 

V»laMl 

Colkcijon  ri .  Ctitpirt  i  •  Liaeat.,  polynomul,  mulitdimeiuionalH  ptramnric  lean  iqum. 

CuUKtKjn  1:  CHaplcT  2  ■  Scrlei  approximation  iniuwjMi,  jminpnitMEiDP.  LcvfriiOD,.  irrenion.  ihifting.  fte). 

Coltrctjofl  fl:  Chtpicr  }  -  Functional  appfoiuniuoni  by  Lurtuon  ajMi  iccuriion. 

CoUntjon  M.  Ouptif  ,*  '  CORDIC  ap^o«imiEJorui  to  i/^ceonteuic,  hrpe^boEic,  tipoeieiuLal  aad  loftnihioK 

llUKUOtLII 

CoDKtioii  ti:    Clupier  ]  ■  Table  tnurpoUiKia,  djrfe[CE.iuuan  u^  latetnuaa  (Nekton,  LaGrtnte,  ■;ilma}. 

ColU^iDB  M:     Ch^pUT  (  ^  MclllUli  fc^t  fiadiAl  lite  rn^  lOMi  Of  faBCUOAI. 

CcUenun  fT:     Chapter  T  -  Mcttodi  for  findiof  the  compki  roouof  luiKUOOi. 

CoiKtion  fl;    Chapter  I  ■  OpiiratuEjon  by  iteepeii  deweni. 
PrKcpa  coDectJon.    1U9S  CaiK<te/Ml.f  3  Dukelte 
A]]  eiiht  coleciwni  are  atailable  foi  IViM  ififhi  caivtiei)  aiid  II11I.W  (eiflii  {tuketteil. 

becauM  Ihe tc^tiajrtTiUl  part  oJtTied««neTttai!q,p.ff/|^CSCr£/v77/^^St'5AO'LTrHV£J.  VvJuinn  t  vJ i  tni^isi 
licm  DYNACOMP: 


I  I  a«d  Z  (Noi  artlUbh  r^  Auril 

Ea^ue  keyed  to  the  [wpul*/  urn  BAStC SCrnVTiflC  SUBROirrtyBS. 
Ml  in  9  YTE  muarwr)  Thne  lubiDuiirm  h^-nt  beeit  aatentbled  Mcoedlai 
;iEotra«  MtiicCi  ulecu  and  dtnocutcaicj  i*et.  mbrokiilioe. 


BASIC  SCIENTIFIC  SL'BHOLTINES,  Vol  1  {119  pa«eir]i:  M.9i  1 
BASIC  SClENtlf  JC  5tBRi>miN£S,  Vpt  1  rW  p««n):  tl)  ?)  , 
S«  .«™-t  in  KJLOIAUP  V^  ft   ft*b»- 


mp 


ROOTS  (Ai'alhbk  ftwaH  coHpilcn)  Pitoi:il.»SCaaim^1U.M  DWtetM 

In  J,  DutUtfU,  ROOTS  unitluiMOuily  determuei  all  the  zeioca  of  a  polybomial  hivtai,  real  fori'fki^u..  Tberc  ii  do  baa.  se 
thedciTR  Etl  the  poljnoBiuJ.  hhI  bvi^eue  the  pcocedi^e  u  iter vtive,  <hc  Kevraey  iiaenettllii  rcrrfood.  No  initial  (ucitnare 
Tfq,Qtriid  u  aipui.  4od  ibc  calculaiinl  loou  arc  lubuiiiiicil  back  uso  the  po^ynooutl  end  tbc  residuali  diipliyed. 

ACnYf:aRCUrrA>ALVSIS(ACAPl(41KApptoMiT)  rtfa-.BSMOumm/at.naikmii 

Af^APuibeaiuiotcucdit  detitnei'i  tni-eiio  LOGIC  5IMLrLATi3R  Witb  ACAPyou  may  i&^iv  Uf  rnpoeKPf  anac- 
tn«iM  puuncanpoDeti!  itrcvillr  I  .^tianuMi^  unpEifiet,  band  pau  f^icr,  etc  >  Thectimii  roar  be  probed  at  equal  itipi  la 
frttiMTicy,  ajidiVmulEiainHnplfid  ■  ,  ie*lait4  intumtfyi^otaini'KK-'icoffipvHfiijuJXtarc  tiusmed  By  peomotlht 
matryiktdr  pF  itKiie  voltatn.  the  fiiqiicncy  rei^oriv  of  a  riltcr  D<  iinpLnei  may  be  soasFkuliP  drieiTTnined  ^iiib  irvieH  10  boA 
araptitude  aad  pbaac  la  addition,  ACAP  pratu  a  luutuul  lAalyiu  ol  th*  i»n(e  of  iolt4(c  retpocKi  <rlMb  rt*ui4  fiocB 
loWiaAceaariatjagiiipiheeoapoMnti  ACAT  ii  eaiy  eo  EearaanduK^Sicpiy  dcicnbe  tbe^u-ciut  totcnr.iioliJuekiHnuaad 
ihiu  pla>[cmaii.  aAdeiefljte,  iTircuii  detcn^uoai  mar  be  iited  odio  tauciir  EKdutrtieiohe  repaUtdU  a  later  ti^ne  for  ewcu- 
tion  or  (diiiat   ACaP  JiOvU  N  pvT  o)  erny  Hitrnnl  dcMiwi'i  VOfi^  library 

LOGIC  SIMULATOR  (Applf  ealr;  «W  RAM)  Prkt:  tU.fSCtmMMJSlM.ti  HUla 

With  LOCIC  SIMULATOR  yoa  may  OJLy  ten  f<Mi  corapJicaied  ditiuJ  )o|k  dei^o  >tih  fet{M:t  ia  iumb  ict  of  iqpvli  ID 
detcnmnc  bo*  ipdl  the  CMenH  mil  opetait.  Tb«  eiu^ctiti  ahicb  ipty  be  lunbikltd  include  Diultipk  loput  A.ND.  OR.  NOt, 
EXOR.  EXNOft  ud  NaND  |at«.  u  -iU  ai  inmien.  J-K  tod  D  f]jp-ffiop(,  ukE  oite-ihotj  The  reipooie  of  the  lyuitt  it 
ai,tjkblenfryckKley<k  Inpuu  Jnay  beclocktd  in -mb  >iU>iitj(kKk  cnie  kmUt^'dAplacRncnuandiitUyimay  be  intro- 
duKHJ  ID  pro»«  for  |liuhet  and  tttt  ioaitiM^ibi  At  Eh*  ui^'i  opUoo,  a  iBnmi  diat.rain  foi  any  iivcn  ict  oF  nodei  inay  be  pkH- 
Eed  uhAj  HIRES  ir^ctttKi  S4«t  yovt  b<tadtio«rdin|  until  the  circvJi  11  c^kut  by  LOGIC  SIMULATOR 


ORDERING  INFORMATION 


"■'rr'-t  — '  ""■ "-|  "^-Tn 

Wiihia  Wart*  America  Add  Il.JO 

Ouuidt  Nont  AiiHfKa;  Add  lOm,  {au  Mad) 


AH  ordeii  (»a;lLuiiB|  boBiti  art  kkI  FiiiI  C^jm. 


It  pntraoi.  Ocalu  ducouiu  icbedule*  aie  »y*tbiH«  spWi  rHji»e*t, 
|--CT/MOUa 

Add  J!.»  to  the  Liicd  diiknte  ptice  foe  each  I"  floppy  dkik  {IBM  (Oft  WrtWod  CP'M  twmall   ftojiMai  nm  under 
MKiowft  MBASIC  01  BASICJO. 


Jii^Jjr  DYHACOMP  ptoireini  at  rwir  loca3  lolEvue  dealer  Wnte  for  dnaded  deunpuAiiL  d(  ihew  and  o^^ef  proframi  frotn 

DYNACOMP,  Inc.  (D.pi.  e> 

1427  Monroe  Avenue 
Rochester,  New  York  14618 

24  hour  ordtr  phone;  (716)442-8731  recording 
Offlre  phone  (9AM-5PM  EST):  (716(442-8960 


■  Vurt  5(411  mUem^M  rln^  MM  7*,  NVS  uJn  u 
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Education 


Friends  Of  The 
Turtle 

David  D  Thornburg 

Innovision 

Los  Altos,  CA 

Welcome  it)  a  new  Society  -  the  Krieiuls  oi  ihe 
Turtle.  A  freeiiiembersliip  in  this  society  is  available 
to  all  subscribers  to  this  inaga/iue.  and  our  meetings 
will  be  held  on  these  pasj;es  every  issue.  The  goal  of 
this  society  is  to  promote  the  type  oi  com]>uter 
grapliics  and  robot  emiionmetu  that  uses  what  is 
called  "turde  geometry." 

Turtle  geometry  is  a  key  element  in  several 
user-fricndlv  computer  languages  such  as  .'\tari 
PILOT,  TI  IX)t;().  and  Apple  LCXJO.  It  may 
come  as  a  surprise  to  some  ot  you,  but  the  types  of 
giaphics  commands  used  in  these  languages  are 
also  obeyed  by  a  progrannnable  toy  —  the  Milton 
Bradley  BigTrak.  Tmilc  geometry  encourages 
exploration.  Il  can  be  learned  by  lirst-time  com- 
puter users  oi  almost  any  age.  and  its  power  is  so 
great  that  it  can  keep  lull-iledgetl  computer  wizards 
engrossed  for  years.  The  turtle  is  a  graphics  tool 
that  makes  it  easy  for  yon  to  get  the  computer  to 
do  what  \au  want  it  to  do. 

In  tiiese  pages  we  will  share  progiams  that 
illustrate  many  interesting  ideas  and  developments 
in  this  field.  Nlost  of  all,  we  will  share  beautiful 
designs  that  have  come  out  of  tiiis  computer 
en\'ironment. 

Background  -  What  is  A  Turtle? 

If  vou  have  ever  played  with  a  Milion  Bradley  Big 
Trak,  or  used  computer  languages  like  Atari  PILOT, 
LOCO,  or  WSFN,  yoti  have  encountered  a  very 
special  device  called  a  tmtle.  Basically,  a  tintle  is  a 
"robot"  that  can  move  around  the  floor  (or  display 
screen)  in  response  to  messages  you  send  it.  Display 
tintles  often  have  "pens"  with  which  they  can  leave 
traces  of  their  path  as  they  move.  This  makes  the 
turtle  a  handy  tool  for  drawing  pictures. 

The  difference  between  turtle  graphics  and 
conventional  coordinate  graphics  can  be  demon- 
strated bv  drawing  a  squai  e  in  both  systems. 
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In  coordinate  geometiy.  the  peti  is  mo\cd  to 
various  coordinates  on  a  grid.  I'o  draw  a  s(]uare  40 
imiis  on  a  side,  we  cotild  u.se  these  live  steps: 

GOTO  0,0   (put  the  pen  at  ihe  origin) 
DRAWTO  0,40   (draw  the  left  vertical  line) 
DRAWTO  40,40   (draw  the  top  horizontal  line) 
DRAWTO  40,0  (draw  the  right  vertical  line) 
DRAWTO  0,0   (draw  the  bottom  horizontal  line) 

This  is  illustrated  below  . 

Figure  la. 


GOTO     B , o 
Figure  lb. 


DROklTO       0,40 

Figure  Ic. 


DPAMTO      40,-40 
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COLLEGE  BOARD  SAT  PREPARATION  SERIES 


TRS-eO,  APPLE, 
PET,  OSI,  ATARI, 
CP/M,  PDP-11 
Each  program  confronts  the  user  with  a  virtually  limitless  series  of  questions  and  answers.   Each  is  based  on  past  exams  and  presents 

material  of  the  same  level  of  difficulty  and  in  the  same  form  used  in  the  5.A.T.   Scoring  is  provided  in  accordance  with  the  formula  used 

by  College  Boards. 

S.A.T.,  P.S.A.T.,  N.M.S.Q.T.  —  Educator  Edition  set  includes  25  programs  covering  Vocabulary,  Word  Relationships,  Reading  Com- 
prehension, Sentence  Completion,  and  Mathematics.  Price  $229.95 

independent  Tests  of  S.A.T.  series  performance  show  a  mean  total  increase  of  70  points  in  students'  scores. 


G.R.E.    Series    -     Educator  Edition  includes  28  programs  covering  Vocabulary, 
Sentence  Completion,  Mathematics,  Analytical  Reasoning  and  Logical  Diagrams. 


Word   Relationships,   Reading  Comprehension, 

Price  $289.95 


COMPETENCY  EXAM  PREPARATION  SERIES 

This  comprehensive  set  of  programs  consists  of  simulated  exam  modules,  a  thorough  diagnostic  package,  and  a  complete  set  of 
instructional  programs.  It  is  designed  to  teach  concepts  and  operations,  provide  drill  and  practice  and  assess  achievement  levels 
through  pre  and  post  testing.  The  Competency  Exam  Preparation  Series  provides  a  structured,  sequential,  curriculum  encompassing 
mathematical,  reading  and  writing  instruction. 

This  program  is  designed  for  individual  student  use  or  use  in  a  classroom  setting.  Programs  provide  optional  printer  capability  covering 
worksheet  generation  and  performance  monitoring,  C.E.P.5.  are  available  in  three  software  formats. 

National  Proficiency  Series $1 ,299.(KI 

N.Y.S.  Regents  Competency  Test,  Preparation  Series $1,299.00 

California  Proficiency  Assessment  Test,  Preparation  Series $1,299.00 

If  desired  separate  Mathematics  and  Verbal  packages  are  available  for  $799.00  ea.  A  Spanish  language  version  of  the  Mathematics 
Instruction  Package  is  available  al  no  extra  charge. 


INQUIRE  FOR  UNIQUE  M.I.T.  APPLE 
LOCO  APPLICATIONS  SOFTWARE 


Time  Traveler 

The  best  of  the  adventure  games,  Contronts 
the  player  with  complex  decision  situations 
and  the  demand  for  real  time  action.  Using 
the  Time  Machine,  players  face  a  challenging 
series  of  historical  environments.  To  succeed 
you  must  build  alliances  and  struggle  with  the 
ruling  power.  Each  game  is  unique, 

S24.95 

Odyssey  In  Time 

This  spectacular  adventure  game  adds  a  new 
dimension  of  excitement  and  complexity  to 
Time  Traveler. 

Odyssey  In  Time  includes  all  the  challenges 
of  Time  Traveler  plus  10  additional  eras. 
Each  game  is  different  and  may  be  interrupted 
anc!  saved  at  any  point  for  later  play. 

$39.95 


Sword  of  Zedek 

Fight  to  overthrow  Ra,  The  Master  of  Evil. 
Treachery,  deceit  and  witchcraft  must  be  faced 
in  your  struggles  as  you  encounter  wolves, 
dwarves,  elves,  dragons,  etc.  Each  of  the 
twelve  treasures  will  enhance  your  power  by 
making  you  invisible,  invulnerable,  etc.  Each 
game  is  unique  In  this  spectacular  and  com- 
plex world  o(  fantasy. 

$24.95 


NEW 

MICRO-DEUTSCH 

Micro-Deutscb  set  includes  24  grammar  les- 
sons, covering  all  material  of  an  introductory 
German  course.  Four  test  units  also  included. 
Grammar  lessofis  use  substitution  transformation 
drills,  item  ordering,  translations  and  verb  drills. 
Drill  vocabulary  based  on  frequency  lists.  Suit- 
able for  use  with  any  tiigh  school  or  college  text- 
book.   Extefisively  field  tested  at  SUNY  Stofiy 

Brook.  Available  lor  Apple  II  and  PET/CBM.  (PET  version 
includes  a  special  foreign  language  character  chip.)  Also 
available  soon:  MICRO-FRANCAIS.  MICRO-ESPANOL, 
MiCRO-IVRIT,  MICRO-YIDDISH,  MICHO-CHINESE.  MICRO- 
JAPANESE.  $179.95 

"jV  new  ir 
iv  Pythagoras  and  The  Dragon  tV 

Mathematics  in  a  fantasy  game  context.  Based 
on  The  Sword  of  Zedek,  Pythagoras  and  The 
Dragon  introduces  Pythagoras  as  a  mentOT  to 
the  player,  When  called  on  for  aid,  Pythagoras 
poses  math  Questions,  and  depending  on  the 
speed  and  accuracy  of  the  player  response,  con- 
fers secret  information.  With  Pythagoras  as  an 
ally,  the  quest  to  overthrow  Ra,  The  Master  of 
Evil,  assumes  a  new  dimension  of  complexity. 
Depending  on  the  level  chosen,  problems  range 
from  arithmetic  through  plane  geometry. 

32K  S39.95 


u 


PROGRAMS  AVAILABLE  FOR 
TRS-80,  APPLE  II,  PET  &  ATARI 

Disk  or  cassette,  please  specify.  N.Y.S.  residents  add  sales  tax. 

II I'ri'f  rams  require  I6K   •    TRS-SOprairams  require  LEVEL  II  BASIC  •  A PPLE programs  require  Applemf I  BASIC 


Krell  Software  Corp . 

21  Miilbrook  Drive,  Stony  Brook,  NY  11 790 

(516)  751-5139 
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Figure  Id, 


CkRAMTO       4  0,0 

Figure  le. 


Next,  lei's  see  how  a  square  would  be  drawn  in 
turtle  geometry.  We  make  the  tintle  draw  lines  by 
giving  a  sequence  of  instructions  like  this: 

REPEAT  4   (repeat  the  following  commands  4  times) 
FORWARD  40  (draw  a  line  40  units  long) 
RIGHT  90  (turn  90  degrees  to  the  right) 

Figure  2. 


REPeAT       A. 

RIGHT       30 


While  the  turtle  commands  that  draw  a  square 
are  much  simpler  than  the  commands  in  coorclinaie 
geometry,  this  is  far  from  being  ihcir  onl)'  power. 
The  coordinate  representation  we  showed  only 
describes  a  square  with  vertical  and  horizontal 
sides.  Stippose  you  wanted  to  draw  a  square  tilted 
at  some  angle  (say  30  degrees).  How  would  you 
draw  that  in  coordinate  geometry? 

In  turtle  geometry,  the  description  of  one 
square  is  just  the  same  as  that  for  any  other  square, 
independent  of  its  orientation.  To  draw  a  square 
tiltecl  at  30  degrees,  you  fnst  must  turn  the  turtle 
by  30  degrees  before  having  it  draw  the  square. 

Figure  3. 


The  commands  look  like  this: 

RIGHT  30 
REPEAT  4 
FORWARD  40 
RIGHT  90 


The  power  of  turtle  geometry  is  so  great  that 
we  cannot  begin  to  toitch  it  in  this  first  column.  If 
you  want  more  information  l>clwccn  now  and  the 
next  "meeting,"  you  should  read  "Picttire  This! 
pilot's  Turtle  Graphics  for  Atari"  in  the  May- 
June  1981,  issue  oi  Recreational  (Computing.  Tw^o 
important  books  on  this  topic  ha\e  recently  been 
published —A/ /Hf/.s/f^rm.?.-  (Children,  Computers,  and 
Powerful  Ideas  by  Seymour  Paperl  (Basic  Books), 
and  Turtle  Geometry:  The  Computer  as  a  Medium  for 
Exploring  Mathematics  by  Harold  Abelson  and 
Andrea  diSessa  (MIT  Press).  A  new  book  (by  the 
author),  Picture  This!,  will  be  published  by  Addison 
Wesley  in  early  1982.  This  book  focuses  on  the 
Turtle  Language  incorporated  into  Atari  PILOT. 

Why  Do  We  Need  Friends  Of  The  Turtle? 

As  we  said  before,  tm-tle  geometry  is  l^eing  incor- 
porated in  many  of  the  com])uier  languages  that 
are  just  now  beginning  to  be  available  on  low-cost 
personal  computers.  Each  of  the  various  imple- 
mentations of  this  environment  has  its  special 
features  and  limitations.  To  the  extent  thai  the 
graphics  environments  in  all  these  implementations 
are  similar  to  each  other.  Friends  of  the  Turtle  will 
be  a  place  where  we  can  explore  the  turtle  world  in 
a  machine  independent  fashion.  We  will  describe 
all  sorts  of  interesting  experiments  lo  do  with 
turtles  (since  experimenting  is  probably  the  best 
way  to  leain  geometry  anyway),  share  our  pro- 
grams, provide  a  "Rosetta  Stone"  for  various  dia- 
lects of  turtle  languages,  keep  track  of  recent 
developments  in  the  field,  and  generally  have  a 
good  time.  This  last  point  is  the  most  important, 
since  the  turtle  is  a  mar\elous  device  to  play  with. 

So,  welcome  to  friends  of  the  Turtle.  Plea.se 
write  to  me  with  )Oin'  ideas  and  programs.  If  vou 
are  new  to  this  field  you  shoultl  know  that  we  will 
spend  a  great  deal  of  lime  dealing  with  the  basics. 

Turtles  are  for  everyone,  and  so  is  this  society. 
Please  write  lo  me  at  the  following  address: 

David  D.  Thornburg 
Friends  of  the  Turtle 
P.O.Box  1317 
Los  Altos,  CA  94022 


RxaH  T  so 

REPEAT   4 

FORWARD   40 
RIGHT  3  0 
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Learning  With 
Computers 

Glenn  M,  Kleimon  and  Mary  M.  Humphrey 
Teaching  Tools:  Microcomputer  Services 
P.Q  Box  50065 
Polo  Alto  CA  94303 


How  might  cxislhtgcoinputcr  Icchnology  change  schools 
In  thi'  ncftr  futurcf 


In  this  column,  we  rcc:ounl  a  hypollielical  visit  U> 
llie  Charles  Bal)hage  School,  circa  1985.  Our  loiir 
guidc  was  liie  princijjal,  Ada  Lovelace,  who  toki  us 
the  school  has  heen  using  computers  since  1982. 

At  Babbage  School,  children  move  about  a 
great  deal,  working  individually  and  in  groups  on 
different  lessons  and  projects.  1  he  children  have  a 
lot  of  flexibility  in  which  lessons  they  do  when,  and 
in  how  they  approach  studying  a  gi\eii  tojiic.  E\ery- 
day  attendance  is  not  compulsory,  and  some  child- 
ren often  take  lesson  disks  home  to  work  on  their 
own  computers.   Teac  hers  generallv  work  with 
individuals  or  small  groups  of  children.  Ms.  Love- 
lace told  us  the  teachers  spend  most  of  their  time 
tutoriiig  and  directing  children's  learning.  The 
students  have  a  lot  of  choice,  but  the  teachers  make 
sure  that  each  ciiild  engages  in  a  balanced  variety 
of  activities  each  week.  Very  little  time  is  spent  in 
record  keeping  or  grading-  computers  take  care 
of  that.  Since  computers  make  truly  individualized 
instruction  possible,  grading  is  not  emphasized  as 
it  once  was. 

Many  lessons  arc  very  different  from  those  in 
schools  of  1980.  For  example,  nine-year-old  Jane 
showed  us  a  computer  lesson  on  ecology  and  pollu- 
tion. The  comptiter  showed  a  lake  with  a  variety  of 
plants  and  fish,  ft  also  provided  information  about 
the  food  chain  atid  reproduction  rates  o(  the  species 
within  the  lake.  Jane  then  told  the  computer  that  a 
certain  pollutant  had  entered  the  lake.  Lhe  com- 
puter responded  that  the  pollutant  had  killed  b(Wc 
of  the  "glod"  plants,  and  asked  Jane  to  predict  the 
effect  of  this  on  the  other  life  in  the  lake  over  the 
next  five  years.  Jane  then  coinpat  cd  her  predictions 
to  the  actual  effects  calculated  by  the  computer, 
finding  that  she  had  estimated  much  less  damage 
than  would  have  occuired. 

This  sinuiiation  certainly  .seemed  to  teach  her 
the  basic  principles  of  an  ecological  system.  Com- 
puter simulations  are  availalile  at  Babbage  School 


for  many  science  lessons.  Ms.  Lovelace  told  us  that 
she  hopes  to  get  simulation  programs  to  teach 
]jrin(  iples  of  economics  and  social  psychology.  She 
pointed  out  that  software  development  has  lagged 
liehind  hardware  advances  ever  since  she  first 
worked  \vith  computers. 

Lessons  As  Games 

Other  les.sons  take  a  more  game-like  format,  often 
with  two  or  more  players.  Competitive  games 
rcc|uiring  (and  providing  practice  in)  math  and 
language  skills  are  very  popular.  Several  children 
were  playing  an  adventure  game  iti  which  they 
explore  a  complicated  world  created  within  the 
computer.  I'hey  search  through  castles,  caves,  and 
mazes  for  treasures,  while  trying  to  avoid  the 
dangers  of  creatines  such  as  wizards,  dragons,  and 
gremlins.  Les.sons  in  reading  comprehension,  logic, 
and  map  reading  were  embedded  within  the  game. 

Ms.  Lovelace  said  that  some  children  spend  a 
lot  of  time  with  these  game-lessons,  and  that  com- 
pleting one  adventure  can  take  .several  weeks. 
Teachers  can  instruct  the  computer  to  modify  the 
game  as  it  is  being  played.  They  use  this  capalDility 
to  introduce  new  vocabulary  words  and  other 
educational  material,  and  to  encourage  the  children 
to  do  other  lessons.  For  example,  12  year-old  Jim 
(who  told  us  ttiat  "adventure  is  a  real  classic  com- 
]mter  game")  often  neglected  his  science  lessons.  A 
quick  modification  by  one  teacher  added  a  wizard 
to  the  adventtu-e.  This  wizard  gave  Jim  instructions 
for  finding  a  treasure  which  required  knowledge 
about  certain  star  constellations.  We  later  saw  Jim 
engro.s.sed  in  an  astronomy  lesson. 

Ms.  Lovelace  I  old  us  that  the  children  learn  a 
great  deal  by  exploring  environments  simulated  on 
the  computer.  For  example,  one  program  creates 
compniei- .screen  representations  of  gears,  pulleys, 
wheels,  levers  and  so  on.  'Lhe  child  can  combine 
these  simple  machines  on  the  screen  to  create 
devices  to  perform  various  jobs,  such  as  moving 
heavy  objects.  The  dc\*ice  created  can  be  tested 
through  computer  sinutlations  to  see  if  it  works  as 
planned,  '['he  child  can  then  modify  and  re-test  the 
device,  or  build  a  new  one. 

Cieating.  testing,  and  modifying  devices  in 
this  simulated  environment  produces  an  under- 
standing of  tlie  principles  of  simple  mechanical 
machines.  Other  programs  available  at  Babbage 
School  create  enviromnenls  in  which  children  can 
explore  geometry,  physics,  and  simple  computer 
operations.  Ms.  Lovelace  expressed  the  hope  that 
more  such  programs  would  be  a\ailable  soon  since 
this  iyije  of  learning  makes  abstract  concepts  more 
concrete  and  manageable  for  children.  Also, 
children  learn  through  active  exploration,  rather 
than  just  passively  remembering  information  given 
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to  them. 

Writing  And  Typing  Skills 

Several  students  were  engaged  in  writing  projects. 
All  the  writing  was  cknic  using  word  processing 
programs.  The  children  easily  entered  and  then 
revised  their  writing.  Everything  from  correcting 
spelling  errors  and  adding  or  deleting  words  to 


teachers  have 
time  for 
individual 
tutoring ... 


rearranging  paragraphs  was  done  quickly  on  the 
screen.  Using  woid  processors  makes  writing  more 
enjoyable  and  children  are  willing  to  revise  their 
own  work  many  limes  -  something  they  are  reluctant 
to  do  when  they  have  to  rewrite  by  hand  each  time. 

We  expressed  surprise  that  all  the  children 
knew  how  to  type  so  well.  Ms.  Lovelace  told  us  that 
they  had  learned  from  a  computer  program.  The 
program  presents  typing  drills  and  measures  how 
long  it  takes  to  complete  the  drill  on  the  computer 
keyboard.  Later  drills  are  designed  to  give  practice 
with  letters  or  letter  combinations  the  child  has 
typed  incorrectly  or  too  slowly.  Since  practice  is 
directed  at  specific  problems,  learning  is  very  rapid. 

Some  of  the  children  were  writing  articles  or 
stories  tor  the  school  newspaper.  One  child  told  us 
he  was  writing  a  science  fiction  story  about  what 
the  world  would  be  like  witlroul  any  computers. 
When  he  finished  his  story,  he  stored  a  copy  on 
disk  so  the  newspaper  editor  could  edit  it  later.  We 
were  told  that,  after  being  approved  by  the  editor, 
the  newspaper  was  automatically  formatted  and 
printed  by  the  computer. 

Other  children  were  writing  letters.  They  told 
us  the  letters  were  for  their  pen-pals  in  Japan.  The 
letters  were  sent  via  electronic  mail  and  the  children 
expected  to  receive  answers  the  next  day.  One 
child  asked  us  why  they  were  called  "pen-pals." 
After  we  explained,  another  child  added  "its  like 
why  we  say  'dial  the  phone'  -  it's  left  over  from  the 
old  days." 

Speech  Synthesis  For  A  Blind  Student 

Later,  we  noticed  a  child  wearing  headphones 
attached  to  a  small  box  next  to  a  computer.  The 


i>ox  was  a  speech  synthesizer.  At  the  push  of  a 
button,  it  would  convert  the  text  on  the  screen  to 
speech.  Ms.  Lovelace  told  us  that  John  has  been 
blind  since  birth,  but  with  the  speech  synthesizer,  a 
special  keyboard,  and  some  other  electronic  devices, 
he  is  able  to  progress  with  his  lessons  very  well.  She 
emphasized  that  computers  have  been  a  tremendous 
help  in  educating  children  with  all  types  of  handi- 
caps and  in  making  it  possible  for  handicapped 
cliildren  to  work  in  regular  classroom  settings. 

Many  lessons  were  about  computers  them- 
selves. Computer  studies  are  a  standard  part  of  the 
curriculum.  All  the  children  learn  how  to  control 
computers  to  permit  creative  work.  For  some,  this 
consists  of  writing  computer  programs.  One  group 
of  children  was  working  on  a  math  drill  program 
to  be  used  by  younger  children  in  the  school.  After 
testing  it  on  some  five-year-olds,  they  told  us  that  it 
was  "a  neat  program,  but  some  of  the  instructions 
mixed  up  the  little  kids.  It  still  has  to  be  more 
user-friendly." 

Other  children  used  a  computer  to  write  music. 
The  pr'ogram  allowed  them  to  enter  musical  nota- 
tion, listen  to  the  music,  alter  its  pitch  and  tempo, 
and  change  the  notes.  It  was  like  a  word  processor 
for  music.  Their  work  was  to  be  transmitted  \  ia  a 
computer  network,  to  be  entered  into  a  statewide 
computer  music  contest. 

We  also  saw  a  group  of  three  children  working 
on  a  computer  art  project.  Each  child  would  take  a 
turn  adding  something  to  the  computer  display  by 
drawing  on  a  board  next  to  the  computer.  They 
simply  outlined  what  they  wanted  to  draw  aiid  it 
appeared  on  the  screen.  After  something  was 
placed  on  the  screen,  it  could  be  easily  colored, 
moved,  rotated,  made  larger  or  smaller,  or  erased. 
With  a  great  deal  of  animated  debate  (one  of  the 
teachers  had  to  ask  iheiu  to  settle  down)  a  picture 
was  gradually  taking  form.  Later,  a  large  version 
was  printed  to  hang  on  the  classroom  wall,  and 
three  small  copies  were  printed  for  the  artists  to 
lake  home. 

We  asked  the  teachers  about  the  discipline 
problems  so  prevalent  in  schools  a  few  years  ago. 
One  teacher,  who  had  been  teaching  for  20  years, 
said  that  many  problems  have  been  minimized 
since  education  had  become  truly  individualized. 
Students  and  teachers  feel  less  frustration  and  a 
greater  sense  of  accomplishment  since  there  is  so 
much  flexibility  in  the  content  and  methods  of 
teaching  and  learning. 

Children  with  learning  problems  receive  a 
great  deal  of  specific  help.  Teachers  have  time  for 
individual  tutoring,  while  computers  provide  un- 
limited practice  at  a  level  and  pace  appropriate  to 
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each  child.  The  problems  thai  could  lead  to  a  child 
being  labeled  as  "learning  disabled"  have  been 
reduced.  Debates  among  cducalois  about  such 
things  as  which  is  the  best  method  of  teaching 
reading  have  also  decreased,  since  an  optimal 
method  can  be  used  for  each  individual. 

Is  This  Science  Fiction? 

Is  liabbage  School  science  fiction-'  Such  a  school 
doesn't  e.vist  today,  but  the  teclnioiogy  to  do  every- 
thing ue  have  mentioned  does  exist.  We  believe 
that  Babbage  School  could  be  a  realitv  u  ithin  the 
next  few  years. 

Will  your  school  lake  advantage  of  computers 
and  other  technological  innovations?  The  aim  of 
oiu"  c<jlumns  is  to  lielp  \()u  make  good  use  of  these 
new  and  powerful  tools  for  teaching  and  learning. 
In  each  column,  we  will  discu.ss  a  general  issue 
about  learning  with  computers,  issues  such  as: 
what  is  computer  literacy?  How  can  computers 
facilitate  the  education  of  liandicapped  individuals? 
What  training  is  required  for  teachers  to  make 
good  use  of  computers? 

V\'e  will  also  point  out  some  articles,  books, 
software,  hardware,  and  soiuces  ol  information 
you  may  find  useful.  Relevant  to  this  coliunn,  there 
arc  many  books  about  the  innuence  of  computers 
in  the  near  fiuure.  We  particularly  recoimnend  the 
following  foiu" 

1.  Tlie  Micro  Millenium,  by  Christopher  Evans 
(Pocket  Books,  1979).  Discusses  computers  of 
the  past,  present,  and  f lUine  and  their  effects 
on  society.  Includes  an  account  of  the  roles  of 
Charles  Babbage  and  Ada  Lovelace  in  the 
history  of  computers. 

2.  The  Third  W'uvc,  by  Ah'in  'I'offlci-  (Bantam 
Books,  1980).  Toffler's  thesis,  developed  in 
some  detail,  is  that  our  society  is  in  the  midst  of 
a  Computer  Revoliuion,  compara!)le  in  scope 
of  its  effects  to  the  Agricultinal  Revolution 
(the  first  wave)  and  the  Industrial  Revolution 
(the  second  wave). 

3.  The  EliTlronic  (loltagc,  by  Jose]}h  Deken 
(William  Morrow  &:  Co.,  1981).  A  wide-ranging 
discussion  of  things  computers  can  do,  how 
they  work,  and  how  they  may  change  our 
everyday  lives. 

4.  Mindstorms:  Childreti,  (Uimpnters  cind  Powerjul 
Ideas,  by  Seymour  Papert  (Basic  Books,  1980).  A 
detailed  description  of  some  compiuer-created 
environments  for  children  to  ex|:)lore.  and  I  he 
effecLs  on  the  children's  understanding  of 
mathematical  concepts.  © 
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Addresses 


The  Apple  II  uses  three  types  of  addressing  de- 
pending upon  the  language  being  used.  Apple's 
machine  language  uses  hexadecimal  addresses  in 
the  range  from  foOOO  to  |FFFF.  Its  Floating  Point 
BASIC  language  uses  decimal  addresses  in  the 
range  from  0  to  65535.  Its  Integer  BASIC  uses 
decimal  addresses  in  the  range  from  0  to  32767  to 
-32767  to -I.  This  means  that.if  you  want  to  address 
a  particular  memory  location,  you  must  choose  the 
correct  address  for  the  language  you  are  using. 
Since  I  program  in  all  lliree  languages  and  my 
references  are  a  mixture  from  all  three,  I  needed 
an  address  cross-reference  program.  So  I  wrote 
"Apple  Addresses." 

"Apple  Addresses"  can  be  used  "as  is"  to  con- 
vert one  language's  address  to  another's,  and  to 
give  the  high  and  low  byte  values  which  need  to  be 
POKKd  into  a  BASIC  program  to  store  that  address. 
Alternatively,  you  could  extract  the  subioutines  in 
Apple  Addresses  which  convert  between  hex  and 
decimal  numbers  and  insert  them  in  your  own 
program.  See  the  last  paragraph  of  this  article  for 
more  details. 

The  program  begins  by  asking  the  user  which 
of  the  six  possible  conversions  he  would  like  to 
make.  This  is  followed  by  a  request  to  select  the 
way  the  results  of  the  conversions  are  to  be  dis- 
played. There  are  four  possible  displays: 

1.  single  conversions  displayed  on  the  monitor 
one  at  a  time. 

2.  single  conversions  printed  out  on  a  Silentype 
printer*  one  at  a  time. 

3.  a  range  of  conversions  displayed  on  the 
monitor. 

4.  a  range  of  conversions  printed  out  on  a 

Silentype  printer*. 

*With  slight  program  modifications  other  priiiteis  could 
be  used. 

Subroutines 

"Apple  Addre.sses"  makes  extensive  use  of  subrou- 
tines. This  helps  in  organizing  the  program  as  well 
as  making  it  shorter  and  easier  to  debug.  The 


controlling  or  EXECutive  routine  is  called  Apple 
Addresses  —  Exec.  It  starts  on  line  100  and  goes  to 
line  310.  Since  a  picture  is  worth  a  thousand  words, 
I  made  what  I  call  a  balloon  diagram  (Figure  I)  to 
show  how  data  flows  through  the  program.  These 
are  the  conventions  I  used  to  make  the  diagram; 

1-  Each  balloon  represents  a  subroutine.  The 
name  of  the  subroutine  and  the  line  numbeis 
where  it  is  located  are  placed  in  the  balloon. 

2.  Data  flows  through  a  subroutine  in  the 
direction  of  the  arrows  on  the  outside  of  the 
balloon. 

3.  Data  flows  between  subroutines  in  the  direc- 
tion of  the  arrows  on  the  strings. 

4.  If  conditions  are  placed  on  what  data  flows 
through  a  subroutine,  these  conditions  are 
written  in  along  the  strings. 

As  an  additional  aid  for  understanding  how 
the  program  works  I  have  included  the  following 
variable  descriptions  list: 

A( )  —  each  A(I)  holds  the  decimal  equivalent 
value  of  the  Ith  hexadecimal  numeral  in  the 
hex  number  being  created  from  a  decimal 
number  —  appropriate  numbers  are  then 
added  to  convert  these  to  ASCII  codes. 

A$( )  —  holds  the  characters  represented  by 
the  ASCII  codes  in  A( ). 

CHOICE  —  holds  the  number  of  the  conver- 
sion chosen  —  see  lines  1 20  to  1 78. 

DVL  —  holds  the  decimal  value  of  the  number 
being  converted  —  may  be  either  FP  or  INT 
decimal. 

DVLI  —  is  the  string  equivalent  of  DVL  and  is 
used  in  the  output  routines. 

FLAG  —  if  FLAG  =  I  then  an  invalid  number 
was  entered  and  the  program  returns  to  get  a 
new  number. 

FRST—  holds  the  FP  BASIC  address  equivalent 
of  the  lowest  address  in  the  selected  range. 
FRST$  —  holds  the  smallest  address  chosen  — 
this  address  is  then  processed  and  stored 
in  FRST. 

HVL$  —  holds  the  hex  number  selected  or 
the  hex  luunber  resulting  from  the  conversion 
—  if  no  hex  ntmibers  are  involved  tlien  it 
holds  the  converted  decimal  number. 
LST  —  holds  the  FP  BASIC  address  equivalent 
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Figure  1 :  Balloon  Diagram 


of  the  largest  address  in  the  selected  range. 

LST$  —  holds  the  largest  address  chosen  — 

this  address  is  then  processed  and  stored 

in  LST. 

N  —  holds  the  decimal  equivalent  of  each  hex 

numeral  in  a  hex  number  being  converted  to  a 

decimal  number. 

PHI%  —  holds  the  number  that  would  be 

POKEd  into  the  high  byte  when  placing  the 

address  into  memory. 

PL09c  —  holds  the  number  that  would  be 
POKEd  into  the  low  byte  when  placing  the 
address  into  memory. 

POK  —  holds  the  address  from  which  PLO% 
and  PHI%  are  derived. 

SELECT  —  holds  the  type  of  output  selected 
—  see  lines  462  to  470. 

STP  —  holds  the  positive  decimal  stepping 
interval  chosen. 

STP$  —  holds  the  stepping  interval  chosen 
which  is  later  changed  and  stored  in  STP. 

TB  —  the  horizontal  tab  value  desired. 

TN  —  holds  the  intermediate  numbers  of  the 


decimal  address  that  is  bemg  converted  into  a 
hex  address. VTB  —  used  to  control  the  vertical 
tabbing  of  the  monitor  output. 

Some  Suggestions 

I  have  found  that  the  easiest  way  to  debug  a  pro- 
gram while  I  am  entering  it  is  to  first  type  in  the 
EXEC  program.  Then,  if  I  place  return  statements 
at  all  the  branching  locations,  1  can  check  the  EXEC 
for  bugs.  Once  the  EXEC  is  free  of  bugs,  I  add  one 
subroutine  at  a  time  in  the  order  that  the  EXEC 
uses  them,  checking  for  bugs  as  I  go. 

If  you  have  a  need  for  subroutines  which 
convert  numbers  from  hex  to  decimal  or  from 
decimal  to  hex,  two  subroutines  in  this  program 
may  be  of  help.  The  first  is  called  "decimal  to  hex 
converter"  (lines  42  to  50).  The  input  to  this  routine 
is  TN  which  must  hold  a  positive  decimal  mniiber 
<65536.  The  output  is  HVL$  which  holds  the  hex 
equivalent  to  the  number  in  TN.  The  second  is 
called  "convert  hex  to  INT  or  FP  decimal"  (lines 
1000  to  1050).  The  input  to  this  routine  is  HVL$ 
which  must  hold  a  hex  number  <  =  $FFFF  and 
choice.  If  choice  =  1  then  you  get  the  positive 
decimal  equivalent.  Otherwise  you  get  Int  BASIC'S 
equivalent.  The  output  is  a  decimal  number  in  DVL. 
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NEW  ROM  BOARD  FOR  THE  APPLE  II* 
$125.00  WITH  UTILITY  ROM- 


With  Andromeda 's  new  ROM  Board,  you  can  plug  many 
useful  utility  programs  into  your  Apple  II,  Because  ROM 
memory  never  forgets,  you  can  access  these  utilities 
instantly  without  having  to  load  them  from  disk. 

The  ROM  Board  comes  with  the  utility  ROM,  which 
gives  you  five  powerful  options  to  apply  to  your 
Applesoft*  programs.  With  the  Utility  ROM,  you  can  do 
automatic  line  numbering,  control  a  program  list  with  a 
page  mode,  restore  a  crashed  Applesoft*  program  in 
memory,  alphabetize  a  disk  catalogue  and  create  a  disk 
without  DOS,  givingyou  an  extra  8K  on  your  disk .  Any  of 
Soft  Control  Systems'  other  ROMS  can  be  used  such  as 
the  Dual  DOS  in  ROM.  and'Yourple  ROM, 

You  can  install  2K  PROMS,  4K  PROMS,  or  even  2K 
RAM  chips  in  each  of  the  two  memory  sockets.  So  you 
can  even  have  the  Read  -  Write  capability  of  RAM  to 
develop  PROM  Programs  yourself,  or  just  have  an  extra 
2K  RAM  for  your  machine  -  Language  programs.  Two 
2732  PROMS  allow  a  total  of  8K  of  memory  on  the  Board 


IMow  with  One  Year  Warranty. 

Don't  forget  the  Andromeda  1GK  RAM 
Expansion  Board  $195.00 
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More  Apple 
Hi-Res  Shape 
Writer 

Chris  Dupuy 
Gonzales.  LA 

Countless  hours  spent  plugging  ones  and  zeros  on 
graph  paper  are  now  history,  thanks  to  Mr.  Hen- 
nig's  "Hi-Res  Shape  Writer."  [COMPUTE!  #14] 
Shload  miseries  are  not  missed  and  drawing  shapes 
other  than  right  angles  are  now  a  breeze. 

After  creating  one  star  cruiser  after  another,  I 
was  soon  struck  with  the  harsh  realization  that  I 
could  not  SAVE  these  cosmic  creations  on  my 
cassette  recorder.  Unfortunately  for  me,  I  belong 
to  the  one  percent  club  of  Apple  owners  who  cannot 
afford  the  luxuries  of  a  disk  drive.  Undaunted 
with  the  PEEKs  and  POKEs  ahead  of  me,  I  pro- 
ceeded to  write  a  routine  that  would  put  all  the 
bytes  from  the  shape  table  into  trusty  DATA 
statements. 

The  program  is  intended  to  be  added  to  the 
original  "Apple  Hi-Res  Shape  Writer"  by  Doug 
Hennig.  However,  the  routine  used  to  POKE 
DATA  in  DATA  statements  can  be  adapted  to 
other  programs  where  the  user  does  not  want  to 
be  bothered  with  the  rules  of  STOREing  and 
RECALLing  arrays. 

Program  Operation 

REMark  statements  %vere  omitted  from  the  pro- 
gram in  order  to  save  valuable  space,  since  memory 
size  becomes  a  problem  with  complex  shapes. 

5-1084  Sets  an  array  to  the  bytes  POKEd  into 
the  shape  table  in  original  program. 
13900-13906  Searches  for  the  memory  loca- 
tions of  the  first  blank  DATA  statement  and 
sets  Y  equal  to  this. 

13910-13970   POKEs  Q  to  first  item  in  DATA 
statement. 

13930  Separates  Q  into  individual  digits. 
13975  POKE.S  number  of  shape  tables  and 
reference  numbers  for  shape  tables. 
14000-14075  POKEs  bytes  of  shape  table 
into  the  succeeding  locations  of  the  DATA 
statements. 

14004  Searches  DATA  statement  for  a  period 
(CHR$(46)),  in  order  to  find  location  to  insert 
next  value. 


14550-14630  Demonstration  program  to 
verify  information  in  DATA  statements. 
14572  Checks  DATA  statement  to  verify 
additional  space  on  current  statement.  If  not, 
then  READ  asterisks  and  jump  to  next  DATA 
statement. 

14700-14710  DELetes  main  portion  of  pro- 
gram and  leaves  demo  program  with  DATA 
statements  to  be  SAVEd. 
15000-15005  DATA  statements  with  184 
periods  (quantity  is  at  your  discretion),  and  4 
asterisks. 

Variables  Used 

Q  Holds  the  number  of  bytes  in  the  shape 
table. 

V()  Stores  individual  bytes  of  shape  table. 
Y   Keeps  track  of  the  DATA  statement  memory 
locations. 

R  Used  to  check  memory  locations  for  a 
period. 

F,FF  Holds  LENgth  of  strings  and  uses  that 
value  in  FOR-NEXT  statements. 
T(),L()  Arrays  that  hold  the  individual  digits 
of  bytes  from  shape  table. 
E$  User  input. 

X  The  location  for  bytes  to  be  POKEd  into 
shape  table. 

Y$  Stores  the  DATA  being  READ  from  demo 
program.  String  is  used  to  prevent  error  mes- 
sage when  asterisk  is  READ. 

Hints  And  Changes 

Those  who  have  32K  Apples  will  encounter  space 
problems  when  trying  to  run  this  Itjnger  program. 
DELeting  the  instructions,  REMarks,  disks  subrou- 
tines, and  combining  statements  will  help  avoid 
this  obstacle. 

Once  all  changes  are  made  to  your  program, 
lines  13904  and  13906  may  be  DELeted.  However, 
the  memory  location  for  the  first  DATA  statement 
must  he  found.  In  machine  language,  the  three 
bytes  to  look  for  are:  83  00  2E.  The  decimal  location 
of  2E  should  then  be  set  to  Y  in  line  13900.  Re- 
member —  if  this  change  is  done,  no  other  changes 
can  be  made  in  the  program  {except  for  DATA 
statements),  without  the  information  being  POKEd 
into  the  wrong  locations.  If  searching  for  memory 
locations  is  too  tedious,  then  you  might  want  to 
experiment  by  raising  the  value  in  line  13900. 
Either  one  of  these  changes  will  save  time  in  pro- 
gram execution. 

Providing  you  have  shaved  off  a  good  portion 
of  the  program,  the  value  in  line  five  may  be  raised 
to  accomodate  more  complex  shapes. 

The  major  shortcoming  in  this  program  is  the 


on  Software  for  APPLE  II 


SUPER  SPECIAL-  50%  OFF 

ON  THE  FOLLOWING  APPLE  PROGRAMS 
APEX — The  assembly  language  operat- 
ing system  forthe  Apple  II— Total  control 
of  your  Apple— fast  program  loading  and 
execution— Fexibility — Efficiency. 
Now  only $50.00 

XPLO— A  Block  Structured— Pascal  type 

high  level  language  operating  under 

APEX- 

Now  only $40.00 

HANDY  DISK— Utility  programs  and  de- 
vice handlers  for  the  APEX  operating 
system— A  powerful  alternative  to  Apple 
DOS. 
Now  Only $20.00 

THE  EXTENDER— Extends  Applesoft™ 
by  adding  these  functions: 

•  Print  using  •   Auto  Line  Numbering 

•  Decimal/Hex  Conversion   •   High 
Resolution  Screen  Color  Indication 

•  Single  Color  Screen  Fill  and  more... 
Now  Only $25.00 


MORE  APPLE  SPECIALS 


PASCAL  GENERAL   LEDGER— Menu 

driven  general  ledger  program  based  on 
the  Osborne  System.  Customized  utility 
for  a  true  turn-key  general  ledgersystem. 

$149.00 


PROM  BLASTER— Programs  all  1K  to 
4K  PROMS  of  25XX  &  27XX  single  or 

multi-voltage  types— With  all  personality 
modules  and  read/write  software. 

$149.00 


$29 


PROFESSIONAL  FOOTBALL   PREDICTIONS 

•  Makes  predictions  fof  all   14   NFL  games  each  week. 

•  Program's   data  base  is   updated  weekly  from  your  local   newspaper's  game  statistics. 

•  Keeps  complete  record   of  all   final   scores  and  standings. 

•  Re-useable  year  after  year, 

•  Very  sophisticated  program,  yet  easy  to  operate. 

FOR   YOUR  APPLE    II 

*NOTE:  Stan  saving  your  game  results  at  ttie  time  of  your  order,  APPARAT  will  provide  ttie  data  base  for  ttie  previou 
weeks  games  on   the   disk. 
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MISCELLANEOUS  SUPPLIES 
DISKETTES 

Double  density,  soft  sectored,  replacement  guaranteed    Spindle/Hub 

protected,  |5V.-  only) 

Verbatim  Datalife  5'V  40  track  ,. $24.95 

PAPER 

aVj"x11"  blank  while,  tractor  feed  paper,  lull  box $24.95 

aVi"x1 1"  blank  while,  tractor  feed  paper,  half  box S  14.96 

14'/j")!l  V  green  bar.  tractor  teed  paper,  full  box S34.95 

3y!"x15/l6"  tractor  feed  mailing  labels $ia9S 

OTHER 

5'A"  plastic  library  case S    1 .95 

5'/*"  Flip-sort. . . ,, ,....,..  S21  95 

1  eK  memory  kits ...'.'.'.'..'...., si g 95 


Apparat,  Inc. 


APPARAT'S   TOP   15  APPLE   GAMES        SALE 

PRICP 

1.  Castle  Wolfenstein  (Muse) $24.9t> 

2.  Gorgon  (Sirius) 33.95 

3.  Raster  Blaster  (Budgeco) 24.95 

4.  Snoggle  (Broderbund) 20.95 

5.  Robotwar  (Muse) 33.95 

6.  Alien  Typhoon  (Brod.) 24.95 

7.  Space  Eggs  (Sirius) 24,95 

8.  ABM  (tvluse) 20.95 

9.  Ultima  (Ca.  Pacific} 33.95 

10.  Pool  1.5  (IDS) 29.95 

1 1 .  Voyage  of  the  Valkyrie  (AOS) 33.95 

12.  Zork  (Personal  Software) 33.95 

13.  Shuffleboard  (IDS)  24.95 

1 4.  Olympic  Decathlon  (Microsoft) 24.:'5 

1 5.  Apple  Panic  (Brod.J 24.95 
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inability  to  store  more  than  one  shape  table  at  a 
time.  Though  a  small  amount  of  effort  could  change 
this,  it  would  not  be  feasible  if  you  are  running 
low  on  memory.  I  hope  this  program  brought 
some  relief  and  enjoyment  to  you  cassette  owners 
out  there. 

5  DIMV(250) 

1082  Q  =  Q+1 

1084  V{Q)  =  X 

13040  TEXT:  HOME 

13042  VTAB  10:  HTAB  5 

13045  PRINT  "MEMORY  LOCATIONS  ARE  BEING 

SCANNED" 
13900  Y  =  3500 
13904  IFPEEK(Y)=131  AND  PEEK  (Y  + 2)  =  46  THEN 

Y  =  Y  +  2:  GOTO  13910 
13906  Y  =  V+l:GOTO  13904 
13910  FF=LEN(STR$(Q)) 
13920  FOR X=l  TOFF 

13930  T(X)  =  VAL(MID$(STR$(Q),X,1)) 

13940   POKEY,T(X)  +  48 

13945   Y  =  Y+1 

13950  NEXT 

13970  POKEY,44 

13975   POKEY+l,49:POKEY+2,44:POKEY  +  3,48:POKE 

Y  +  4,44:POKE  Y  +  5,52:POKE  Y  +  6,44:POKE 

Y  +  7,48:POKEY  +  8,44 

13997  TEXT:  HOME 

13998  VTAB  10:  HTAB  2 

13999  PRINT  "DATA  IS  NOW  BEING  POKED  INTO 
MEMORY" 

14000  FORQQ=l  TO  Q 

14003  R  =  PEEK(Y) 

14004  IF  R<>  46  THEN  Y  =  Y+  1:  GOTO  14003 

14005  F  =  LEN(STR$(V(QQ))) 
14010  FORT=lTOF 

14019  L(T)  =  VAL(MID$(STR$(V(QQ)),T,1)) 

14040   POKEY,L(T)  +  48 

14050  Y  =  Y+1 

14055   NEXT 

14060   POKEY,44 

14070  Y  =  Y+1 

14075  NEXT 

14100  HOME 

14500  PRINT  "TYPE  'ESC  KEY  TO  DEMONSTRATE 

PROGRAM" 
14510  GET  E$:  IF  E$<>  CHR$(27)  THEN  END 
14550  POKE  232,0:  POKE  244,64 
14555  READQ 

14560  FOR  X=  16384  TO  16387 +  Q 
14570  READY$ 
14572   IF  Y$  =  "*"  OR  YS  =  "**"  OR  Y$  =  "***"  OR  Y$  = 

"****"  THEN  14570 
14575  Y  =  VAL(Y$) 
14580   POKEX,Y 
14590  NEXT 
14600  POKE  16388 +  Q,0 
14610  HGR:SCALE=1:ROT  =  0 
14620  HCOLOR  =  3 
14630  DRAW  1  AT  140,80 
14700  VTAB  22 
14702  PRINT  "TYPE  'ESC  TO  FORM  NEW  PROGRAM" 

14704  GET  E$:  IF  E$<>  CHR$(27)  THEN  END 

14705  TEXT:  HOME 

14706  PRINT  "PROGRAM  IS  NOW  READY  TO  BE 
SAVED" 


14710  DEL  5,14510 

15000  DATA     

***• 

15001  DATA 

«♦** 

J5001   DATA 

**** 

15002  DATA     

.  .  .  . ^ **** 

15003  DATA     

**** 

15004  DATA 

, «*** 

15005  DATA     

.  .   .  **** 
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Lower  Case 
With 

Unmodified 
Appie 

Joseph  Wrubel 
Aberdeen,  NJ 

This  article  describes  a  program  called  LC.EDIT 
which  can  be  used  to  build,  modify,  and  print  text 
files  using  both  upper  and  lower  case  letters  on  an 
unmodified  4SK  APPLE  II  Plus,  The  editor  sup- 
ports most  of  the  commonly  used  edit  commands 
including  find,  locate,  change,  append,  insert  and 
delete.  Also  included  are  read  and  write  disk 
commands. 

Uppercase  letters  are  entered  by  preceding 
them  with  a  CTRL-A.  Internally,  the  program 
adds  32  to  the  ASCII  value  of  each  lower  case 
letter,  thus  setting  up  the  string  for  output  to  the 
printer.  On  the  screen,  capital  letters  are  converted 
to  the  inverse  mode  while  the  lowercase  letters  are 
converted  back  to  uppercase  for  display  only. 

I  purchased  my  APPLE  II  early  in  December 
1980,  and  quickly  realized  that  the  BASIC  language 
had  changed  a  lot  since  I  had  used  it  last  in  1968. 
The  biggest  change  I  noticed  was  the  string 
handling  ability  of  the  new  BASIC. 

The  first  application  program  I  decided  to 
write  required  the  use  of  strings.  I  quickly  found 
the  "write  text"  and  "read  text"  programs  on  the 
master  disk  and  as  quickly  decided  I  didn't  like 
them.  At  work,  I  make  use  of  text  editors  on  PRIME 
and  UNIVAC  computers  and  find  that  each  of 
them  has  certain  features  which  the  other  doesn't 
support.  So  I  backed  myself  into  writing  a  text 
editor  for  my  APPLE  and  decided  to  incorporate 
the  features  I  liked  best  from  each  system. 

The  program  is  used  the  first  time  to  create  a 
text  file.  The  procedure  is  to  hit  a  carriage  return 
when  prompted  for  "FILE  NAME."  This  puts  the 
program  in  the  input  mode.  Once  the  text  is 
entered,  a  CR  puts  the  program  into  the  EDIT 
mode.  The  options  available  in  the  EDIT  mode  are 
described  below.  Note  that  a  single  letter  followed 
by  a  space  and  then  any  needed  parameters  is  the 
usual  format  within  the  program.  In  this  version, 
capital  letters  are  typed  in  by  preceding  them  with 
a  CTRL-A. 


The  edit  options  are  as  follows: 
I  —  Insert  new  line  behind  the  present  line. 
C  —  Change  the  first  sub-string  to  the  second 
sub-string  in  this  line  of  text.  Sub-strings  are 
separated  by  I's.  Double  //'s  can  be  used  to 
enter  a  new  substring  in  front  of  the  existing 
string  or  to  delete  the  last  part  of  the  original 
string. 

A  —  Append  new  string  to  the  end  of  the 

original  string  on  this  line. 

P  —  Print  a  number  of  lines.  Options  include 

printing  all  lines  fi'om  the  present  position  to 

the  end  of  the  file  by  typing  P*. 

S  —  Save  file.  It  is  saved  with  its  original  name 

if  one  has  been  previously  entered.  Otherwise, 

a  file  name  is  requested  via  a  prompt.  If  you 

give  a  file  name  wlien  using  S,  the  new  name  is 

used.  This  is  a  way  of  making  an  image  of  a 

text  file  for  backup  or  modification. 

N  —  If  alone  the  next  line  is  displayed.  N  +/- 

NUMB  moves  the  pointer  back  and  forth 

within  file  limits. 

L  —  Locate  sub-string  at  any  location  in  any 

line  from  the  present  line  to  the  end  of  the 

file. 

Q  —  Quit.  Normal  program  exit. 

F  —  Find  sub-string  at  beginning  of  any  line 

from  the  present  line  to  the  end  of  file. 

R  —  Retype  present  line  completely. 

H  —  Help  if  you  have  forgotten  how  to  use 

the  program.  Can  be  used  at  any  time. 

E  —  Enter  new  file  name  to  be  edited.  Can  be 

used  to  edit  when  finished  with  the  first  without 

having  to  re-run  the  program. 

NN  —  NN  is  any  valid  line  number  in  the  file. 

This  is  a  direct  line  number  access  to  the  entire 

file. 

The  program  is  well  REMarked  to  help  any 
new  programmer  understand  not  only  what  the 
program  does,  but  afso  how  it  does  it. 

The  printer  I  have  is  an  EPSON  MX-80,  but  I 
believe  this  program  will  work  for  any  printer 
which  supports  lower  case  characters.  Until  the  day 
this  article  was  written,  I  had  no  idea  that  1  could 
take  advantage  of  the  printer's  lower  case  abilities, 
but  my  son  persisted.  This  program  was  modified 
from  my  original  upper-case  only  version  in  about 
four  hours. 

One  necessary  feature  of  this  program  is  the 
amount  of  user  error-checking  which  takes  place. 
As  ol  this  writing,  I  am  unaware  of  any  way  to 
make  the  program  bomb.  Most  of  the  checks 
were  installed  originally,  but  a  few  were  added 
when  bomb-outs  indicated  an  unexpected  pitfall 
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such  as  typing  "DELETE"  instead  of  "D"  to  delete 
one  line. 

If  anyone  would  like  to  save  the  effort  of  typing 
in  the  program  send  me  a  disk,  $3,  and  an  SASE 
mailer  and  I  will  provide  a  copy  of  this  version  and 


the  upper-case  only  version.  My  mailing  address  is: 

Joseph  N.  Wrubel 
27  Norwood  Lane 
Aberdeen,  N|  07747 


1 

REM    ********************** 

2 

REM    *                     * 

3 

REM    *   LC.EDIT  PRQSRAM    * 

4 

REM    *                      * 

5 

REM    *         BY           * 

6 

REM    *                     * 

7 

REM    *     J.  N.  WRUBEL     * 

8 

REM    *                      * 

9 

REM    *                      * 

10 

REM   *    REV.  AUG  1981     * 

11 

REM   *                     * 

12 

REM   ********************** 

13 

REM 

15 

HOME  :  DIM  T*(500) 

20 

INPUT  "FILE  NAME  :  " s Z$ 

24 

D*  =   CHR*  (4)!  REM   CTRL-D 

25 

REM 

26 

REM  «********#**********#*** 

27 

REM   CR  TO  ENTER  BUILD  MODE 

28 

REM  ************************ 

29 

REM 

30 

IF   LEN  (Z*)  =  0  GOTO  1000 

32 

IF  Z*  =  "H"  THEN  9400:  REM  LIST  INSTRUCTIONS 

34 

REM 

35 

REM  ************************ 

36 

REM    LOAD  FILE  FROM  DISK 

37 

REM  ************************ 

38 

REM 

40 

PRINT  D*s "OPEN";Z$ 

50 

PRINT  D*; "READ" 5 Z* 

52 

REM 

53 

REM  ************************ 

54 

REM   FIRST  ELEMENT  FROM  DISK 

IS  FILE  LENGTH  (NUMERIC) 

55 

REM 

57 

REM   REMAINDER  OF  FILE  IS  IN 

STRING  FORMAT 

58 

REM  ************************ 

59 

REM 

60 

INPUT  I 

70 

FOR  J  =  1  TO  I 

75 

INPUT  T*(J) :  NEXT 

80 

PRINT  D*; "CLOSE"; Z* 

90 

J  =  1 

100   REM  *********************** 

101   REM   MAIN  REENTRY  POINT  FROM  MOST  PROGRAM  OPTIONS 

lo: 

2       REM  *********************** 

1 03   REM 

10! 

3   PRINT  Ji  "!  "; 

110   GOSUB  250: R*  =  T* 

112   IF   LEN  (T*)  =  0  THEN  W*  =  " 

'":  GOTO  121 

115  W$  =   CHR*  <  ASC  <  LEFT*  <R*, 

1))  -  32) 

116   REM 

117   REM  *********************** 

SATURN  SYSTEMS  32K  RAM  BOARD  FOR  APPLE 

Compatible  with:  Apple  11*,  Apple  II  +  "',  Microsoft's  Z80  Softcard*,  DOS  3.2, 

DOS  3.3,  INTEGER  Basic®,  Applesoft? ,  PASCAL,  FORTRAN, 
LISA®,  Personal  Software's  VISICALC® 

Software  included:   1.   Relocation  of  DOS  into  SATURN  32K  board  (recovers 

approximately  1  OK  of  main  board  RAM). 

2.  Otility  package  for  saving  and  loading  Applesoft"  and 
INTEGER  ^  programs  and  data  on  the  32K  RAM  board; 
overlaying,  chaining. 

3.  PSEODO-DISK:  Modifies  DOS  3.3  to  allow  use  of 
SATURN  32K  RAM  board(s)  like  another  disk  drive, 

COMPREHENSIVE  DOCUMENTATION  •  1  YEAR  WARRANTY 

ALL  FOR  ONLY  $239.00 


NEW! 


MEMORY  EXPANSION  SOFTWARE  FOR  VISICALC- 

Now  you  can  expand  the  memory  available  to  Personal  Software's  1 6  sector 
VISICALC "  using  the  SATURN  32K  RAM  BOARD! 

With  VC-EXPAND"  and  one  or  more  SATURN  32K  RAM  BOARDS  the  memory 
available  to  ViSICALC"  is  increased  from  18K  to: 

50K  with  1  SATURN  32K  BOARD 
82K  with  2  SATURN  32K  BOARDS 

In  addition,  VC-EXPAND '"  will  utilize  your  present  1 6K  RAM  board  to  provide  66K  of 
usable  V1S10\LC"  memory. 

VC-EXPAND  supplied  on  1 6  sector  disk 

ONLY  $100.00 

DEALER  INQGIRIES  INVITED 
VISA/MasterCard  Accepted 

ALPHA  LOGIC  BUSINESS  SYSTEMS,  INC. 

3720  Winston  •  Hoffman  Estates,  IL  60 1 95  •  (3 1 2)870-8230 
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na  REM    CONVERT  SINGLE  LETTER  ENTRY  TO  NUMERIC 

119  REM  *********************** 

120  REM 

121  FOR  W  =  1  TD  13 

130  IF  W*  =   MID*  ("ICADPSNLQFRHE",W, 1)  THEN  190 

140  NEXT 

150  GOTO  1200:  REM  ENTRY  WAS  NOT  A  VALID  LETTER 

190  ON  W  GOTO  2000 ,  300i:i ,  4000  ,  5000 ,  6000 ,  7000 ,  8000 ,  9000 ,  200 ,  500 ,  2500 ,  9400 

,  750 

200  PRINT  "PROSRAM  COMPLETE":  END 

210  GOTO  90:  REM   CONTINUE  RE-ENTRY 

250  REM 

252   REM  INPUT  STRING  SUBROUTINE 

254   REM 

257  T$  =  "" 

260   GET  A*:  IF  A$  =   CHR*  (13)  THEN   PRINT  A*;s  RETURN 

270   IF  A*  =   CHR*  (8)  AND   LEN  (T*)  >  1  THEN  T*  =   LEFT$  (T$,  LEN  (Tt)  - 

1) !  PRINT  A*; :  GOTO  260 
275   IF  A*  =   CHR*  (S)  THEN  T*  =  "":  PRINT  A*;:  GOTO  260 
280   IF  A*  =   CHR*  (1)  THEN   GET  A*s  INVERSE  i  PRINT  A*s:  NORMAL  : T*  =  T 

*  +  A$5  GOTO  260 
290   IF  A*  <   CHR*  (65)  OR  A*  >   CHR$  (90)  THEN  T$  =  T$  +  A*:  PRINT  A*;: 

GOTO  260 
300   PRINT  A*!:T«  :^  T$  +   CHR*  (  ASC  (A*)  +  32):  GOTO  260 
350   REM 

^r  ^^  J         ^1  t^  h^  ^  ^  ^-  ^  ^  ^  1^  -^  ^  ^  yU    t^    ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 

352   REM  PRINT  A  LINE  SUBROUTINE 

354   REM 

360   FOR  L  =  1  TO   LEN  (T*>!B*  =   MID*  (T*,L,1) 

370   IF  B*  >   CHR*  (64)  AND  B*  <   CHR*  (91)  THEN   INVERSE  :  PRINT  B*;;  NCJRMAL 

:  GOTO  395 
380   IF  B*  >   CHR*  (96)  AND  B*  <   CHR*  (123)  THEN  B*  --^■-       CHR*  (  ASC  (B*)  - 

390  PRINT  B*; 

395  NEXT  :  PRINT  :  RETURN 

450  REM 

451  REM  ************************ 

452  REM  STRING  DECODE  SUBROUTINE 

453  REM  ************************ 

454  REM 

460   FOR  M  =  3  TO   LEN  (R*) 

470   IF   MID*  (R*,M,1)  >   CHR*  (95)  AND   MID*  (R*,M,1)  <   CHR*  (124)  THEN 

R*  =   LEFT*  ■(R*,M  -  1)  +   CHR*  (  ASC  (  MID*  (R*,M,1))  -  32)  +   MID* 

(R*,M  +  1) 
480   NEXT  :  RETURN 

500  REM  ********************* 

501  REM   FIND  STRING  ROUTINE 

502  REM  ********************* 

503  REM 

510   IF   LEN  (R*)  <  3  THEN  5S0 

520  F*  =   MID*  (Rt,3)s  REM   STRING  TO  BE  FOUND 

530   FOR  K  =  J  +  1  TO  I 

540   IF   LEFT*  (T*(K),  LEN  (F*) >  =  F*  THEN  570 

550   NEXT 

560   PRINT  "NO  FIND":  GOTO  90 

570  J  =  K:  GOTO  6300 
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580  PRINT  "YOU  MUST  ENTER  STRING"!  BOTO  100 

750  REM 

751  REM  JK*  ♦*♦*!♦;  *)!(*)((  ******  it!*** 

752  REM   ENTER  NEW  FILE  NAME 

753  REM  ********************* 

754  REM 

755  HOME 

760  IF   LEN  <R*)  <  3  THEN  20 

770  GOSUB  450: Z*  =   MID*  (R*,3):  BOTO  25 

999  REM 

1000  REM  ******************* 

1001  REM    BUILD  FILE  MODE 

1002  REM  ******************* 

1003  REM 

1005  I  =  OsJ  =  0 

1007  PRINT  "INPUT" 

1010  PRINT  J  +  1;  "!  "■ 

1020  GOSUB  250: T* (J  +1)  =  T$ 

1030  IF   LEN  (T*(J  +  1))  =  0  GOTO  HOC 

1040  J  =  J  +  1: I  =  I  +  1 

1050  GOTO  1010 

1090  REM 

1091  REM  ****************** 

1092  REM   ENTER  EDIT  MODE 

1093  REM  ****************** 

1094  REM 

1100  PRINT  "EDIT":  GOTO  100 

1200  REM 

1201  REM  ********************** 

1202  REM  CR  TO  ENTER  INPUT  MODE 

1203  REM  ********************** 

1204  REM 

1205  IF   LEN  (R$)  =  0  THEN  1500 

1206  REM 

1207  REM   ********************* 

1208  REM   VALIDATE  LINE  POINTER 

1209  REM   ********************* 

1210  W  =   VAL  (R*) 

1215  IF  W  <  1  OR  W  >  I  GOTO  1240 

1220  J  =  W 

1230  T$  =  T«(J):  GOSUB  350:  GOTO  100 

1240  PRINT  "ILLEGAL  ENTRY":  GOTO  100 

1 500  REM 

1501  REM   ******************** 

1502  REM        INPUT  MODE 

1503  REM   ******************** 

1504  REM 

1505  REM   IF  AT  END  OF  FILE  DO  EASY  WAY 
1507  IF  J  =  I  GOTO  1007 

1509  REM   THE  HARD  WAY 

1510  PRINT  "INPUT" 
1515  PRINT  J  +  Iji  ":  "; 
1520  BOSUB  250 

1530  IF   LEN  (T$)  =  0  GOTO  1100:  REM    RETURN  TO  EDIT  MODE 

1540  FOR  K  =  I  TO  J  STEP   -  1 

1550  T*(K  +  1)  =  T*<K) 

1560  NEXT 

1570  T$<J  +  1)  =  T* 

1580  J  =  J  +  1: I  ^  I  +  1 
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1  590 

2000 
2001 
2002 
2003 
2004 
2005 
20 1 0 
2020 
2030 
2040 
2050 
2060 
2070 
2500 
2501 
2502 
2503 
2504 
2505 
2510 

3000 
3001 
3002 
3003 
3004 
3005 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3075 
3080 
3090 
3100 
3110 
3120 
3125 
3127 
3128 
3130 

3140 
3160 
3170 
3190 
4000 
4001 
4002 
4003 
4004 
4005 
4010 
4020 
5000 


'/"  THEN  3060 


GOTO  1515 
REM 

REM    INSERT  NEW  LINE 

p^  ^^  I   I        ^  ^  ^  ^  ^  .^  ^  ^  ^  ^  ^  ^  ^  ^^  ^  f^  ^  ^  ^  ^  ^ 

REM 

IF       LEN     (R*)     <    3    THEN       PRINT    "BAD    I":     (SOTO    100 
1    =    1    +    1 

FOR    K    =    I    -    1    TO    J    STEP      ~    1 
T*<K    +    1)     =--    T$(K) 

NEXT 
T*(J  +  1)  =   MID*  <R*,3) 
J  =  J  +  1 
BOTD  100 
REM 

REM  **#****i|i«***!K)|(*)|t!K*)K 
REM      RETYPE  LINE 
REM  ******************* 
REM 

IF   LEN  (R*)  <  3  THEN   PRINT  "BAD  R"  ;  BO TO  100 
T*(J)  =^-   MID*  (R*,3) 
GOTO  100 
REM 

REM  *****###**#********** 
REM   CHANGE  PART  OF  LINE 
REM  ********************* 
REM 

IF   LEN  <R*)  <  3  THEN   PRINT 
W*  =   MID*  (R$,3) 
IF   LEFT*  (W*,l)  <   >  "/"  OR 
FOR  K  =  2  TO   LEN  (W*>  -  1 
IF   MID*  (W*,K,1)  =  "/"  GOTO  3070 
NEXT 

PRINT  "MISSING  DELIMITERS":  GOTO  100 
F»  =   MID*  (W*,2,K  ~  2) 
H  =   LEN  (T*<J) ) 
FOR  M  =  1  TO  H 

IF   MID*  (T*(J),M,K  -2)  =  F*  GOTO  3120 
NEXT 

PRINT  "NO  FIND"!  GOTO  100 
G»  =   MID*  (W*,K  +  1,  LEN  (W*)  -  K  -  1) 
IF  H  -  M  +  1  -   LEN  (F*)  =  0  GOTO  3160 
IF  K  =  2  GOTO  3170 
IF  M  =  1  GOTO  3190 
T*(J)  =   LEFT*  (T*(J),M  -  1)  +  G«  +   RIGHT*  (T*(J),H  -  M  +  1  "   LEN 
(F*)  ) 

GOTO  6300 
T*(J)  =   LEFT*  <T*<a),M  -  1)  +  G*:  GOTO  3140 
T*(J)  =   MID*  (W*,3,  LEN  <W*)  -  3)  +  T*(J):  GOTO  3140 
T«CJ>  =  G4  +   RIGHT*  (T«<J),H  -  M  +  1  -   LEN  (F*) ) !  GOTO  3140 
REM 

REM  #***#**********«*♦**** 
REM  APPEND  TO  PRESENT  LINE 
REM  ***#********#********* 
REM 

IF   LEN  <R*)  <  3  THEN   PRINT  "BAD  A"!  GOTO  100 
T*<J)  =  T*(J)  +   MID*  (R*,3) 
GOTO  6300 
REM 


'BAD  C";  GOTO  100 
RIGHT*  (W*,1, )  < 


January,  1982.  [ssue  20 


COMPUTE! 


95 


5001 

5002 

5003 

5004 

5007 

50 1 0 

5012 

5020 

5030 

5040 

5050 

5055 

5060 

5065 

5070 

5080 

5090 

5100 

5110 

6000 

6001 

6002 

6003 

6004 

6007 

6010 

6020 

6030 

6035 

6040 

6050 

6060 

6070 

6075 

6080 

6100 

6104 

6105 

6106 

6110 

6150 

6151 

6152 

6153 

6154 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6300 

6350 

6351 

6352 

6353 

6354 

6360 


GOTO  100 


1 00 
100 


REM  J************)!!******* 

REM     DELETE  LINE(S) 

REM  jK**************)*!**** 

REM 
L  =   LEN  (R*) 

IF  L  >  1  GOTO  5050 

REM  A  "D"  ALONE  DELETES  ONE  LINE  ONLY 

FDR  K  =  J  TO  I 
T*<K)  =  T*(K  +  1) :  NEXT 
I=I-1:J=J-1:  GOTO  100 

IF  L  =  2  GOTO  5110 
N  =   VAL  (  MID*  <R*,3) ) 

IF  N  >  I  -  J  +  1  THEN  5100 

IF  N  =  0  THEN   PRINT  "BAD  D" 

FDR  K  =  J  TO  I  -  N 
T*CK)  =  T*(K  +  N) !  NEXT 
J=J-i8l=I-N:  GOTO  100 

PRINT  "DELETE  TOO  BIG":  GOTO 

PRINT  "ILLEGAL  DELETE":  GOTO 

REM 

REM  *****)|C#**#)|t*)|()((*!|C!t!J((# 

REM   PRINT  SOME  LINES 
REM  **f$ill.*t^l>*%ilHf***ifi**t 
REM 

IF   LEN  <R*)  <  2  THEN  6300 
NUM*  =   MID*  (R*,2) 

IF  NUM*  =  "*"  GOTO  6150 
NUM  =   VAL  (NUM*) 

IF  NUM  =  0  THEN  T*  =  T*(J) 

FOR  K  =  J  TO  J  +  NUM  -  1 
T*  =  T*(J)!  GOSUB  350 i J  =  J  +  1 

IF  J  >  I  GOTO  6100 

NEXT 
J  =  J  -  1 

GOTO  100 

PRINT  "EOF:  ";  I? "  LINES" 

REM 

REM   THE  END  OF  FILE  WAS  FOUND 

REM 

GOTO  90 

REM 

REM  He******************* 

REM   IS  PRINTOUT  WANTED 

REM  ****3K)((***)K)H***i|()KiK)*!!(!K 

REM 

PRINT  :  INPUT  "PRINTOUT?" 5  PR* 

IF   LEFT*  (PR*,1)  =  "Y"  THEN  6350 

IF   LEFT*  <PR*,1)  =  "N"  THEN  6200 

PRINT  :  PRINT  "TRY  AGAIN":  GOTO  6160 

FOR  K  =  J  TO  I 
T*  =  T*(K):  GOSUB  350:  NEXT 

GOTO  6100 
T*  =  T*(J)!  GOSUB  350:  GOTO  100 

REM 

REM 

REM 

REM 

REM 

PRINT  D*; "PR#1": 


GOSUB  350;  GOTO  100 


PRINT  ENTIRE  FILE 


PRINT   CHR*  (9) i   "80N' 
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6370  FOR  K  =  J  TO  I 

6374  REM   IF  PERIOD  SKIP  A  LINE 

6375  IF  T*(K>  =  "."  THEN   PRINT  :  GOTO  6385 

6378  IF   LEFT*  (T*(K>,4)  =  ".    "  THEN  T*<K>  =="■'+   MID*  (T$(K>,2) 

6380  PRINT  T*<K> 

6385  NEXT 

6390  PRINT  D*;"PR#0":  GOTO  6100 

7000  REM 

7001  REM  JKJICKOK*************** 

7002  REM       SAVE  FILE 

7003  REM  Jtott***************** 

7004  REM 

7006  IF   LEN  (R*)  >  2  THEN   GOSUB  450: Z$  =   MID*  (R$,3) 

7008  IF   LEN  (Z«)  <   >  0  THEN  7015 

7010  PRINT  !  INPUT  "FILE  NAME  ?";Z* 

7012  IF   LEN  (Z$)  =  0  THEN  7010 

7015  PRINT  D*5"GPEN";Z$ 

7020  PRINT  D$; "DELETE" jZ* 

7030  PRINT  D$5"0PEN";Z* 

7040  PRINT  D*; "WRITE" J Z* 

7050  PRINT  I 

7060  FOR  J  =  1  TO  I 

7070  PRINT  T*(J) t  NEXT 

7080  PRINT  D*i "CLOSE"! Z* 

7090  GOTO  90 

8000  REM 

8001  REM  **«**************#*** 

8002  REM    RELATIVE  MOVEMENT  OF  POINTER 
0003  REM  ##*#********#******** 

8004  REM 

8005  IF  R*  <   >   CHR*  (110)  THEN  8030:  REM    A  TRANSLATED  "N" 

8010  J  =  J  +  1 

8015   IF  J  >  I  THEN   PRINT  "EOF:"; I;"  LINES":  GOTO  90 

8020  T*  =  T*<J):  GOSUB  350:  GOTO  100 

8030  V  =   VAL  (  MID*  (R*j2)) 

8040   IF  V  +  J  >  I  OR  V  +  J  <  1  GOTO  8100 

8050  a  =  J  +  V 

8060  T*  =  T*(J):  GOSUB  350s  GOTO  100 

8100   PRINT  "MOVE  TOO  BIG":  GOTO  100 

9000  REM 

9001  REM  *#*********#********** 

9002  REM     LOCATE  STRING 

9003  REM  ***********)(!#***#***** 

9004  REM 

9007  IF   LEN  <R*)  <  3  THEN   PRINT  "BAD  L":  GOTO  100 

9010  F*  =   MID*  <R*,3) 

9020  FOR  K  =  J  +  1  TO  I 

9030  FOR  M  =  1  TO   LEN  (T*(K))  -   LEN  (F«)  +  1 

9040  IF  F*  =   MID*  <T*(K:),M,  LEN  (F*)  )  GOTO  9070 

9050  NEXT  M;  NEXT  K 

9060  PRINT  "NO  FIND":  GOTO  90 

9070  J  =  K:  GOTO  6300 

9400  REM 

9401  REM  *****#)!!#*«************ 

9402  REM        HELP  USER 

9403  REM  ********************** 

9404  REM 

9405  HOME 

9407   PRINT  :  PRINT   SPC (  9); "TEXT  EDITING  PROGRAM" 
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9410 

PRINT 

9415 

PRINT 

9420 

PRINT 

9425 

PRINT 

9430 

PRINT 

9435 

PRINT 

9440 

PRINT 

9445 

PRINT 

9450 

PRINT 

9460 

GET  G* 

9505 

HOME 

9510 

VTAB  2 

9515 

PRINT 

9520 

PRINT 

9525 

PRINT 

9527 

PRINT 

9530 

PRINT 

9535 

PRINT 

9540 

PRINT 

9545 

PRINT 

9550 

PRINT 

9555 

PRINT 

9560 

PRINT 

9565 

PRINT 

9570 

PRINT 

9575 

PRINT 

95G0 

PRINT 

9585 

GET  G$ 

9590 

HOME  : 

9595 

PRINT 

9600 

PRINT 

9605 

PRINT 

9610 

PRINT 

9615 

PRINT 

9620 

PRINT 

9625 

PRINT 

9630 

PRINT 

9635 

PRINT 

9640 

PRINT 

9645 

PRINT 

9650 

PRINT 

9651 

GET  G* 

9653 

HOME  : 

9655 

PRINT 

9660 

PRINT 

9665 

PRINT 

9690 

PRINT 

9695 

GET  G* 
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:  PRINT  "EACH  SINGLE  CHARACTER  INSTRUCTION  SHOWN" 

"BELOW  IS  TO  BE  FOLLOWED  BY  A  SPACE  AND" 

"AND  THEN  ANY  NEEDED  PARAMETERS.  " 

!  PRINT  "TO  START  A  NEW  FILE,  PUSH  RETURN  WHEN" 

"YOU  ARE  PROMPTED  FOR  THE  FILE  NAME." 

"YOU  MAY  THEN  ENTER  YOUR  TEXT  FILE  LINE 

"BY  LINE.   WHEN  DONE,  PUSH  RETURN  AGAIN" 

"TO  ENTER  THE  EDIT  MODE. 

i  PRINT   SPC(  4);"**  PUSH  ANY  KEY  TO  CONTINUE  **" 


!  HTAB  10 

"TEXT  EDITING  PROGRAM" 

:  PRINT  "CODE      FUNCTION" 

:  PRINT  "  I        INSERT  NEW  LINE  OF  TEXT" 

"  ", "BEHIND  THE  PRESENT  LINE" 

:  PRINT  "  C        CHANGE  THE  FIRST  STRING  TO  " 

SPC<  9), "THE  SECOND,  USE  /'S    TO" 
"  ", "SEPARATE  STRINGS" 

:  PRINT  "  A"!  SPC(  7) ; "APPEND  STRING  TO  END  OF  LINE" 
"  ", "LEAVE  l'  SPACE  BETWEEN" 
"  ","THE  A  AND  THE  STRING" 
s  PRINT  "  D";  SPC (  7); "DELETE  ^N'  LINES,  IF  N  OMITTED, "5 

, "JUST  THIS  LINE  IS  DONE" 

:  PRINT  "  P";  SPC (  7) ; "PRINT  'N'  LINES  FROM  HERE" 

"  ", "USE  P*  to  LIST  ALL" 

:  PRINT   SPC(  6);"**  PUSH  ANY  KEY  TO  CONTINUE  **" 

PRINT  :  PRINT  "CODE      FUNCTION" 

:  PRINT  "  S";  SPC (  7); "SAVE  FILE  WITH  NAME  ENTERED" 

"  ","IF  NO  NAME  IS  ENTERED" 

"  ","USE  ORIGINAL  FILE  NAME" 

i  PRINT  "  N";  SPC (  7) ; "NEXT  LINE  +/-  NUMB  IS  PRINTED" 

:  PRINT  "  L";  SPC (  7) ; "LOCATE  STRING  FROM  HERE" 

"  ", "TO  END  OF  FILE" 

:  PRINT  "  Q";  SPC (  7) ; "QUIT" 

:  PRINT  "  F";  SPC (  7); "FIND  STRING  AT  START  OF  ANY" 

"  ","LINE  FROM  HERE  TO  END" 

:  PRINT  "  R";  SPC  (  7)]!"RETYPE  PRESENT  LINE" 

!  PRINT  "  H";  SPC<  7> ; "HELP  PROVIDED  VIA  THIS  LIST" 

:  PRINT   SPC(  7);"**  PUSH  ANY  KEY  TO  CONTINUE  **" 

PRINT  :  PRINT  "CODE      FUNCTION" 
:  PRINT  "  E";  SPC (  7) n "NAME  FILE  TO  BE  EDITED" 
!  PRINT  "(CR)";  BPG(  ^;>!"USF  CARRIAGE  RETUF<N  TO 

BPG(  9); "ENTER  INPUT  MODE" 

:  PRINT  t  HTAB  5:  PRINT  "**  PUSH  ANY  KEY  TO  CONTINUE  **" 
:  GOTO  100 


Dealers  -  Reserve  your  copies  of 

COMPUTEi's  first  Atari  and  PET/CBM  books 

today.  Call  919-275-9809  for  ordering  information 


<?8 
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COMPUTE!  OVERVIEW: 

Individual 
Tax  Plan 


The  "Individual  Tax  Plan"  program  by  Aardvark 
Software,  Incorporated  is  a  highly  sophisticated 
piece  of  computer  software  for  the  Apple  coniputer 
system  (II  or  I'lus)  with  at  least  481v  of  RAM  and 
two  disk  drives,  DOS  3.3  or  PASCAL.  It  also  nicely 
lends  itself  to  the  conipiiterist  who,  in  essence,  does 
not  have  a  working  knowledge  of  computers.  As 
long  as  the  manual  is  at  least  pieviewed,  one  will 
not  have  an\'  trouble  running  this  program. 

It  is  a  well-designed,  easy  to  use  system  for 
comparing  different  filing  alternatives  in  order  to 
minimize  the  income  tax  liability  for  an  individual 
taxpayer.  It  does  an  effective  jol)  of  allowing  a 
comparison  of  numerous  different  tax  preparation 
schemes  at  one  time.  It  does  not,  however,  do  all  of 
the  work  and  calculations  necessary  to  complete  a 
tax  return.  Perhaps  a  better  naTiie  for  the  software 
package  would  have  been  "Individual  lax  Com- 
parison Scheme." 

Up  to  five  alternative  tax  preparation  schemes 
mav  be  entered  at  once.  One  alternative,  for  exam- 
ple, could  include  income  averaging  with  schedule 
G  while  others  could  compare  filing  joitrlly  vs. 
filing  singly  for  a  married  couple.  Side-by-side 
comparison  of  the  calculated  taxes  for  each  of  the 
alternadves  is  effectively  done  by  the  program. 
Tlic  program  is  only  of  value,  however,  alter  an 
individual  has  calculated  many  of  the  numbers  that 
belong  on  the  tax  return.  For  example,  tax  credits 
is  a  single  item  to  be  entered.  The  taxpayer  (or  tax 
return  preparer)  must  determine  the  tax  credits 
for  child  care  expenses  and  energy-saving  expenses 
(each  a  percentage  of  actual  expenses  and  each 
subject  to  dollar  limitations  and  other  limiting 
factors),  and  add  them  together.  This  sum  is  the 
value  that  is  entered  into  the  "Individual  lax 
Plan." 

It  should  be  stressed  that  this  program  is  not 
oriented  towards  layman  u.se,  but  towards  the  tax 
professional,  who  has  had  previous  lax  preparation 
exposure.  To  effectively  use  this  powerful  tool  one 
must  have  a  working  knowledge  of  possible  tax 
alternatives  to  pursue. 

Updates 

Sliould  changes  in  federal  tax  law  occur  in  a  ca- 
lendar year,  Aardvark  Software  ivill  make  available 


revised  programs  reflecting  these  changes.  Revi- 
sions will  cost  $50.00  and  can  be  obtained  from 
local  Aardvark  Software  dealers.  Amuial  updates 
reflecting  changes  in  tax  law  and  including  program 
enhancements  will  be  made  available  on  or  before 
November  1st  of  each  calendar  year. 

Back-up  copies  of  the  included  program  and 
data  disks  are  allowed  using  the  standard  Apple 
copy  program.  You  should  be  able  to  saw  between 
'li)  and  75  lax  Plan  cases  on  each  copy  of  the  data 
diskette. 

Using  The  Progrom 

Dining  operation  of  the  prograin  the  user  enters 
data  for  up  to  74  categoiies,  such  as  filing  status, 
interest,  charitable  contributions,  and  "long  term 
capital  gains-post  6/8/81."  irnfortunately,  the  doc- 
umentation does  not  folhnv  ihe  program  exactly  in 
the  identification  of  the  different  categories.  Items 
12  through  32  arc  misidentified,  most  of  the 
numbers  being  off  by  one.  Once  the  changes  are 
marked  on  two  of  the  four  pages  which  identify 
the  various  categories,  there  is  no  difficultv  finding 
the  various  items,  but  the  problem  should  never 
have  occurred. 

For  each  category  a  value  can  be  indepcndentiv 
entered  for  each  alternative,  or  programming 
options  can  be  used  to  calculate  values  for  different 
alternatives.  For  example,  if  $10, 000  is  entered  for 
the  first  filing  alternative,  then  the  remaining 
alternatives  are  calculated  b)  the  program  at  20% 
increments  by  simply  entering  "P20"  for  percent- 
20.  OthcT'  options  include  "X"  if  only  the  next 
alternative  is  to  be  calculated  on  a  percentage  basis 
or  "I"  for  "increment"  il  all  subsequent  alternatives 
are  to  differ  from  each  other  b)  a  specific  dollar 
amoimt. 

After  all  of  the  data  is  entered,  the  program 
takes  a  few  .seconds  to  calculate  the  (axes  for  all  of 
the  alternatives.  Any  two  alternatives  (in  any  order) 
mav  be  primed  as  hard  copy  for  eas)'  comparison 
of  the  alternatives  in  different  columns.  In  a  strange 
departure  from  the  easy  to  use  options,  here  "999" 
must  be  entered  to  indicate  that  the  numbers  of  all 
of  the  desired  options  have  selected.  RK  TURN 
would  have  been  far  easier  to  use. 

Flexibility 

One  of  the  strengths  of  this  software  package  is  the 
ease  with  which  a  user  can  move  from  one  part  of 
the  program  to  another.  From  a  main  menu  single 
digit  numbers  are  used  to  reach  further  menus 
which  identify  specific  activities.  Several  options 
are  offered  fi>r  moving  from  categorv  to  category 
for  data  entry.  To  "select"  a  specific  category  "S" 
can  be  t)ped  followed  by  the  number  ol  the  cate- 
gory. To  move  "forward"  to  the  next  category  "F" 
is  used  and  "B"  is  used  to  "l)ack  up."  For  many  of 
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the  categories  up  to  ten  numbers  can  be  entered  — 
five  for  the  taxpayer  and  five  for  the  spouse.  The 
program  is  smart  enougli  to  fill  up  all  oflhe  alter- 
natives with  the  value  given  for  the  first  alternative 
unless  it  is  specifically  given  new  values  for  subse- 
quent alternatives.  To  move  from  one  specific 
alternative  to  another  "U"  is  u,sed  to  go  "up"  and 
"D"  is  tised  to  go  "down."  No  control  keys  are 
required  here  —  the  editing  is  vcrv  easy  to  use. 

KSt^ape  can  be  used  at  nearly  any  time  to  exit 
from  data  entry  and  save  on  disk  all  of  the  values 
that  have  been  entered  for  all  of  the  alternative 
schemes.  One  minor  irritant  liere  is  that  the  Pascal 
volume  numbers  are  used  to  specify  the  disk  drives. 
The  documentation  explains  that  tlisk  drive  #! 
needs  to  be  specified  as  \  oiume  four  and  so  on,  but 
the  program  should  have  been  written  to  accept 
sim|)lc  drive  mmihers.  The  name  that  is  given  for 
the  (ile  is  first  checked  against  those  currently  on 
the  disk  in  order  to  prevent  inadvertent  over  writing 
of  a  file  that  should  be  maintained.  An  option  is 
also  provided  to  see  the  directory  of  items  that 
have  been  stored. 

There  are  no  charts  included  to  indicate  which 
oflhe  74  possible  tax  input  questions  arc  to  be 
entered  if.  for  example  one  were  filing  "married 


witli  a  joint  return."  A  glossary  of  terms  would  also 
be  a  welcome  addition.  However,  execution  speed 
is  an  outstanding  feature  of  this  program.  All 
calculations  ate  performed  in  under  60  seconds, 
regardless  of  complexity.  The  program  appears  to 
be  written  entirely  in  machine  code,  wfiich  would 
account  for  its  exceptional  speed. 

While  the  ranges  of  input  data  appear  to  be 
sufficiently  cliccked,  disk  error  codes  are  vaguely 
defined.  If  RESE  f  is  pressed,  all  exisfing  data  not 
saved  on  chsk  is  lost  and  the  program  requires 
rebooting  for  continued  operation.  This  can  be 
most  annoying  and  could  possibly  prove  fatal  if 
done  during  a  disk  storage  operation. 

The  Documentation 

Documentation  for  the  individual  tax  plan  program 
consists  of  an  attractive  3-ring  binder  with  a  3  I 
page  illustrated  instruction  manual  which  includes 
a  simple  appendix  and  printouts.  Tiie  documenta- 
tion, allhough  sufficient  for  the  tax  professional,  is 
not  designed  to  t>e  a  comprehensive  overview  of 
tax  preparation  for  the  layman. 

With  (he  exception  of  the  misnumbcred  cate- 
gories, the  documentation  is  clear  and  complete. 
About  ten  pages  are  used  to  lead  the  user  through 


]  [     SPEECH  SYmNESiZER 
UNUMtTED  VOCABULARY  AT  YOUR  FINGERTIPS 


Give  your  Apple*  something  to  tallt  about  with  an 
ECHO  ][  Speech  Synthesizer.  The  ECHO  ][  offers  in- 
telligible voice-output  while  using  a  minimum  of  RAM. 
The  ECHO  ][  uses  LPC  technology  pioneered  by  Texas 
Instruments,  coupled  with  a  phoneme-based  operating 
system  allowing  you  to  create  any  vocabulary  desired. 
Variable  stress,  pitch  and  volume  let  your  Apple  ask 
questions  or  make  exclamations  while  also  allowing 
for  optimal  qualify.  Speech  can  easily  be  added  to 
BASIC  programs  with  PRINT  statements. 
The  applications  of  synthesized  speech  are  limited 
only  by  your  Imagination.  From  educational  programs 
to  games  to  business  applications,  speech-output 
adds  a  new  dimension  to  your  Apple's  capabilities. 

The  ECHO  ][  Speech  Synthesizer  comes  complete  with 
speaker  and  cable,  instruction  manual,  speech  editing 
features  and  a  sample  vocabulary.  The  ECHO  I[ 
requires  48K,  Applesoft  and  at  least  one  disk  drive. 
Suggested  list  price  Is  $225. 

For  further  information,  contact  your  dealer  or  Street 
Electronics  Corporation. 

Dealer  inquiries  welcome. 

*  'ft«d«rMrk  of  Appla  Compular  Company 


v 


STREET  ELECTRONICS 
CORPORATION 


3152  E.  La  Palma  Ave.,  Suite  D 
Anaheim,  CA  92806 


(714)632-9950 
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two  simple  examples  that  do  a  good  job  of  demon- 
strating how  to  move  about  in  the  program.  Sample 
printed  output  for  each  of  these  examples  is  given 
in  an  Appendix  (misidentified  as  Appendix  "B"). 
About  ten  more  pages  are  used  to  specifically 
describe  the  program  options  and  to  identify  the 
various  categories  for  data  entry.  Throughout  the 
instructions,  27  photographs  of  screen  images 
appear.  The  photograplis  were  apparently  taken 
with  a  wide  angle  lens  and  therefore  appear  dis- 
torted, but  they  are  readable  and  pi'ovidc  an  accu- 
rate representation  of  what  the  program  displays. 

General  Overview 

Panelist  #1:  "Negative  and  detracting  hindrances: 

(1)  There  should  be  a  subroutine  within  the  pro- 
gram which  would  enable  the  user  to  enter  directly 
into  a  mini-directory  to  review  a  directive  or 
procedure. 

(2)  The  ability  to  only  do  the  filing  status  routine 
should  be  looped  so  that  only  an  individual  taxpayer 
entry  is  verified  and  utilized  when  there  is  no  spouse 
involved. 

(3)  Provision  to  exercise  the  use  of  only  one  disk 
drive  should  be  available  when  only  one  is  involved 
or  necessary. 

(4)  An  ending  directive  within  the  program  (other 
than  in  tlie  manual)  should  be  provided  after  all 
statistics  have  been  entered. 

(5)  A  'short  form'  alternative  option  could  be  in- 
corporated. 

Positive  and  useful  aspects: 

(1)  Exceedingly  last  access  time. 

(2)  Ease  of  use  in  the  main  menu  parameters. 

(3)  Printer  parameters  and  linefeed  status  changes. 

(4)  Aardvark's  updating  procedures  )aniuially  or 
when  the  tax  structure/laws  change) 

(5)  Comparative  analysis  of  defined  numerical 
statistics  to  take  advantage  of  the  lowest  tax  amount 
to  be  paid. 

(6)  'I'he'slcp'  feature:  accessing  forward  and  back- 
ward through  the  program  via  a  single  kcystioke. 

(7)  Ability  to  access  an\  part  of  the  program  by 
entering  the  input  of  the  area  and  return. 

(8)  User  defined  changes:  save  data  (V/N),  screen 
or  printer  display,  program  user  return  (ability  lo 
re-enter  your  numerical  statistics  and  make  any 
changes  necessary  in  any  of  the  ahernative  figures 
prior  to  executing  the  calculations). 

(9)  Ability  to  handle  positive  and  negative  integers 
as  well  as  figuring  out  its  compound  percent. 

(10)  User  ability  to  make  any  and  all  necessary 
backup  copies  in  the  event  of  catastrophes." 


Panelist  #2:  "The  software  is  easy  to  use  and  ef- 
fectively compares  calculations  done  on  the  basis  of 
different  tax  preparation  schemes,  h  docs  not  do 
all  of  the  calculations  that  a  taxpayer  needs  lo  do, 
nor  does  it  identify  a  correspondence  between 
specific  line  numbers  on  form  1040  and  the  cate- 
gories within  the  program.  The  software  package 
could  be  very  useful  for  professional  tax  preparers, 
but  is  not  likely  to  be  worth  the  expense  for  an 
ordinary  taxpayer.  F(jr  someone  wilii  subslanlial 
capital  gains  to  declare,  it  could  be  helpful,  but  that 
person  is  probably  going  to  benefit  from  advice 
from  a  professional  anyuay.  Wbom  should  you 
select  as  that  professional?  Someone  who  has  an 
Apple  and  Aardvark's  Individual  Tax  Plan." 

Panelist  #3:  "This  program  was  designed  b)  a 
group  of  CPA's  with  over  17  years  of  "Big  Eight" 
experience  to  meet  the  needs  of  the  profe.ssional 
tax  practitioner. 

This  program  is  not,  nor  was  it  designed  to  be, 
everyone's  answer  to  H  &  R  Block.  With  some 
additional  documentation,  a  mucii  wider  range  of 
people  could  benefit  from  it.  While  not  intended 
for  tlie  layman,  the  professional  tax  ])rep;u  er 
should  find  this  program  an  outstanding  \alue." 

Sample  Output 
Table  1. 


19LU 

r-  J.L  INt:)    SI  AtUS 
EXEMPI  J.t:iNS 
l^JAGEB,     SALARIES 
XNIERESI     AFTER    EXt:LlJS  J  LUO 
DIVIDENDS    AFTER    EXCLUSlOtJ 
CAPITAL^    t5A IN/LOBS 
PARTNERSHIP     INCQME/t..OSS 
(VrHPR     I  NCtJNE/  LOSS 

rUTAL     INCOME 
AD  J  tJS  I  MENTS     TO    1 1'.JCGME 

ADJUSTED    13RDSS    INCOME 

DEDLUlvriDNS 

MEDICAL    S,;    DENTAL    EXPENSES 

STATE    'i'.    LOCAL     INC    TAXES 

O  IHER    TAXES 

INTERES1  EXPENSE 

CHAR  1  TABLE  CONTR I  BO  V  I IJNS 

CASUALTY  LOBS 

MISCELLANEOUS 

'I  DIAL  DEDUCtlGNS 
ZERO  BRACKET  AMOUNT 


L.  lEPNA!  IVE 

1 

JOINT 

28 

480 

350 

0 

0 

0 

2 

000 

30 

930 

I 

lb  00 

EXCESS 


TEN.  DEDUCTIONS 


29 ,  2:;.0 


i  70 

1,6'cti 

0 

1 ,  690 

943 
I  ,  090 

7  97 

6,  361 
3,400 

2,961 


TAX     FABLE     IMCCJME 

EXEMPT  I ONB  I  1  MES  't;  1  ,  (XJO 

TAXABLE   .i:ni;:;ome 

TAX  -  TAX  TABLES/ XYZ 

TAX  -  COUAL.  CAP.  GAINS 

TAX  -  INCOME  AVEF':AGIMG 

TAX  -  MAXlMUri  TAX 

TAX  SELECTED 
ADDITIONAL  TAXES 

GF^OSS  REGULAR  lAX 
CREDITS 


MET  REGULAR  TAX 
niNIMLIH  TAX 
ALT  ERIM  AT  I VE  N I M  j:  MLIl'l 
OTHER  I  AXES 

TtUHL  TAX  LtABILITY 
FEDERAL  PAYhENTS 


AX 


:,:::6,269 

**  N/A 

;|!*  M/A 

4 ,  359 

**  N/A 

* 

**  M/A 

4 ,  359 

0 

4,359 

0 

4,359 

0 

i;) 

0 

4,359 

4,998 

_.„„.^ 

BALANCE  DUE  (REFUND) 

Individual  Tax  Flan.  Aardvark  Sojhvayc,  Inc., 
783  North  Waler  Street,  Milwaukee,  WI  53202.  48K 
Apple,  two  disk  drives,  DOS  3.3  or  Pascal,  $250. 


639 


Commoii 
Cents 


FORECASTER 


I  Aith  your  computer,   you  can   foracast   th*  stock  narket   like  the   ^ell 
Street   experts.     £ORECAST^,   a  nutusl   and  moTiey  market   fund  tracker, 
nonitorE  the  istcck  market  and  helps  you  make  timely  doclaloriG  tQ 
achieve  a  high  and  safe  growth  of  your  Invfeetnent  dollora.     Our 
progratfl    tracka,    Bfitlirateg   on'±  prBctlcts    future  moveiaenta  In  tho   stock  I 

I  narkoit   and  aelocted  mutual    funds   baecd  on  an   extensive    data   base. 

•  avoid  cojf fusion 

•  ACHISVb  HIGH  nSLDS 
#PRr^=:RVE   CAPITAL 

•  Ijo.t  risk 

•  top   INr=:Hr.3T   3ATF.S 

•  takes   LtlSS   THAN   JHOUR   PS   HY.iy. 

FORECASTED  is  »rltten  In    slnple      clear  laugqage.      Nq    advanced 
knowledge  of  raathetcflttca,    tonputer  proffrannlTig,   or  investing 
e^erlence  1b  required.     Send  SiO.OO*    for  prograaming  report  and 
user^a  nanual,   or  S75»O0*   for  conplete  scftware  package.     Plcaoo 
specify   Apple   II+.    (Applefloft).    CP/M    Basic   60^    or  THS  flO  Lovcl  II. 
[Ajjple  11+   and    Applesoft   are   tradeDorkc  of  Apple  Computcra,    CP/M 
is  a  trademark  of  Digital  Heaearch,    Basic  60  is  a  tradoniark  of 
fAcroSoft,    and  TR3  SO  la   a   trademark   of  Tandy  Corp, 
•   Add   82.00    for  postage  and   handling 
He*  Mexico   roEidonts   also   add  1,%  tax 


META  SOFTWARE  ENGINEERING 
P  O.   Box  1  8056 


NM   87  115 


The  "Everything"  I/O  Board 
for  the  Apple  n  &  n+ 


OMNI  is  a  multi-funaion  input/output  tMard  for  the  Apple  II  or 
\[+  computer,  (t  pro\/ides,  on  a  single  tioard,  most  of  the  "missing" 
features  needed  to  make  the  Apple  a  complete  computer.  W^tf^ 
OMNI  your  Apple  can  h<Ne:        .  p^^^„^,  .^^  ^^^  r^ndshakmg 

■  RS232  Level  serial  I/O  (software 
drtven) 

•  24  Hr,  Real  Time  Clock  with  Alarm 

•  2K  EPROM  with  graphics,  I/O 
drri/er,  and  screen  editor  firm^vare 

■  256  Byte  PROIW  supervisory 
firmware 

•  Six  2K  PROM/EPROM  expansion 
sockets  software  selectable  (one 
socket  used  for  Eclectic  firmware, 
5  available  for  userl 

INPUT: 

■  Gerverate  full  ASCII  churxxer  set 
from  keytioard 

■  Optronal  shift  key  deteaion 

■  User-definatile  "soft"  keys  with 
screen  legends 

•  Integrated  text  line  editor  full 
cursor  mojement,  insertion/ 
deletion  modes 

•  Key  legend  stickers  included 

•  Oerrranstration  Diskette  with  pro- 
gramming examples  and  a  Soft 
Cfiaracter  Editor 

OLrrPtiT: 

•  Full  96  charaaer  ASCII  display 

•  Concurrent  64  user-definable 
"soft"  characters 

•  Optional  character  ovenstrike  and 
EOR  on  background 

■  Optional  double-width  color 
charaaers 

■  Cfaraaer  rotation  in  90°  steps 

^•Jejer  before  ha\«  so  mary  fijrx:tiorts  been  available  on  a  single  board, 

OMNI  was  designed  with  one  major  goal  in  mind,  flexibrlity.  The 
OMNI  system  consisS  of  some  extremely  sjrrple  but  very  sophisticated 
hardware,  a  large  amount  of  powerful  firmware  (programs 
permanently  residing  in  Read  Only  Memory  chips),  and  an  equally 
extensive  amount  of  software  Iprograms  residing  on  diskette  tfiat 
are  loaded  into  RAM  as  needed).  In  addition,  OMNI  comes  with 
extensive  documentation. 


To  order  TOLL  FREE:  1-800-  527-3135 

or  Order  by  Mall  Below 

Eclectic  Systems  Corporation,  P.O.  Box  1 T66,  Addison,  TX  75001 

Here's  my  order  for  OMNI  at  S268  plus  S3  for  sriipping  3<v3  handling 
(UPS  surface,  unless  specifledj,  S5  overseas. 


□  My  check  is  enclosed. 
n  Please  charge  rny  VISA . 
Account  ff 


Mastercard . 

Expires 


Name. 


Address . 


City/State . 
Signature  _ 


.Zip. 


THE  MOSAIC  32K  RAM  FOR  ATARI 


THE  MOSAIC 
ADVANTAGE 

MOSAIC 
32KRAM 

OTHER 
32K  RAMS 

Works  in  both  Atari  400  &  800 

Gold  edge  connectors  for  better 

reliability 

Fits  Atari  400  without 

modification 

Custom  components  for  better 
performance  &  reliability 

Highest  quality  components  for 
the  best  screen  clarity 

Fullyear  warranty 

Designed  to  take  advantage  of 
Atari  800's  superior  bus  structure. 

Can  be  used  with  8K,  I6K  and 
future  products. 

Allows  Atari  800  to  have  2  slots 
for  future  expansion 

Designed  so  there's  no  danger  of 
damaging  your  computer 

Designed  for  inter-board 
communication  in  Atari  800 

Easy  to  follow  instruaions  for 
simpler  no-solder  installation  in 
Atari  400 

Available  companion  board  ( S5|  to 
al/ow  running  32K  board 
independent  of  other  boards 

Full  flexible  memory  configuration 

■ 
■ 
■ 

i>  DESIGN 

i>  MATERIALS 

i>  SAFETY 

I/'  GUARANTEE 

THE  ONLY  CHOICE 

You  own  the  best  micro  computer  available,  the  Atari*.  At 
Mosaic  we've  made  Atari  computers  our  only  business  and 
have  made  our  products  the  best  anywhere.  You've  seen  the 
advantage  of  having  a  32K  RAM  board.  The  Mosaic  32K 
RAM  is  the  only  board  designed  to  meet  your  needs  now 
and  in  the  future  too.  It  has  designed-in  flexibility  to  be 
compatible  with  products  available  in  the  near  future.  See 
for  yourself.  Mosaic  is  the  only  choice  for  the  serious 
Atari  owner. 

THE  BEST  SCREEN  CLARITY 

Here's  what  A.NA,LO.G.  magazine  had  to  say:  "Mosaic 
uses,  what  we  feel  are  the  highest  quality  components, 
which  may  improve  reliability."  and  "The  Mosaic  showed  no 
sign  of  interference  and  gave  the  best  screen  clarity" 


Atari  800 

Met7»ry 

Configuration 

with  the 
MOSAIC 
32KRAM 

With 

other  32K 

Board! 

Atari  BOO 

Memory 

Configuration 

with  the 
MOSAIC 
32KRAM 

with 

other  3  2K 

Boardi 

Is- J 

■;aK  RAM 

■iOK  WiihEAilC 

•ISKPAM 
■tOK  Willi  BASIC 

.;(JK  RAM 

Danger!  '■ 

CnnfiyuuitionCan 
Damage  Compute: 

1'-"       1 

40K  BAM 

Danger!  Thi5 
ConftqufatJOn  C.?n 
Damage  Compui*. 

|r  1 

48K  RAM 

40X  Wjth  BASIC 

Canndge 

Danger!  This 
Condguiajron  Can 
Damage  Computer 

1b^            I 

■  Empty           ■ 

.IBK  RAM 

■KlKW.iriEASIC 

C.i'tfiatjt-' 

Danger!  Thiv 
Cc)nf(giji^!ionC.in 
Oamage  Compuier 

H  Empty           1 
B  Companion   | 

3?KRAM 

Danger!  Thjs 

CnnfjguiationCan 
Damage  Computer 

|32^^J 

Now  from  your 
nearest  Mosaic  dealer 


$179.95 


■Trade  Mark  of  Atari,  Inc 


Direct  from  Mosaic  SI89.95 

k^mosoic 

ElECJf^ONiCS, 

?.0.  Box  748  Oregon  City,  Oregon  97045  503/655-9574 
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Cryptogram 

Ronald  and  Lynn  Marcuse 
Freehold,  NJ 


Word  games  are  jusl  one  of  many  applications 
which  can  be  programmed  on  the  versatile  ATARI 
computers.  While  not  challenging  your  reflexes  as 
does  Space  Itnaders  or  Star  Raiders,  they  do  chal- 
lenge your  mind.  With  the  iiimiber  oi  graphic 
action  games  approaching  infinity  in  our  house,  we 
predicted  that  our  two  school-age  offspring  will  be 
competent  space  shuttle  pilots  by  the  time  they 
reach  18.  Unfortunately,  they  may  not  be  able  to 
read.  An  educational  computer  word  game  may  be 
capable  of  swinging  the  pendulum  the  other  way, 
or  at  least  slow  down  the  onrushing  invaders. 

Most  of  the  electronic  word  games  currently 
being  marketed  are  variations  of  the  "hangman" 
game,  where  you  arc  requiied  to  guess  an  unknown! 
word  by  specifying  its  letter  content  within  a  certain 
number  of  tries.  If  you  fail,  you  are  then  "hanged" 
or  punished  in  some  similar  manner.  A  n-yptogram, 
however,  challenges  your  ability  to  decipher  coded 
phrases  or  messages.  Not  wanting  to  generate  an 
"unbreakable"  code,  we  used  a  simple  letter  substi- 
tution. Each  letter  in  the  statement  is  replaced 
uniformly  by  some  other  alphabetic  character.  For 
example,  all  of  (he  A's  may  appear  as  G's,  the  B's  as 
Y's,  etc.  Don't  bother  to  memorize  these  relation- 
ships because  the  structure  of  the  code  changes 
each  game.  Spaces  between  words  and  punctuation 
remain  intact. 

There  are  two  skill  levels  in  the  game,  selectable 
through  (he  OPTION  key.  With  the  first,  the 
program  uill  decipher  the  vowels  for  you.  leaving 
you  only  the  consonents  to  decode.  With  the  second 
option  you  are  on  your  own.  We  had  originally 
programmed  three  options,  the  third  being  a  com- 
pression of  the  statement  into  one  long  string 
(removal  of  spaces),  but  deciphering  of  the  phrase 
became  rather  diflicull.  The  SELECT  key  is  utilized 
to  vary  the  number  of  participants.  For  the  two 
person  version,  one  player  would  enter  a  statement 
for  the  other  to  decode.  In  the  one  player  game, 
the  computer  will  randomly  select  one  of  fifty 
popular  (?)  expressions  stored  in  the  program. 
These  phrases  appeal"  as  the  DATA  statements  in 


lines  1010-1500.  You  may  change  this  Hst  if  you 
desire.  Just  make  sure  that  you  wind  up  with  exactly 
50  statements  and  that  each  one  is  no  longer  than 
75  characters  (including  spaces  and  punctuation). 
You  may  use  any  punctuation  with  the  exception 
of  the  comma. 

How  To  Play 

A  game  in  progress  may  be  saved  to  either  disk  or 
tape.  Program  1  contains  the  disk  version.  Program 
2  displays  changes  required  for  the  recorder.  In 
saving  the  game,  the  clisk  version  will  request  a 
three  character  (or  less)  name  which  will  be  ap- 
pended to  the  file  name.  The  tape  version  will 
require  you  to  insert  a  blank  tape  in  the  recorder. 
Make  a  note  of  the  recorder  counter.  The  proce- 
dure for  loading  a  saved  game  is  similar,  but  you 
must  supply  either  the  file  name  extender  or  tape 
that  has  been  positioned  (using  the  counter)  in  the 
recorder. 

To  start  a  game  type  "N"  to  the  program 
prompt  "SHOULD  I  LOAD  A  SAVED  GAME" 
and  then  pick  the  skill  level  and  number  of  players 
by  pressing  the  OPTION  and  SELECT  keys.  Press 
the  START  key  to  begin.  You  may  need  to  depress 
the  keys  for  a  second  or  two  to  register  your  action. 
This  may  be  speeded  up  by  shortening  the  timing 
loop  at  line  990.  If  you  had  chosen  the  two  player 
option,  the  program  will  prompt  you  to  enter  a 
phrase  or  message  to  be  encoded.  This  must  be 
from  20  to  75  characters  in  length.  Shorter  phrases 
are  actually  harder  to  decipher  than  long  ones.  In 
the  one  player  option,  the  program  will  randomly 
select  one  of  the  fifty  DATA  statements. 

After  the  encoding  process  is  completed  (it 
takes  approximately  15  seconds  to  generate  the 
code  and  substitute  the  letters),  the  game  screen  is 
displayed.  At  the  topof  the  display  is  a  table  showing 
the  code  letters  and  values  that  you  have  assigned 
to  the  code.  The  next  group  of  lines  contain  the 
"secret  phrase"  and  your  working  translation. 
These  alternate  if  the  phrase  is  longer  than  one 
line  in  length.  If  skill  level  1  had  been  selected,  the 
vowels  would  have  already  been  translated  for  you. 
At  the  bottom  of  the  display  is  the  input  area  for 
code  letters  and  values.  En(ei-  a  code  letter  and 
then  the  substitution  you  would  like  to  perform. 
An  arrow  cursor  alternates  between  the  two  input 
lines.  To  erase  a  previous  entry,  first  type  the  code 
letter  and  then  press  the  space  bar. 
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When  you  have  correctly  substituted  all  of  the 
characters,  the  program  will  notify  you  graphically. 
You  may  also  press  the  ESCAPE  key  to  end  the 
game.  This  will  allow  you  to  save  the  game,  quit,  or 
try  a  new  phrase.  If  you  are  short  on  RAM  (under 
24 K),  the  REMARK  statements  may  be  omitted 
with  no  ill  effects. 

Lines  18  through  30  comprise  the  "house- 
keeping" section  of  the  piograni.  The  left  screen 
margin  is  set  to  1  (POKE  82,1)  for  those  TV  sets 
that  overscan,  the  keyboard  is  OPENed  and  the 
variables  are  DIMensioned  here.  The  alphabet  is 
stored  in  A$,  the  substitution  code  in  B$,  and  the 
table  entries  for  the  game  display  in  T$,  P$,  C$, 
and  Q$  arc  the  actual  phrase,  the  coded  phrase, 
and  the  working  translation,  respectively.  The 
array  X  (with  26  elements)  is  used  by  the  code 
generation  routine. 

If  a  saved  game  is  being  reloaded  (prompt  in 
hne  40),  the  data  is  input  and  control  is  sent  directlv 
to  the  main  game  display  at  line  400.  Otherwise, 
the  variables  are  cleared  (lines  80-90)  and  the 
option  screen  is  generated  (starting  at  line  100). 
Memory  location  53279  is  the  register  used  to  read 
the  console  keys  on  the  ATARI  computer.  The 
address  is  first  cleared  by  POKE  53279,8  and  then 
queried  by  PEEKing  at  it  in  the  loop  from  lines  120 
through  180.  We  are  concerned  with  the  binary 
value  that  is  stored  in  that  address. 

The  START  key  is  assigned  to  bit  0,  the  SE- 
LECT key  to  bit  1 ,  and  the  OPTION  key  to  bit  3.  A 
value  of  zero  in  the  bit  position  means  that  the  key 
was  pressed.  For  example,  ii  the  S  FART  key  is  hit, 
the  SELECT  and  OPTION  keys  would  register 
decimal  values  of  2  and  4  in  their  respective  bit 
positions.  The  START  key  would  return  a  zero  in 
the  low  order  bit,  giving  a  total  of  6  (decimal). 
Likewi.se,  the  SELECT  kev  would  equal  a  decimal  5 
(4+  I)  and  the  OPTION  key  would  be  3  (2  4-1). 

If  the  two  player  option  was  selected,  the 
phrase  would  be  input  in  line  220,  otherwise  the 
program  will  randomly  select  one  of  the  fifty  data 
statements  in  line  240.  In  lines  250  through  290, 
the  program  generates  the  substitution  code.  A 
random  letter  (from  A$)  is  selected  and,  if  that 
element  of  the  X  array  is  sfill  set  to  zero,  the  B$ 
sub-string  position  is  equated  to  the  letter.  The 
array  is  used  to  check  off  letters  that  have  already 
been  used.  This  type  of  algorithm  could  easily  be 
expanded  to  a  card  shuffiing  routine  if  you  prefer 
p(}ker  to  word  games. 

The  substitution  oi  the  code  letters  into  the 
phra.se  is  done  in  lines  300  to  380.  If  skill  level  1 
was  selected  (SK=  1)  then  the  ATASCII  value  of 
the  phrase  letter  is  checked  to  see  if  it  is  a  vowel 
(values  of  1 ,5,9, 15,  and  2 1 ).  If  it  is,  the  letter  is 
moved  into  the  translation  line  Q$,  otherwise  the 


character  "-"  occupies  that  position.  The  program 
must  also  count  backwards  from  38  looking  for  the 
first  space  to  break  the  line  on. 

The  game  board  is  displayed  in  lines  400-430 
and  the  input  of  code  letters  and  substitutions  is 
performed  in  lines  500-520.  After  the  data  is  re- 
ceived, the  modified  table  elements  are  redisplayed 
in  line  530  and  the  revised  translation  line  in  540- 
560.  If  the  translation  is  the  .same  as  the  phrase 
(line  560),  you  are  sent  to  the  winners  circle  at  line 
700,  otherwise  you  go  back  to  510  for  more  data. 
Pressing  the  ESCAPE  key  (an  ATASCII  value  of 
27)  would  cause  ajimip  to  line  800  for  yoiu-  exit 
options.  The  POP  statement  in  line  915  is  necessary 
to  reset  the  stack  pointer  for  the  non-REl'URN 
exit  out  of  the  subroutine. 

The  remainder  of  the  program  is  routines  for 
the  winning  and  losing  displays,  input  and  printing 
of  data,  the  exit  options,  and  the  saving  of  games 
in  progress.  The  variables  saved,  either  on  disk  or 
tape,  are  P$,  C$,  and  Q|  (the  original  phrase,  the 
coded  phrase  the  the  current  translation),  T$  (the 
assignment  table),  and  the  lengths  of  the  phrase 
(L)  and  its  first  line  segment  (LI).  For  the  disk 
version  of  the  program,  the  format  of  the  saved 
game  is  DrCRYPTG.  -t-  the  3  character  name  tliat 
was  entered. 

Program  L 

10  REM  ;^a:?:m:^:>c        CRYPTO-GRAn        tumt 

11  m\  t 


12  REM  %    RONALD  ^.  LYHH  MARCUSE;   FREEHOL 
D  \\J     t 

13  REM  t 

t 

14  REM  $^:^^:^?t^5*:*nt^*:^:^:^*:^-^**^:^:i^^**^-^:^:^* 

15  REM 

18  POKE  32..  l^iJEK  t4..4..0."K=" 

20  DIM  A$C2b).B$(2b).^T$(2b).I*(l);D$(i); 

P$(  81 )..  C$(  80 )..  Q$(  8S ) ,.  X(  26  > 

2-5  DIM  HJ<3::'..FJ<12) 

30  H$="ABCDEFGHIJKLMhlOPQRSTUUUXYZ"  ^GOSUB 

36  REM 

37  F£M  LIr€S  49  THRU  76  hLLlW  THE  LOADIH 
G  OF  A  SAUED  GAME  OH  DISK 

38  REM  SEE  LISTING  2  FOR  TAPE  UERSIuH 
35  REM 

46  ?  "iDOWrO  SHOULD  I  LOAD  A  SAUED  s^AME 

(Y/N)   "; 

4"^  GOSUB  970 aF  II<>"Y"  THEN  38 

5fi  GnsllB  '^kSmRAP  7y^0PEN  #2,=  4..e..i-$:  If-PU 

T  rd>h 
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I     ATARI  (tm)  GRAPHICS  AND  SOUND  MADE  EASY!     t 
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SANTA  CRUZ  EDUCATIONAL  SOFTWARE  HAS  WRITTEN  A  SERIES  OF  AFFORDABLE  PROGRAMS  THAT  DEMONSTRATES  IVIANY  OF  THE 
SPECIAL  "TRICKS"  THAT  ONLY  THE  ATARI  400/800  COMPUTER  IS  CAPABLE  OF  DOING.  WE  OFFER  EVERYTHING  FROM  A  PROGRAM 
THAT  DOES  FANTASTIC  HIGH  RESOLUTION  GRAPHICS  TO  ONE  THAT  ACTUALLY  DIALS  YOUR  PHONE 
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MASTER  MEMOHY  MAP(lm(  -  Triis  is  really  the  key  to  us- 
ing Ihe  ATARI'S  capabililles  We  slarl  out  by  explaining 
how  to  PEEK  and  POKE  values  into  memory  so  Itiat  even 
new  programmers  can  use  this  Then  we  give  you  over  15 
pages  of  the  memory  locations  thalare  Ihe  most  useful.  The 
intormalion  is  condensed  from  Doth  Itie  ATARI'S  Operating 
System  l/anual  and  various  articles  and  programs  It  is,  ot 
course,  uselul  even  tor  experienced  programmers  as  a 
reference  Also,  we  highly  syggest  thai  dealers  olfer  this 
Memory  Map  lo  customers  who  requesl  to  be  told  how  lo 
use  the  power  of  the  machine.  We  guarantee  it  will  answer 
many  ol  Ihe  gueslions  you  have  about  the  machine.  S5.95 


I         TRICKY  TUTORIALS(tm) 

■3  #1:  DISPLAY  LISTS  —  This  program  teaches  you  hov^  to 

0  alter  the  program  in  the  ATARI  thai  controls  the  formal  of 

■-5  the  screen.  For  example:  when  you  say  graphics  8  the 

y  machine  responds  with  a  large  graphics  8  area  at  the  top  of 

g  the  screen  and  a  small  text  area  at  the  bottom  Now.  you 

M  will  be  able  to  nitj  the  various  modes  on  the  screen  al  ihe 

5  same  time  Just  Ihink  how  nice  your  programs  could  look 

^  wim  a  mix  ol  large  and  small  text,  and  both  high  and  low 

"E  resolution  graphics,  this  program  has  many  examples  plus 

^  does  all  of  the  difficult  caluculalions'  S14.95 
« 

»  #2:  HOfllZDNTAL/VERITCAL  SCROLLING  -  The  inform- 

~  ationyou  put  on  Ihe  screen,  either  graphics  or  lext,  can  be 

3  moved  up.  down  or  sideways  This  can  make  some  nice  el- 

I-  feels  Vou  could  move  only  Ihe  text  on  the  bottom  half  ot  the 

_>•  screen  or  perhaps  creale  a  map  and  then  move  smoothly 

.y  over  it  by  using  the  loystick  SH.95 

'a,  *^'  ''"''^  FLIPPING  -  Normally  you  have  to  redraw  Ihe 

^  screen  every  lime  you  change  the  picture  or  text.  Now  you 

a  can  learn  how  lo  have  Ihe  computer  draw  Ihe  next  page  you 

^  want  losee  while  you  are  still  looking  at  the  previous  page. 

w  then  flip  to  il  instantly  Vou  won  t  see  it  being  drawn,  so  a 

™  complicaledpicturecanseemtoiuslappear  Dependingon 

.2  your  memory  size  and  how  complicated  Ihe  picture,  you 

g  could  tlip  between  many  pages,  thus  allowing  animation  or 

3  other  special  eflects  with  your  text,  JU,95 

"O 
UJ 

2  #4:  BASICS  OF  ANIMATION  -  Shows  you  how  lo  animale 

^  simple  shapes  using  the  PRINT  and  PLOT  commands,  and 

„  also  has  nice  little  PLAYER/MISSILE  Graphics  demo  to 

c  learn  This  would  be  an  excellent  way  to  start  making  your 

CO  programscomealiveonlhescreen  Recommended  for  new 

«  owners  S14.95 

■|  »5  PLAVEfl  MISSILE  GRAPHICS  -  This  complex  subjecl  is 
■g  demonstrated  by  starting  with  simple  examples,  and 
I-  building  up  lo  a  complete  game  and  also  an  animated 
5"  business  chart  on  multiple  pages'  As  always,  the  computer 
M  does  most  ol  the  calculations  Requires  32K  disk  or  tape 
I-  and  costs  $29.95 


^  »6r  SOUND-  Fromexplaininghowtocreale  single  notes. 
*  lo  demonslraling  complex  lour  channel  sound  eflects.  this 
%  newesi  lulorial  is  great  Even  those  experienced  with 
J2  ATARI'S  sound  capabilities  will  find  the  menu  ol  sound  el- 
g  lecfs  a  needed  reference  thai  can  be  used  whenever  you 
.S  are  in  the  need  of  a  special  sound  for  your  programs. 
g  Everyone  will  learn  something  new'  Written  by  Jerry 
=  White  SI 4. 95 


S 


Tricky  Tutorials  (except  #5)  require  16K 
memory  for  cassette  orders  and  24K  for  disk. 
The  price  Is  $14.95  each.  You  may  order 
1,2,3,  &  4  for  $49,951  All  six  in  a  colorful 
binder  cost  S89.95. 


THE  GRAPHICS  MACHINE!!  -  Turn  your  computer  into  an 
incredible  graphics  fool  with  advanced  commands  like  cir- 
cle, box  fill  polygon  line.  help,  etc  3  colors  in  graphics  8 
with  instant  lext'"  Creale  colorful  business  charts  or 
beautiful  drawings  and  then  save  or  retrieve  Ihem  from 
disk  in  5  SECONDS  YES.  its  that  fast  Needs  all  -fSK. 
disk,  and  costs  S19,S5 


MINI-WORD  PROCESSOR  -  This  is  for  those  of  you  who 
have  a  onnter  bul  don'l  want  to  spend  S100  or  more  lor  a 
fancy  word  processor  II  is  suitable  for  simple  editing  ol 
text,  accepts  most  control  characters  lor  your  printer  and 
text  IS  stored  on  disk  for  easy  relneval  Holds  ?'/..  typed 
pages  at  a  time  Requires  32K.  disk  or  tape  S14.95 

flDB'S  BUSINESS  -  \A  small  busmess  type  programs  lor 
home  or  ollice.  all  chosen  Irom  a  nice  menu  SuDporls 
prinled  output  169  sectors  of  output  require  16K  tape  or 
32K  disk   S14.95 


KID'S  #1  -  Includes  Ihe  lollowing  1)  TREASURE  - 
search  for  the  lost  treasure  while  trying  lo  keep  from  falling 
into  the  sea  Nice  graphics  if  you  find  it'.  2)DIAL0GUE  - 
talk  back  lo  the  computer  about  lour  subjects:  3)  MATH 
QUIZ  -  Nice  musical  and  graphical  rewards  for  good 
scores   Parenls  input  Ihe  level  ol  dilliculty 

KID'S  #2  -  A  spelling  qui;  a  scrabble'  lype  game  and 
a  version  ol  Touch  wilh  Ihe  computer  giving  all  the  direc- 
tions' Both  Kid's  programs  require  t6K  tape  or  24K  disk 
and  cost  S14.9Seacn 

MINI-DATABASE/DIALEfl  -  This  unique  new  program 
stores  and  edits  up  to  8  lines  of  information  such  as  name, 
address,  and  phone  numbers  or  messages,  inventories  or 
anything  you  want  11  has  the  usual  sort,  search,  and  print 
options,  but  It  also  has  an  unusual  lealure  II  your  tiles  in- 
clude phone  numbers  and  you  have  a  touch-lone  phone, 
the  program  will  DIAL  THE  PHONE  NUfVlBERS  FOR  YOU' 
This  is  perfect  tor  those  who  make  a  lot  ot  calls  like 
salesmen,  teens,  or  those  trying  lo  gel  through  to  busy 
numbers  (ads  as  an  aulo-redialer|  It  is  also  a  lot  ot  fun  lo 
use  Requires  16K  cassette  or  24K  disk  and  costs  J24.95 

FONETONE  -  for  those  who  only  want  to  store  name  and 
phone  numbers  and  have  Ihe  dialer  lealure  as  above,  we 
offer  this  reduced  version  Same  memory  requirements 
butonly  costs  S14.95.  Don't  forget  you  must  havea  touch- 
tone  phone 

PLAYER  PIANO  -  Turns  your  keyboard  inloa  mini-piano 
and  more.  Multiple  menu  options  provide  the  ability  to 
creale  your  own  songs,  save  or  load  data  files  using 
cassette  or  diskette.  Iix  or  change  any  ol  up  to  400  notes  in 
memory,  and  play  all  or  part  ot  a  song  The  screen  displays 
Ihe  keyboard  and  indicates  each  key  as  it  is  played  Irom  a 
data  tile  or  the  notes  you  type  You  don  t  have  to  be  a  musi- 
cian to  enjoy  this  educational  and  enterlaining  program 
Requires  24K  cassette  or  32K  disk  S14.95 

BOWLERS  DATABASE  -  Provides  Ihe  league  bowler  with 
Ihe  ability  lo  record  and  retrieve  bowling  scores  providing 
permanent  records  The  data  may  then  be  analyzed  by  the 
program  and  displayed  or  printed  in  summary  or  detail    ; 
lorm.  Data  may  be  stored  on  cassette  or  diskette  and  up-    1 
dated  quickly  and  ellicienlly  The  program  proivdes  such    : 
information  as  highest  and  lowest  scores  by  individual    j 
game    (lirsi,  second,  and  third  games  throughout  Ihe    1 
season!,  high  and  low  series  curreni  average,  and  more     ; 
The  program  listing  and  documentation  provided  are  a    j 
tutorial  on  ATARI  basic  and  record  keeeping  Requires  t6K    ; 
(or  cassette  or  24  K  lor  disk  $14.95 

By  the  lime  you  read  this  all  computers  (40D/B0OI  being  j 

produced  should  have  Ihe  labled  GTIA  chips  included  J 

ATARI  service  may  upgradeolder  computers  .callandask  ■ 

(It's  easy  lo  do  yoursell]    We  have  one  and  Ihe  im  ; 

provemenis  that  graphics  modes  9  10,  and  11  otter  are  j 

great"  To  help  you  ligure  oul  what  to  do  with  the  new  ; 
modes  a  new  Tricky  Tutorial  will  be  ottered  in  lilarch  on 
Modes  9  10  II   Either  give  us  a  call  or  write  around  that- 

time.  I 


3 
« 


3: 
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SEE  YOUR  LOCAL  DEALER 

OR 

ORDER  FROM: 


SANTA  CRUZ  EDUCATIONAL  SOFTWARE  2 

542S  Jigger  Dr. ,  Sequel,  CA  95073  3 

C.O.D,  Orders  call  (408)  476-4901  f 

'Include  S2.00  postage  (S.75  for  Memory  Map)  - 

*ln  California,  include  6.5%  tax  = 
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68  Ih-PLIT  #2..C$=WUT  #2.Qf^ItR!T  %2..1i-l 
bfUT  #2..L  =  n-fliT  #2.. LI 
65  CLOSE  #2^KI0  33.#2..9,.9.F-|-aFHP  48890^ 
GOTO  400 

70  CLOSE  #2  =  -^  "aftB^IDISK  ERROR  1"  ^  GOSLB 
5'>j  =  LuTu  R 

30  FOR  1=1  TO  26  =  X<!)=0ai(I>=V"^bCKT  I 
:PL=l:St;:=l=  RESTORE 
90  FCfi   1=1  TO  80  STEP   IQ^Til^d  >" 
"^G!*(I)="  "^t-EXT   I 

97  F£M 

98  REM  OPTION  SELECTION  MEm 

99  REM 

109  GFAF'H  I CS  17 :  SETCCLOF:  8 ..  3 . 1 6  ^  SETCOLOR 
4..  3. 2 

105  PiSITION  4.2  =  '-  #6^"CRYPT0-GRAri"^P0KE 
53279,  e 

110  F'OSITIO^]  3.5^?  m"t  tttttt" 
12'0  PCSITIOH  2.11^?  #6.:  "SKILL  LPJEL  -  ".; 
SK 

138  F'&SITIO^^  1..14^-?  #b.:  "#  OF  PLAYERS  -  " 

;PL 

140  FtJSITIOH  4,20^?  tfc..;  "PRESS  START"-?  # 

6' "  TO  EtGIH" 

150  GCSUB  990  ^R=PEEK(  53279  )aF  h=6  THEN 


160   IF  ft=5.  Tr€N  F1=PL+MF  Fl>2  THEN  Fl= 

1 

170  IF  H=3  THEN  SK.=SK+MF  SK>2  THBl  SK= 

1 

180  GOTO  120 

2-00  Gi'SUB  308 -ON  PL  UJTO  240.. 210 

207  F£M 

2'0S  REM  im  FtHi'ER  OPTION 

209  REM 

210  ?  "i2  DOI^INJ-   Em'ER  PHRASE  (29  TO  75  C 
HARftCTERSHDOWH)'^ 

220   IHFUT  P*=IF  LEK(P$K20  OR  L&KP$)>75 
l\£]-\  219 
230  'GOTO  25S 

237  R£M 

238  REM  m.   PLAYER  OPTION.  COMPUTER  PICK 
S  R-At-CiOM  PHRASE 

239  REM 

240  .>IHT(RfK0>l50)+l=FOR  1=1  TO  J^READ 

n--m<i  I 

247  F£M 

248  REM  ALPHABETIC  SUBSTITUTION  OJDE  GEN 
ERATED 

249  REM 

2-50  tGOSIJB  910^?  "Q  DOIM-       PLEASE  l-JAIT 

WILE  I  GENERATE" 

•260  ?  "-COtJWNJLTABJAN   1  UNBREAKABLE   i   COO 

E"=FOR  1=1  TO  26 

270  .>lHT':RHD(0)*26)+iaF  y(J)=l  THEM  27 

0 


280   IF  SK=1  Th€N  IF  1=1  OR  1=5  OF;  I='9  OR 
1=15  iJR  1=21  T^£N  T$(J...J::=At(LI) 

290  B$(I ..  I  ;=A$( .  J ;  J  >  ^  W.  J  )=  1  ■  NEXT   I 

297  Ffl1 

298  REM  CHARACTERS  IN  PHRASiE  SUBSTITUTED 
WITH  CODE  LETTERS 

29-9  REM 

360  L=LEN(P$)^FOR  1=1  TO  L  ^  J=0  ^  *=Pt(  L I 

:r-lF   I$="    "  THEN  360 

318  .>J+1  ■■  IF  .J>26  THEN  C$(  I  )=I$  =  Qt(  I  >lt- 

■■fJJlO  360 

320   IF  I$<>A$(J;J)  THEN  318 

340  C$(I)=Bt(J.J)  =  Q*(i:'="_" 

350   IF  SK=1  THEN   IF  .J=l  OR  J=5  OR  J=9  \Jk 

J=15  OR  J=21  THEN  &l(  I  >U 
368  \&J   I 
365  L1=L^IF  L<3S  THEN  408 

367  REM 

368  REM  FIRST  LINE  SPAililHG  MEASURED 

369  REM 

370  FOR  1=38  TO  18  STEP  -MF  CJ(M>=" 
"  im-\   L1=I=G0T0  488 

330  NEXT  I 

397  REM 

398  REM  MhIN  GAnE  BOARD  DISPLAYED 

399  REM 

480  GOSUB  910-pnsiTinH  2. .v.?  ''rn/LT" -RIP 

N=l    TO  26a$=A$(N.H) 
410  POSITION  3+INT(H-^5>:^6..3+H-INT(N.'5)5?-5 
^?  1$;"   «;Tf(N.N)^HEXT  H 
420  POSITION  1..9^?  CfCi.LD^IF  L>L1  THEN 

POSniON   i..i3^-^  C$(Ll4l> 
430  UMJB  950 
497  REM 

493  REM  PROMPTS  FOR  INPUT  OF  CODE  AND  LE 
TTER 
499  REM 

580  POSITION  3.20^?  "ENTER  CODE  LETTER^^  = 
?  "iDOWNIKTAB^         AND  UALUE" 
510  K=20-Gi?SUB  920 :  r-^A-b4 :  Lt$=CHRf(  A  > 
520  K=22: GOSUB  928'T$|'N:N-'=CHR$(  A'J-IF  A= 
32  THEN  T*(H..N>="_" 
530  POSITION  5+INT(H/5):?6.3+N-INTCN/5>*5 

540  FOR   1=1  TO  L^F  C*<  L  I)=D$  THEN  Q*(I 

.I;'=T$(H,N) 

550  NEXT   I 

560  GOSUB  958  aF  P$=m  THEN  7«8 

590  POSITION  £4;22-?  "  "^GOTO  518 

697  REM 

698  REM  V\mER  SCREEN  DISPLAYED 
£9^3  REM 

708  FOR  J=0  TO  14  STEP  2 ^GRAPHICS  18^ SET 
COLOR  4, J,. 2 ^POSITION  3.5 
710  ?  #6;  "tttttt  r  :?  ¥y> "       t     COR 
RECT     »;" :?  #6; "      %  *  t  t  t  t  t" 


WARLOCK'S 
REVENGE 


NEW  FROM 


S/nergistic 
Soffft^are 


AN  EXCITING  ATARI*  HIGH-RES  ADVENTURE  GAME 


SYNERGISTIC  SOFTWARE 

5221  120th  Ave.  S.E. 

Bellevue.  Washington  98006 

(206)226-3216 


Over  100  high  resolution  pictures  in  this 
two  disk  adventure,  guide  you  to  treasure  as 
we\]  as  dangers.  As  you  explore  caverns  and 
castles  you  use  your  various  skills  to  obtain 
the  riches  therein,  while  eluding  the  pitfalls 
and  creatures  that  abound.  You  provide  the 
Atari,  Warlock's  Revenge  provides  the 
challenge  Requires  n1  least  a  4(IK.  4011  SOO 
with  Atari  Basic  and  disk    $35.00 


Available  for  the  Apple  11  Computer 

as  Oldorf's  Revenge 
from  Highlands  Computer  Services 


ATARI*  400/800  are  trademarks  of 
Atari  Computers  Inc. 


RAM 

For  ATARI 
48K  RAM  BOARD  FOR  THE  400 

•  Increases  memory  capacity 

•  Reduces  power  consumption 
'    Reduces  heat 

48K  Board  (4oo)  $299 
32K  Board  (soo)  $150 

Intec 

Peripherals 
Corp 

3389  Del.  Rosa  Avenue 
San  Bernardino,  CA  92404 

(714)  864-5269 

ATARI,  400,  800  are  Trademarks  of  ATARI,  Inc, 


Software  for 
Personal  Computers 


A  CDllecfion  of  10  chailengfpg  programs  created  to  provfdp  a  vniqyp 
tntertoinmenr  value  —  and  7  persoool  buliness  progromi  with  broad 
functional   volue.    In   diik  ord  or   coisette  os  indicotcd. 


GAMES        •    HELICOPTER   BATTIE 

•  HORSE   RACING 

•  KENO 

•  LIGHTNING   BOLTS 
ond    REACTION 

•  THE  MAO  MARBLE 

•  MUSIGAMEISGomes) 

•  SUPERMASTEB 

•  TAG 

•  TRACTOR   BEAM 

•  WAR   AT  SEA 

BUSINESS   •   CCA   Dola 

Morogemenr    System 

•  LETTER   WRITER 


Req. 
Req. 
Req. 
Req. 
Req. 
Req. 
Req. 
Req-- 
Req-. 
Req.- 


Req, 
Req. 


-  I4K 

-  16K 
16K 

-  I«X 

-  BK 

-  lAK 

-  16K 
-24K 

-  8K 

■  I4K 
16IC 

-2JK 

-  8K 

-  t6K 
.  16K 

■  16IC 
.  EK 
■16K 

16K 
.24K 


RAM   Cossede 
BAM.  Disk 
SAM.CosieHe 
RAM'Dlil 
RAM  Cossetle 
RAM   Disk 
RAM  Coiielle 
RAM -Disk 
RAM  CosseHe 
RAM /Disk 
RAM'Cosselte 
RAM'Disli 
RAM  'Cpisolie 
RAM /Disk 
RAM/Cossstle 
RAM'Dtik 
RAMXossetfe 
RAM 'Disk 
RAM  'Coisenp 
RAM/Disk 


-  JBK   RAM'Diit 
-3<llt  RAM'Dlsi 

&  TMHemirh  et  UTARI.  Inc, 


%  9-95 
T4.95 

9-95 
14,95 

9.9! 
14.95 

9.95 
14.95 

9.95 
M.95 

9.95 
U.95 

9,95 
14.95 

9.95 
14.95 

9.95 
14.95 
14.95 
19.95 

99.95 
19.95 


DIVISION  OF  CUSTOM  ElECTRONICS,  INC, 

SOFTWARE 

23a   Ewchonge  St.,  Chicopee.  Massochyielts  D1013 

(iU)   592.4761 

Mostercnrd   &    VISA    Accepted 

•   Deoler  Anrf  Distributor  Inquiries  lnvit«d 

•  Closed  Mondoys  —  Open  Doily  'Til  5:30  —  Fridays  'Til  B 
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720  FOR  K=8  TO  259  STbP  iS^SOUHO  0..K.  10.. 

15:HEKT  K 

730  IjOSUB  ySS-bOSUB  959 

748  FOR  K=250  TO  8  STEP  -18  =  SOUND  S.K.-ie 

.IS^NEKT  K 

758  NEKT  J ^ SOUND  e..e.0.y 

760  G&dUB  y0y  =  GOSU9  958-?  "12  [QMrO  CThfi) 

FtHY  ft]RlH  (V/H)  "; 

Ft  AY  hGAIH  (Y/U)  "; 

765  GOSUB  970: IF  i$="Y"  thEn  88 

778  GOTO  aSQ 

798  REh  EUD  OF  GfiilE  (HO  I'HHHER)  OPTIO^IS 

799  REh 

S80  GGSUB  910:?  "{DOm>-LTAB}GPTIOHS  AF:E  = 
II 

810  ?  "iDOUNKTftBJS  -  SAUE  GAME"=?  "LUOU 
H}aftB}Q  -  iXilT":?  "-;OOUN>-LTHe;P  -  PLAY 

aijAIN" 

320  ?  "^BMOiTftE} SELECT  =>  ";  ^GOSUB  978 

=  IF   I^"S"  THEN  850 

830  IF  IJ="Q"  THEH  GOSUB  989= GOTO  380 

840  IF  If="P"  THEN  GOSUB  998  =  GOTO  88 

845  GOTO  888 

847  REM 


848  REM  GArE  IS  ShUE[ 


JISK^  Stii  LIST! 


nZ  2   FOR  TAPE  UEPSION 

849  REM 

S!=ifi  P=ft00  =  bOSUB  968  =  TRAP  78  =  0PEM  #2.. 8. 8.. 

pi  =  TRAP  48890 

870  ?  I2;P*  =  -'-  ii2;CI  =  ?  #2:Q*:''  #2;T$  =  v  #2 

:L  =  ?  #2;L1=CLQSE  1^2 

880  GRAPHICS  G-EHD 

897  REn 

898  REH  PRINT  CRVPTO-GRAH  TITLE 

899  REH 

900  GRAPHICS  0  =  SETCOlOR  1.3,.  18  =  SETC0L0R 
2. 3. 2= POKE  752.1 

910  ■"■  " -iXLEAR}  ■CDOUN} ':2  TAB}  {2  LEFT)  CRYPT 
INGRAM"  =  RETURN 

917  REh 

918  REh  CH^IRCTER  I^PUT  EDITING 

919  REh 

920  F-OSITIuN  2LK.  =  ?  "==>  -CLEFT)  ";=  GET  U 
..A 

325  IF  A=27  THB^  PuF'   =QDTO  ES0 

936  IF  H=32  AND  K=22  THB-^  946 

935   IF  A<b5  i'JF;  A>9e  THEN  926 

340  POSITION  2LK  =  ?  "       "; C^^:■t( A )  =  RETURN 

947  REM 

948  REM  PRIHT  ANSWER 

949  REM 

950  FtKITIOt'l  1.11=7  &|f.l.Li)  =  IF  L>L1  T^E 
H  POSITION  L15  =  ?  Q*<L1+1) 

955  KTURt^ 


957  REM 

958  REM  DISK  FILE  SA^JED  WITH  PERSCW5 
E  ( 3  Q¥iK  "> 

960  ?  HEmO  ENTER  3  LETTERS  CF  NAME  => 

";=IW^UT  N$=F$="D=CRYPTG." 
965  F*(10)=N$  =  RETURN 

967  Ftn 

968  REh  GET  fi-h  pKlNi   CHKHACitRS 
S£9  REM 

970  GET  #4.A=I$=CHR$(A)  =  ?  It  =  RETURN 

^<  i     Kci  t 

978  REM  LOOSER  OISPLAV  SCREEN 

979  REN 

980  '^'  "G  iJP;CiAB}iHh  ANSHlR  HAS  = '^  =  Oi;=P$ 
=  GOSUB  958  =  ?  "  (2  uni4N>  CTABJ  i    LOOK  HOW  EA 

OS       i  1       Wh-J       ! 

985  FOR   1=10  TO  258  =  SOUND  S.L  18.=  I.--28+2  = 
^C>=;T   I  =  SOUND  0.8. 8. 8  =  RETURN 

987  REM 

988  F:Eh  DELA'r'  LOOP 

959  REM 


990  FOR  1=1 


dU  *  H^/".  I  1  ■  Kh. :  L-KN 


997  REh 

998  REh  THE  STORED  PHRASES  FOLLOW.  hAKIh 
irt  OF  58  ALLOi-IED 

999  REM  EACH  MUST  BE  UWDhK  75  CHARACibRS 
LOt'JG 

1800  REh 

1010  DATA  A  STITCH  IN  TIME  SAUES  NINE 
1020  DATA  EARLY  "0  B£D_AMD  EARLY  TO  RISE 
MAKES  A  MAN  HEALTHY  ^iEAL'^HY  AND  UISE 
183S  DATA  THE  EARLY  BiKU  CAiCHES  THE  UOR 

h 

1048  DAlA  DO  IffiTO  OiHERS  AS  YOU  WOULD  HA 

IE  OTHERS  DO  U^{TO  YOJ 

1050  DATA  PLOP  PLOP  FIZZ  ¥li2  OH  i'lHAT  A 

RELIEF   IT  IS 

1860  DATA  A  LONG  TIME  Affi  IN  A  GALAXY  FA 

R  FAR  AwAY 

1070  DATA  mi   DID  THE  CHICKEN  CROSS  THE 

ROAD? 

1080  DATA  TO  BE  OR  NOT  TO  BE.    THAi    IS  TH 

E  GlUESTION 

1090  DATA  TBOU  SHALT  WOT  iJjUET  THv'  HEIGH 

BOFIS  WIFE 

1100  DATA  mi  THE  FORCE  Bt  i'lllH  YOU 

1110  DATA  BEGINNERS  ALL-PLiR^POSE  SYMBOLIC 

INSTRUCTION  CODE 
1120  DATA  WE  1\£  PEOPLE  OF  THE  UNITED  ST 
ATES  OF  Ar^RICA 

1138  DATA  DON'T  FIRE  bWIL  YOU  SEE  THE  W 
HITES  OF  THEIR  EYES 

1146  DATA  'I'OU  CAN  FOOL  SOME  OF  THE  PEOPL 
E  ALL  OF  THE  Tlf'lE 
1150  DATA  PROGRESS  IS  OUR  MOST  IhPORTA^^r 

PRODUCT 
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nee  DATA  ijr€  SmLL  STEh'  FOR  rlAN;   ONE  GI 

i^n   STEP  FOR  MAfiKIHO 

1170  DATA  EUER'-f   ^I'TIO^i  HAS  m  EQUAL  hND 

OPPOSITE  REACTION 

use  DATA   I  HAISE  NOT  YET  BEGUN  TO  FIGHT 

U9ti  DATA  FfrSTER  imi  A  BULLET;    MORE  ?"'M 

ER:FUL  im\\  A  SPEEDING  LOCOflOTIUE 

1200  DATA  mj  uftB  THAT  mhsi^:ed  nm 

1210  DATA  THEIRS  NOT  TO  REASON  mii   l\£l 

m  BUT  K  OR  DIE 

1220  DATA  TO  ERR  IS  HUrWL    TO  FORGIUE  DI 

UI^€ 

1230  DATA  A  LITTLE  LEARNING  IS  A  DANGERO 

US  THING 

1240  DATA  HE'D  FLY  THOUGH  THE  AIR  WITH 

TF£  GREATEST  fJF  EASE 

1250  DATA  LAUGH  Affi  THE  WORLD  LAtJGWS  WIT 

H  YOU;    CR-'i'  AhC  YOU  CRY  ALONE 

1260  DATA  t-ttR:RIED  IH  HASTE.;    HE  MAY  REPEN 

T  AT  LEISURE 

1270  DATA  0  CAPTAIN!    \1i  CAPTAIN!   ilJR;  FEA 

RFLL  TRIP   IS  DOt€ 

12S0  DATA  THESE  ARE  THE  TINES  THAT  TR"f  M 

EN'S  SOULS 

1290  DATA  TIGER!   TIGER!   BURNING  BR:IGHT  I 

N  1\£  FORESTS  iDF  THE  NIGHT 

1300  DATA  TALL  Of*::S  FROM  LITTLE  ACCtRlHS  G 

R-OW 

1310  DATA   I  THINK  THAT    I  SHALL  rtUER  SEE 

A  P0EM_LUUELY  AS  A  TREE 
1320  DAiA  FOR  FOOLS  kUSH  IN  wHERl  ANl,lLS 

FEAR  TO  TREAD 
1330  DATA  WHEhi   IN  RuHE  DO  AS  THE  ROMANS 

m 

1340  DATA  FRIE^CS  ROf-^NS  COUNTRYMEN  LEND 

^E  •■i'm  EARS 
1350  UHTh  from  THE  HALLS  OF  MOHTEZUMh  TO 

T^€  SHiJRES  Lf  TRIPOLI 
1360  DATA   IN  FOURTEEN  RiJHDREO  NINETY  TWO 

COLUMBUS  SAILED  THE  OCEAN  BLUE 
1370  DATA  MARY  hfiD  A  LITTLE  LAMB   ITS  FLE 
ECE  AS  WHITE  AS  SHOW 
13S0  DATA   I  SHOT  AH  ARROW  INTO  THE  AIR; 
IT  FELL  TO  EARTH  I  K^eJ  NOT  WHER'E 
1390  DATA   IF  AT  FIRST  YOU  DON'T  SLCCEED 
TRY  TRY  AGAIN 

1400  DATA  HE  THAT  FIGHTS  AND  RUriS  AWAY  M 
AY  TURN  AND  FIGHT  ANOTHER  DAY 
1410  DATA   IT  TAKES  A  HEAP  OF  LIUING   IN  A 

HOUSE  TO  MAKE  IT  HOME 
1420  DATA  OH  WHAT  FUN  IT  IS  TO  RIDE   IN  A 

!Jt€  HOP-SE  OPEN  SLEIGH 
1430  DATA  IT  WAS  A  Ot€-EYED  Oh£-HORNED  F 
LYING  PUR:PLE  PEOPLE  EATEF' 
1440  DATA   I. CAN'T  BELIEUE  I  ATE  T^€  MHiJL 
E  THING 


1450  DATA  SAY  Tl€  SECRET  l-JORD  tt-S  WIN  A 

HUNDRED  DOLLARS 

1460  DATA  DAMN  THE  TORPEDOES j    FULL  SPEED 

WEAD 

1470  DATA  Tl'JAS  THE  NIG'HT  EEFGRE  CHF;ISTm 
S  AtCi  ALL  THR:OUGH  THE  HOUSE 
1480  DATA  HEY  MISTER  TAMBOURINE  MAN  PLAY 

A  SONb  hOH  ME 

1490  DATA  EUER'y'THING  THAT  GOES  UF'  MUST  C 
rj-E  DOUN 
1500  DATA  HICKORY  OICKDRY  DOCK  THE  MOUSE 

RAN  LP   iHE  CLOCK 

Program  2. 

15  REM  FOR  TAPE  VERSION,  USE  THESE 
LINES  INSTEAD 

16  REM  YOU  MAY  ALSO  DELETE  LINES 
960-965 

17  REM 

50  TRAP  70: OPEN  #2, 4, 0, "C: " : INPUT 

#2,P* 
65  CLOSE  #2: TRAP  40000: GOTO  400 
70  CLOSE  #2;?  "CBltape  error ":GOSUB 

990: GOTO  R 
B50  R=800 : TRAP  70 : OPEN  #2 , 8 . O , " C : " : 
TRAP  40000  Q 

educational  software  for  the  ATARI'  educational  software  for  the  APPLE  s 


HIDDEN  WORDS 


A  word-search  program  for  the  ATARI*. 
Move  your  character  over  the  letters 
that  spel  I  your  word  Words  m  ay  be  read 
from  left  right,  up,  down,  or  diagonally. 

•  For  one  or  two  players 

•  Four  levels  of  piay 

•  Comes  with  word  base  of  the  most 
frequently  misspelled  words. 

•  Requires  JOYSTICKS 

24K  BASIC.  Grades  1-8+  .. .  917.50 


SPATIAL  RELATIONS 

For  the  ATARI* 


5  ^ 

3  [Jesigned  to  help  the  child  learn  words 

■i  that  indicate  size  and  placement  Units 

.  cover:   big/small,   tall/short   right/left, 

+  high/low.  over/under,  in/ouL  Requires 

m  one  joystick.  Minimal  reading.  SIDE 

g  TWO  REQUIRES  MO  READIMG  ■  Use 

$  with  Type-'N-Talk"  speech  synthesizer. 

«  1 5K  BASIC.  Preschool- 1  ....   $17.50 

I  Type-rf-Talk"***    speech  synthesizer  (VOTRAX).   f 

I  Let  your  computer  talk  with  one  of  the  easiest  to  use  speech  ^ 

t  synthesiiers  on  the  market  p 

S  rri 

Requires  RS-232  interface S375.00  - 

s 


v»  H.  E.  S.  L  S* 


P.O.  Box  147  •  Garden  Qty,  MI  48135 
or  call  (313)  595-4722  for  CO.D. 

Some  T.H.E.S.I.S.  software  Is  now  available  for  the  APPLE  Il-H 

DEALER  IMQUiRIES  WELCOME  g 

Picas?  add:  SI.50  shipping.'handling.  51.50  for  COD,.  Mkh.  res.  add  «%  istes  lax        S 

£  WRITE  FOR  FREE  CALALOQ  S 

^     •ATARIist:ademarkof.^Ian,lnc'"APPLEistrfldem.]rko(AppleComputer.lnc  "'Type  N  Talk  is    3 
Q     tiadpmaik  dl  Votrax.  .^ 

■*-  O 

aiEM^OG  [euojieanpa  ..-m  giddV  aifl  JOJ  ixmuos  gEuojieanps  JHVIV  "o'' 
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SuperFont 

Charles  Brannon 
Editorial  Assistant 


The  ability  to  redefine  the  character  set  is  one  of 
the  niore  useful  features  of  tiie  Atari.  In  a  previous 
article,  "Character  Generation  on  the  Atari,"  (COM- 
PUTE! #9)  I  explained  the  principles  and  techniques 
of  customizing  the  character  set.  Basically,  it  in- 
volves the  plotting  of  a  character  on  an  eight  by 
eight  matrix  and  then  converting  each  row  into  a 
binary  ninnher. 

Tills  process,  however,  is  slow  and  tediotis  for 
the  programmer.  Fortunately,  it  is  an  obvious 
candidate  for  coniputerizatitjn.  The  computer 
could  displa)  a  grid,  let  you  set  and  clear  points  on 
it,  and  then  do  the  binary-to-decimal  conversion 
for  you.  It  could  also  let  you  save  and  load  com- 
pleted/«///.v  {character  sets)  from  tape  or  disk. 

Although  SuperFont  may  lack  some  of  the 
features  of  connnercial  products,  it  is  quite  powerful 
and  versatile.  SuperFont  is  written  in  BASIC,  but 
what  makes  it  special  is  that  it  has  several  machine 
language  subroutines  as  well.  One  of  these  (thanks 
to  DLI)  enal)les  the  redefined  character  set  to  be 
displayed  on  the  screen  at  the  same  time  as  the 
regular  one.  This  permits  you  to  see  the  effects  of 
your  changes  without  letting  the  command  menu 
or  prompts  tuiti  into  starships. 

SuperFont  uses  player/missile  graphics  for  fast 
updates  and  a  colorful  grid.  Since  the  special  char- 
acter window  is  set  off  in  a  different  color  than  the 
rest  of  the  screen  {again  via  DLI's),  you  get  eight 
dil  tereiU  colors  to  delight  the  eye.  The  human 
interface  is  enhanced  with  the  use  of  a  joystick  to 
plot  points  in  the  eight  by  eight  grid. 

SuperFont  has  18  commands: 

E:Edit  R:Restore 

F:Copy  From  X:Switch 

T:CopyTo  C:Clear 

0:Overlay  I:Invert 

S:Save  Font  L:Load  Font 

iDelete  :  Insert 

rScroll  Left  :Scroll  Right 

WiWrite  Data  Q:Quit 

:Reverse  G:Graphics 

This  menu  is  displayed  on  the  screen  along  with 
a  "checkerboard"  plotting  grid,  the  128  characters 
of  the  character  set,  and  the  128  characters  of  the 
alternate  character  set.  Some  commands  ret]uire 
you  to  select  a  character.  A  cursor  will  be  placed  on 
each  of  the  character  sets.  You  can  move  the  cursors 
around  the  sets  simultaneouslv.  When  the  cursor  is 


on  the  desired  character,  press  the  fire  button  to  in- 
dicate it.  An  explanation  of  each  command  follows: 

Edit:  The  basic  editing  command.  Fhe  selected 
character  is  copied  into  the  grid  and  a  flashing 
cursor  is  homed  into  the  grid.  You  move  the 
cursor  with  the  joystick.  Pressing  fire  will  set  a 
point  (if  a  point  is  clear)  or  reset  (clear)  a  point 
(if  a  point  is  already  set).  You  can  draw  lines  by 
holding  down  the  button  while  moving  the  joy- 
stick. Any  changes  are  innnecliately  visible  in 
the  character  set  and  the  chaiacter  displayed  in 
GRAPHICS  mode  one  and  two  lines  at  the  bot- 
tom of  the  screen.  To  completely  redesign  a 
character,  use  the  Cleai'  command,  and  then 
design  the  character  from  scratch. 

Restun':  'Fhis  command  will  "fix"  a  character  by 
copying  the  original  bit  pattern  into  it.  Very 
usefid  if  you  have  mangled  a  character  or 
changed  the  wrong  one. 

Copy  Frotn:  You  select  a  character  which  is 
copied  into  the  current  character.  The  grid  is 
updated,  and  you  can  further  edit  the  charac- 
ter. 

Copy  To:  The  ctnrent  character  is  copied  to  (re- 
places) the  indicated  character. 
Switch:   Exchanges  the  ctnrent  character's  f^it 
pattern  with  the  selected  character. 

Overlay:  Fhe  selected  character  is  overlaid  up- 
on the  current  character.  Fhis  lets  you  combine 
two  characters  to  form  a  new  one. 

Clear:   (Clears  out  the  current  character.  For 
creating  uni(|ue  characters. 
Invert:  Turns  the  curreiu  character  "upside 
down."  For  example  a  re-deflned  M  coidd  be 
inverted  and  copied  to  the  W. 
Save  Font:  Saves  the  alternate  character  set  in 
compact  form  with  a  machine-language  rou- 
tine.  Answer  "Filename?"  with  either  C:   or 
D:filespec.  If  you  see  an  error  message,  press  a 
key  to  return  to  the  menu. 
Load  Foul:   Retrieves  a  character  set  from  tape 
or  disk.  Answer  the  "Filename"  prompt  as  you 
did  in  Save  Font. 

Cursor-up  or  SHIFT-DELETE:  Similar  to  Delete 
Line  in  BASIC;.  The  line  of  dots  the  cursor 
rests  on  is  deleted;  the  foilouitig  lines  are 
pulled  up  to  fill  the  gap. 
Cursor-dowa  or  SHIFT-INSERT:   Similar  to 
Insert  Line  in  BASIC.  A  blank  line  is  inserted 
at  the  cinsor  position.  Fhe  bottom  line  is  lost. 
Scroll  left:  'Fhe  bit  pattern  of  the  character  is 
shifted  to  the  left. 
Scroll  right:  The  bit  pattern  of  the  character  is 


ATARI^"  WO/B,00* 
SOFTWARE 

AT  LAST!     A  NEW  GAME 
(or   your   ATARI   computer!! 

Here  is  a  game  unlike  any 
you  haue  played  before. 

Requires  a  good  memory  for 
detail.  Rewards  strategy. 

STACK  ATTACK!! 

For  details  write: 

CDtOR  COMPUTER  CDNCE:PTS 
1275  Terry  Driue, 
Idaho  Falls,  ID  BiAOl 


Order  a  copy  for  $14.95. 
Specify  Disk  or  Cassette. 

32K      16K 
•Trademark  of  ATARI,  INC. 


ATARI 

"QUALITY  DESIGN 
Wllh  THE  USER  IN  MIND" 

DRUG  BUST     Exciting  new  game  that 
puis  you  in  ff^e  midst  of  drug  trafficl<ing- 
Buy  at  rock  bottom  prices  and  resell  for 
enojmous  profits.  But  don'f  get  caught 
holding!  One  or  two  players.  Requires  16K 

Cassette    $19.95 

Diskette  $24.95 

DIRECTORY  -  Load  this  user  friendly 
program  and  you  can  view  diskette 
contents,  select  and  run  programs. 
(VIenu  selection  approach  as  found  in 
many  larger  computers.  Program  is 
transferroble  to  anv  diskette.  Requires  3K. 
Diskette  only  $18.95 

ROLL-EM     System  generated  dice  roll. 
Excellent  graphics  for  use  in  any  game 
of  chance  requiring  dice.  Included  as  a 
bonus  when  both  above  programs  ore 
ordered-  fJequires  6K. 

Cassette   $7.95 

Diskette  $11.95 

Catalog  included  in  all  above  orders 
For  catalog  only  send  SlOO  to  cover 
postage  and  handling  to 

l^^   Esplanade  Enterprises 

U^    2042-312  Peach  Orchard  Drive 

^^    Falls  Church,  VA  220^3 

Add  5%  Virginia  sales  tax.  Sorry,  no 
C.O.D.  orders  please. 


The  aliens  have  swept  undefeated  across  the  galaxy. 
You  are  an  enterprising  star  ship  captain  —  the  final 
defender  of  space. 

As  the  aliens  attack,  you  launch  a  deadly  barrage  of 
missiles.  Flankers  swoop  down  on  your  position. 
Maneuvering  to  avoid  the  counterattack,  you 
disintegrate  their  ships  with  your  magnetic  repellers. 

As  your  skill  improves,  the  attackers  increase  their 
speed.  And  as  a  last  resort,  the  aliens  use  their 
invisible  ray  to  slow  the  speed  of  your  missile 

launcher. 

GALACTIC  CHASE  provides  Atari  owners  with  the 
most  challenging  one  or  two  person  game  in  the 
galaxy, 

A^ 

ATARI 

Atari  400/800  \bk.  Wrrtlen  in  machine  language.  Requires,  joysticks. 

PayfTienl:  Personal  Checks — allow  three  weeks  to  clear. 

American  Express,  Visa,  &  Master  Charge— include  all  numbers  an  card.  Please  include  phone 
number  with  all  orders.  24.93  for  cassette  or  2S.95  for  disk  plus  2.00  shipping.  Michigan 
re^ider^l^  add  A%. 

Check  the  dealer  in  your  tocal  galaify.  Dealer  inquiries  encouraged. 

Galactic  Chase  ©  1981  Stedek  Software. 
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shifted  to  the  right. 

Write  Data:   The  internal  code  (0-127)  of  the 
current  character  is  printed  in  reverse-field 
followed  by  the  eight  bytes  (in  decimal)  of  the 
character.  If  you  want  a  printout  of  the  entire 
character  set,  use  the  auxiliary  program 
CH PRINT  (Program  3).  Pressing  any  menu 
selection  key  will  erase  the  nine  bytes. 

Graphics:  Toggles  the  TEXT/GRAPHICS 
option  ol  the  GRAPHICS  mode  one  and  two 
lines  to  let  you  see  each  half  of  the  character  set. 

Reverse:  Puts  the  character  in  reverse  field:  all 
dots  become  blanks,  and  ail  blanks  become 
dots.  Reverse  field  versions  of  the  characters 
are  not  normally  stored  in  the  character  set, 
but  you  may  want  this  for  special  graphics, 
such  as  reverse-field  text  in  CjRAPHIGS  modes 
one  or  two. 

Quit:  Exits  program. 

The  commands  offer  flexibility  in  working  with 
character  sets,  but  there  may  be  other  functions 
you  may  want  to  add.  The  program  is  modular  in 
structure;  just  follow  the  branching  IF  statements 
after  line  790  to  1370  and  replace  the  520  (IF  K<> 
ASCC'G")  then  520)  with  a  link  to  your  additional 
command(s).  Vou  may  also  want  to  change  the 
colors.  Besides  the  SE  TCOLOR  statements  in  line 
170,  change  the  zero  in  hue  300  (POKE  1538.0)  to 
COLOR  (0-15)*16-I-LUMINANCE  (0-14).  Sim- 
ilarly, you  can  play  with  the  player/missile  colors  in 
line  3(>0. 

It  is  also  possible  to  use  the  character  set  data 
on  tape  or  disk  directly.  It  is  written  as  a  series  of 
1024  bytes:  the  bytes  of  the  character  set  —  no 
more,  no  less.  I  have  incltided  two  extra  utility 
programs  which  access  the  character  data.  Program 
2  simpiv  loads  the  set  into  memory  and  changes 
CHBASE  (756)  to  point  to  it.  Program  3  produces 
a  formatted  hex  or  decimal  dump  of  the  character 
set.  Both  programs  should  have  the  "filespec" 
changed  to  the  filename  of  your  character  set. 

The  code  of  the  main  program  is  fairly  stiaighl 
forward.  It  uses  several  machine  language  subrou- 
dnes:  (1)  A  Display  List  Interrupt  handler  to  main- 
tain the  special  character  window.  (2)  Copies  the 
ROM  character  table  into  the  RAM  CHSF/F  table 
(a%oids  the  15  second  delay  in  BASIC).  (3)  A  LOGIC 
subroutine  that  permits  AND,  OR,  EOR  (and  any 
other  6502  ftuiction  such  as  ROR)  to  be  used  on  a 
binary  level  (see  also  "Make  Your  Atari  a  Bit  Wiser," 
COMPUTE!  #12,  p.  74).  (4)  Imi^lemenls  a  fasl  ma- 
chine language  memory  save  thanks  lo  the  lOtlB 
PU  LRI-X;  and  C;E  I  RFC  commands. 

You  can  do  a  lot  with  tliis  capability:  custom 
fonts  (Greek,  "Computeristic."  script),  graphics 


characters  (special  line  drawing  characters,  space- 
ships, "invaders,"  bombs,  lanks,  planes,  ships,  even 
little  pcoplel  (IN  FRLDER  ALERT!  IN  IRUDER 
ALER  ri)  SuperEoni  makes  )()ur  task  easier, 
even  fini! 


Program  1. 

im  REM   1     tU    Superfont  :?:$:^  i 

110  REfi   1    ii--i8/9i  Cf-.dri&E  Bramon   1 

13y  REM 

149  Dlrl  K7)..FN-f(14^.H*(3  ■ 

150  IF  PEEK(153S>=y  THEH  GOSUB  1455 
IbS  GRhPHICS  0:POkE  752:1  _ 

178  SETCuLuk  2.-7.2:SETC01.0h  4-f-;£ 

188  DL=PEE-:'(568Hv5g;:-PEEkX5bl  ^4 

190  SD='-'EEK(  S8''+25€'i:'PEEK(  8?  ■5+13t-4S  ■  ASD=9 

O+5;V40 

200  Ai=lb3S-rUHC=163i  ■M2=li?J2 -101110=1620 

210  RHi1=rEEK(  10b  )-S ■■  PnBriOE=R^h?25i 

vvM  ^.. HK"Jr-I'.;~j :'  i<4'^ 

230  POKE  553 .■46 -POKE  54273.  Rnfl 

24y  PUKt,    ^i3277.' •'■■  PU''''.i.   Oiii'tt.' -i 

250  CHSET=:(  RAii-S  )^:25b 

250  POKE  DL+23-.£-P0KE  Dl+i4-.7 

270  POKE  DL+13-i30 

280  h'UKE  512,- 0- POKE  51  f -6 

290  POKE  54286..  192 

300  POKE   1549^Rm-8^pnKE  1538.  S 

310  H=USP''' I'TO,' CH8i:T  -■ 

320  P0=PnBH8E+5l2+23  ^  Fn=PflBHSE^S40+2e :  P2 

=Pf1BHSE+7fc8*20^  P=PrBASi-^89f-20j_  i  =& 

330  FOR    I=y    1  i-i    I'-rUK    J=0    iU   3 ■  i -4Li-J- i  -  rU 
KE  P0+It4+j.:0^K:KE_Pl-*-I|4i-J^T:T=255"^  _ 

340  POKh  P2+r*-4*.    '  -NEKi    -^   i=2t--;    t€;i\ 


350  POKE  53248 -64  ■ 

50  ..64 

360   pL^-'E   ?y4.-  Irv-H 


'./^    ^t  ':'-':iQ  ,  hi  ■  -'fiK!^ 


.A7y  POKh  532j6    :-POKE  5325? ..  "^^POKt 
.3:P0KE  623; 1 

}  '  '.C=>"=HEKT   L?  "   {Z>OS  h"KC 

390  POKE  82.44 -POSITIDH  14:1 
400  ?  'ME!   Edit  iR!   Rs^tore'^ 

410  ?  "IFl   Copy  F>-QtVi       IKi   Syitch'' 
420  '':   "ITi   Copy  To  ICl   Cl&^r" 


n-ih: 


■1    ■.•■ 


I  U  I      U'v'iir 


L  n'v'9'' 


440  ?  'MSi    Si'v^e  Font 

450  ?  " 0E8C J- ODEL  LINE;   Delete  ihSC} 

■LlHS  LINE)   Insert^ 

460  ?  "iEBOCCLR   iftB}   Scroll   Lett    CESCH 

SET  ThB>   :: 


ill  CDQUH>04  LEFi>Ki5ht" 
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480  ?  ■■  iDOl'IN}  I  CF>  {=>  LG:?!    feuerse        IGI 

430  FOR   1=0  TO  3- FOR  J=S  TO  3i-PuKE  FS- 

+lJ|:49+4,  it32-t-.J  ■■  POKE  ASD+.  l+I*4Pi+4 .  I*:^2+. 

^EKT_J^HEKT  I 

50S  i-'OKr  82..  2-POSI  i  ION  y.^@ 

5iU  GPEH  WdA.'%:"K- ' 

520  r=PEEK(764;i=IF  P=255  THEt 

530   IF  r=b@  THtil  550 

548  IF  P=39  THE;-  POKE  ?o4.  IbS 

556  GET  it2.4( 


■v=;=;   TUi:!-.i   qo^ 


5fc8    IF  KOftSC(  "b.'' 


5S0  FDR  I  =0  10  r :  A=r !:.hK(  CHSt^ ■*-C¥:S+ 1  >  ^ FOR 
J=0  T0^3  =  POKE  f^'0+I*4*J.-K:NE>-T   J-HExT  I 

590  POKh  ASD+lh5;C:pOKE  A9D+190..  C 

600  .JK=0  ■  JY=0 

610  POSITION  -KH:  Jt+1 

620  •^_CHKt(32+12&-?F!^>r={LLFT>'\:  :FF=i-FF 

6j0  Ih  S!RIG'^0~0   iHEN  756 


N   ':'■    ''    '';  -liUi  U  52 


640  IF  PEEK(  764X255  THFi 

0 

650  ST=S"ICKX0)aF  ST=15  THEN  620 
660   IF  STRIGCO/   iHEN  hOP  I=y  TO  lOO  STEP 
20 -50UND  0.-100-1, 10.3: NExT    I 
670  P0SITIuN_.jy+4.JY+l:?  "   ''' , 
638  JK=JX+CSl=7MST=ll) 
690  Ji=JY+(ST=13Vc';T=14':^ 
700   IF  JK<g  THEN  .JX=7 


710  IF  j:o7  then  .JX=0 

720  IF  JV<0  THEN  .JY=7 

730   IF  JV>7  THEf  -■  - 
740  GOTO  610 


r"4ti  bLuu  biy 

750  POKE  A!;PEEK''CH'"ET+r-'--H+.  It '-POK"  62-2 

K7-JMXP0KE_FUMC..  73  A-l■SP^  lOGICj 

760  PuKh  CHSbT+Ctc+JY.rA-l-uP   J=0  Tn  i;pnK 

E  P0+JYM+J.-fi:NE:-'T  .J 

770   FOR    1  =  1    TO   10:2O'JNn   i?,  T-M,9,::::t.JF;r^T    T 

-BOUMD  0..  0.-0  6 

780  GOTO  650 

790   IF  K-OA9C( -'F'^ )  "^HEN  ^^ 

800  ?=C-GOSliB  1750 

810  FOR   1=8  TO  7:A=PEEK(CH'::ET-C^i3+-I  >:P0K 

E  CH8h!+S*S+I .A^HEMT  I 

y20  L~i'  ■  L:UTL'  Dyy 

830   IF  KOhSCCT";  THEN  370 

840  S=0-G09UB   1750 

850  FOR  1=8  TO  7^A=PEEK^'CHsFT^s*p+n:pnK 

E  CH£ET-*-C*S+LA^HEVT  I 

860  C-o^GuTO  600 

870   IF  KOASCCO")  THEN  928 

830  S=C-Gu3UB  1756 

390_FOR   !=e  TO  7  ^  POKE  Al ;  PEEK<  CHSETK*8+ 

I )  =  FUKc  h2..  PEEK<  CH3tT+S:';S-*- 1 )  ■  POKE  P  W.  ■■  9 

^A=USR(  LOGIC) 


980  P0KE_CHSET+S:s8+LA^NEXT   I 
910  C=:5  =  gOTO  j39 

M"  -**iO         T  C       [X  /   "■.  A i~- :~- ,-■    i  i  Ti  i i    \      T iJ :     b  i       O  A  i"Jr 
,-cu    ir    r'-.\ /^ho*--'-.    r-.    /    tri-™;->    ir^v 

930  FOR  1=0  Tu_?j_POKE  CHSET+K8+ L- PEEK(  C 

l-KORu+C*S+ 1 )  ■  rfc.K !    !  ■■  bO  i  0  o90 

940   IF_K<>ASC(-'C")  THEM  968 

950  FOK   1=9  TO  7: POKE  CH9Ei-^C:?:S+L8-NFXT 

I: GOTO  590 
960   IF  K<>ASC<"{R}')  THEH_980 
970  FOR  1=8   lO  f-'-HOKE  CH9L!+C^StI,2jj-pE 
£k(CHSET+C:v;9*I  XiExT   I  =  GOTO  550 
980   IF  KOASCC'ft'';  THEN   1018 
990  S=C;GOSUB  1758 

1008  FOP  1=8  TO  7:A=PEEi^A  CH9ET+St3+I;-P0 
KE  CH9ET+9*S-LPEE^'XCH9ET^-C-9-*-l  ;-P0KE  CH 
SET-*-C:r9*I.:A-HE;^T   I : GOTO  538 
1010  IF  K<)A9C^^^^^)  THEH   1838 
1020  FOR   1=0  TO  ?a(I>=^'EEKXCH9ET+C:?8+I> 

'^EyT     I^FOR     1=8    T-"i    -:&-;>-^C    r^C:£r^-..q+r  ,  t^ 


■^.-Z-'.-\     ■■■.■.■C-. 


1030    IF  K-;'.  ,-h91a  "  lU^-'J- '■  /  SNU 
Lii^C'      .'    ific;-;    2.t'j'~ 

1040  FOR   I=jY  TO  6 -POKE  Ch9ET+C^'8+I.-PEEk 

(CHSET-!-r*9i- 1  +  1): NEXT   I -POKE  0K9ET+C:¥:3+7/ 

6  =  GOTO  580 

1050   IF  K<>ASC('^0pQl'irO")  AHO  kOASC('^{Ih 

9  LiriEj'''J    iHhN    le;'y 

1060  FOR  1=7  TO  Ji  STEP  -i^POKE  CH9ET+C* 

S+L PEEKvCH9ET+Cs9+I-l);t€YT   I : POKE  CHSE 

t  +L'*c'*-J'i' .'  0  ■  'jU  I U   Db'y 

1070  IF  K<)ASC<  HLEFTT ^= )  THEN  llaO 

1030  hOR  1=8  TO  7- A=PEEK'i'CH9E'^-*-^YP+I '^^'^^ 

IF  A>255  THEN  A=A-25b 

1090  POKb  CHSET40:|:9+I.h:!&:T  I  ^ GOTO  538 

1100  IF_K<>ASC:; '■  {RIGHT) '^)  THEN  1130 

1110  FOK  1=8  iO  .■■:A=P'n=.K' CH9E;  tC?;3-^I  )/2 

1120  POKE  CH9ET+CYS+LA:NEYT  I -GOTO  598 

1130  IF  K< >ASCt  "Q" .'  THEN  1156 

1140  POKE  -32*9.. 0  =  POKE  53249.-0: POKE  5325 

0..0:pOKE  53277.'6:GRA^''-*!09  O^END 

U50  IF  k:<>a3C^:'^sm  then' 1210" 

1160  G09Ub  1610:  POKE  195.-0 

1170  TRAP  li90^OPE^^"#r9-0.^fi:f 

1 180  H=U9R(  1599.  Ch9ET ) 

1190  CLOSE  ^^l^T^Ai^-  4080i:i-T-  pp-ki-' iQ=;--i  -^ 

EN  1260  _  _ 

1280  POKt  ■:428b-.  192:  GOTO  598 

1210  IF  KOASCCL")  THEN  1298 

1220  GOSUE  iblO^PGKE  195,0 

1230  TRAP  1250MJPEN  #i;4.0.,FNi 

1240  H=USR(  1619.CHSET> 

1250  CLOSE  tl^TRAP  48800:  IF  PEEK':"  195':' =8 

THEN  1280 

1260  POSITION  14. 0:-^-  "iBElL":-t  ERROR  -";p 

EEKa95).:"  r 

1270  IF  PEEKf; 764X255  THEN  POSITION  14,8 
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=?  "  "^GOTO  1200 

iZSS  GOTO  1270 

1290  IF  K:<>ASC<"U'^)  then  1370 

1300  POSITIOH  2.18^N*="   " = L=LEN( STRf ( C 

>  > : H*( 1 . L  )=STR$( C )  ^  L=LEH( HI ) 

1310  FOR  1=1  lO  L:?  CHk*(rSC<H$(I,:  I))+i£ 

S)j:b£KT  ]:?  ">^ 

1320  FOR_I=0  TO  2: FOR  J=0  TO  l+(I>e):A=P 

tEKC  CHSE  i  +C:a;3+ J+ 1$3 ) 

1330  SOUND  0A  I*3+.J)+1O+50.T  10j9 

1340  PRINT  R;%";:N£--U  J^?  "CBhCK  S}''=r£ 

l^T   I^SOUNu  3. 0.0.0 

1350   IF  F'EE'(( ?b4 >=2j;:>    \\±a'   1350 
1360  POSITIOH  2.1S=F0R  1=1  TO  3^?  " 

■'^NEXT  rGOTO  520  _ 
1370   IF  KOhSCC^G'')  THhN  ::^20 
1380  CF=1-CF:PU!<E   i549.RHn-S+2S'CF 
1330  GOTO  520 

1400  GRAPHICS  2+lb-St^CULUR  -^:b4-P0SlTI 
DM  5.3  =  ?  *b ;  "SUPER] FONT i" 
1410  POSITIOH  4.5:'^  #6;"FitienceG  H>"^P 
CSITIOH  2..7  =  ?  #6; 'Mchdr'ies  brannoru" 
1420  FOR  I=153b  TO  lSi9=REAC  A^POKE  Lft= 
POKE  705. H  =  SOUND  0..A..  10.-4:NE;u    I 
1430  SOUND  0.0..  0.0:  RETURN 
1440  DATA  72. 169. 103.=  141.10.210 
1450  UhTh   141. 24. 20S. 141.26.208 
1460  DATA   169.6.141.9.212.104 
147y  DATA  64. 104. 104. 1.i3. 204. 104 
1 400  DATA   1 33 ..  203 . 1 69 . 8 . 1 33 .  2G5 
1490  DATA   169.224.133.206.162.4 
1 500  DATA   1 60 .  y .  1 77 .  205 . 1 45 .  203 
1510  DATA  200..  208 .■  249. 23S.  204. 21^0 
1520  DATA  206 ,■  202.299.240  96.104 
1530  DATA   162.16.169.9.15"^  SS 

1550  DATA   157. 6S. 3. 169.0. 157 

1560  DATA  ^2..3  169.4  15"^.  73 

1570  DATh  3.32 •b6. 229 -96. 104 

15S3  DATA   162.16.169.5.76.59 

1590  DATA  6.9- 10^. 165.0.9:0. 133 

1600  DATA  212. 165. S- 133.213.96 

1610  POSITION  14.0:?  "Filenan-:e?"; 

1620  FH$="":K=0 

1636  POKE  20.0 

1640    IF  PEEK(764K255  AhD_I='EEK( 764 )<>39 

AHO  PEEK(764><>6a   iHEH   16^0 

1650   li-  PEEK(20K10  THEN   1640 

1660_-^-  CHR*( 21+1  l:?;K);" (LEFT}":  :K=1-K  =  G0T 

0  1630 

1670  GET  #2.  A 

1689   IF  H=155  THEN  ?  "  ^;  ^FOR   1=1  TO  LEH 

( FNf  >+ 16 :  ?  ''  {BACK  S}  '= .-  hSXT   I  ■■  RETURN 

1590   IF  A=126  AND  LEH(FN$»1  THEN  t-Hf=FK 

l(  1 .  LENC  FHJ  )"1 ) :  -^^  "   (LErTT '  :■  ChR$(  A );  ^  GO ■ 

0  1630 


1695   IF_R=126  ArlU  LEN<hHI'=l    I  HEN  '^  CHRt 

<A);  ^uOiO  1620 

1700   IF  A=58_0R  (A>=48  AND  h<=57)  OR  (A> 

=65  AhU  H<=90>  OR  H=46  THEN   1720 

1710  GOTO  1630 

1720   Ir  LEH(r-4-i*X14  THEN  FN*^;  LE:K-H*)+1) 

=CHR$<H>:?  ChR$(A''^.; 

1730  GOTO   1630 

■'"^'•iM      C-'""' 

i  1'  -_'b    7'z.' .    '^z.  1    L-nL' i '_c    J"    Lri'^.r*.-:-_- 1  ch. 

■1  "J.^Tj       i~"./-_  T  i.  IT--'  r.v~i\-    :'^~:  \  .  t^'KJ — •AT't'..'       "/■■-.-.•!"■'..* 
i  I    C--         '--  1  ""ir'J   [  '-..  '   IT:  '.   -""   •Z-C-   .     '    '_-.'"*i~'I   '".   1    — ■-'C'^C-  —■    i 

1770  C=CM+Cy^-32 

1780  poke  sd+cx+cy^¥:40+4. 0*128 

1790  POKE  ASD+Cy+CY*40+4.C+128 

1800   IF  STRIG(8;=0  OR  PEEK'-; 76^  K255  THEN 

K«-i '.._-■ .  r.-.-rr.     -i  Oil.- 

1810  ST=STICK''0-IF  ST=15  THEN   ISOS 

1820  POKE  53279.0 

1838  GOSUB  1990 

194M  cy=r:K-''sT=l  1  Hi"  sT=7  -.:  ■■  ri=r-^-(  ST=i4  H 

(ST=13> 

1850  IF  OK0   -HEH  Cy=3t :  CV=CY-i 

I860  IF  CX>31  THEN  C>;=0  =  CY=CV+1 

1870  It-  CY<0  THhH  CY=i 

lc"88  IF  CY>3_THEH  CY=0 

lo90  GOTO   17f-a 

1900  POKE  SO+CKtCY*40-H-.C 

1910  POKE  ASD+CX+C''^;40*-4.C 

1920  RETLiRN 


Program  2. 

100  REh  CHLG AD— CHARACTER  SET  LmDER 

110  CHSET=PEEK(106)-y=POKE  756.CHSET 

120  CHSET=CHShT*256 

130  TRAF'   ISS 

140  OPEN  #1.4.8."D:FrtNT":REM  YOUR  FILENA 

r€  HERE 

150  FOF'  1=0  TO  1023 

160  GET  #1.A=P0KE  CttBET+I.A 

170  NEKT   I 

Im  CLOSE  #1 

Program  3. 

100  REH  CHPR I  NT— CHARACTER  SET  PRINTOUT 

110  TRAP  340 

120  OFtN  #1.4. 0."D:  FONT ''=  REH  YCiip  FILENA 

f€  HERE 

13i:i  npEH_#2.S.0. '■p:":RLr1.  CHANlE   lO  '''£■■''• 

FOR:  SCREEN 

140  PRINT  "ill   HEK  OR   121   DECII1AL" ;  =  I^PU 

T  TYPE 

150  Din  HEK*(16Y.FK3> 

160  Htrt$="01234j6f''89ABCDEF" 

165  LSE^-1 
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170  i-Uh:   1=0  TO  1823  STtP  3 

188  F$="        '=^C=IHT(I/S) 

190   IF  TYPE=2  THEN  F$(  i..LEN'::STR*(C)>)=ST 

RH;  C  ;■ :  PRINT  #2;  F$; "  ^ " ;  =  G0Tu_25S 

209  LSB=LSB+1  ah  LSB=25b   iHtH  LiB=8  =  rBB= 
MSEs+1 

210  PRINT  #2r'$"jHEKf(nSe+LhSB+i>; 

230  HINYB=IHT( LSB/ 16) ^ LONVB=LSB- IS^HIHYB 

240  PRINT  ft2iHEKf(HIHVB+l;HIHYB+n;F£X$( 

LOHYB+l.LOHYB+1);"^    "; 

250  Flip;  J=8   id  7 

it'y  LET  #1.H 

270  F*="       "  =  IF  TYPE=2  THEH  F$(  1 . LEHC  STR 

*(h>>>=STR$(h>: PRIMS   ft2;"   ";h*.;  ^GOiO  310 

290  HINYB=INT(A/lb):L0NYB=H-i6*HINYB 

300  PRINT  #2; HEKt( HIHYB+l , HIN'^^'=+1 ).; HEK*( 

LiKr'B+MONYB+l);"   "; 

310  lEXT  J 

320  PRINT  12 

330  HEKT   I 

24d  CLOSE  #1= CLOSE  #2  ( 


/f 


ATARI*  SOFTWARE 


SYNCRO,  INC. 

SOFTWARE  DIVISION 
31332  VIA  COLINAS  SUITE  107 
WESTLAKE  VILLAGE,  CALIF.  91361 


SOFTWARE  FOR 


ATARI  '■" 


400/800 


[J^iMiUJ 


1981 
A    NEW    TYPE    OF    ADVENTURE. 
WITH    YOUR    JOYSTICK   AND    DIVE 


SIT    BACK 
THE    DEEP 

BLUE  SEA.  RENT  RIG  AND  CREW  TO  PLUNDER 
THE  STRANGE  TREASURES  THAT  AWAIT  YOU. 

JOYSTICK  REQUIRED 
24KTapeSl6.95  32K  Disk  S21.95 


fwwwsn 


1981 


ARE  YOU  A  SUPERAGENT?  A  FAST  ACTION, 
ALL  GRAPHIC  GAME  WITH  PLENTY  OF  SPECIAL 
EFFECTS  IN  A  MAZE  LIKE  UNDERGROUND  COM- 
PLEX. FIVE  LEVELS  OF  PLAY  IN  REAL  TIME, 

JOYSTICK  REQUIRED 
16KTapeSl2.95  24K  Disk  S17.95 


PRAfil^mCK 


©1981 


A  NON-SCROLLING  ADVENTURE  TYPE  GAME. 
SILVER  BULLETS,  WOODEN  STAKES,  CROSS. 
YOU'LL  NEED  THESE  AND  MORE  TO  DEFEAT 
THE  GUEST  IN  DRAC'S  CASTLE  AND  ESCAPE 
WITH  HIS  GOLD, 
24KTapeSl4.95  32K  Disk  $19.95 


VISA  AND  MASTERCARD  ACCEPTED. 
CALIF.  RES.  PLEASE  ADD  6%SALES  TAX 
PLEASE  INCLUDE  $1.50  SHIPPING 
DEALER  INQUIRIES  WELCOME 


at 
DISCOUNT 
PRICES 

from 


ADVENTURE  INTERNATIONAL  reg.  retail 

Adventures  1  inru  1!  each  IT] 19  95 

Star  Trek  3  5  (T) - 19.9S 

Lunar  Landar(T) 19.95 

Galaclic  Empire  |T) 19,95 

ATARI 

Asseoibler  Editor  (C) 59.95 

AsleroidslCI  .,..39.95 

WariWotaProcaESor(D) 150.00 

Convarsational  Spanisn  (T] 59.95 

Missile  CommaniJlC) 39.95 

Scram  (T) 19.96 

Star  Raiders  (CI - .49.95 

AUTOMATED  SIMULATIONS 

Invasion  Oriim  (T  or  0) 2*. 95 

Rescue  al  Rigel  (Tor  Dl .29.95 

Slat  Warrior  (TorDl 39.95 

AVALON  HILL 

Conllict  2500  |T) - 15.00 

Er^pire  of  tne  Qvermind  (i) 30-00 

Tanlflics(T| -.- 24.00 

Midway  Campaign  [J] 15.00 

C  E  SOFTWARE 
CCA0aiaM3nagemenl(D). ..99.95 

CODE  WORKS 

lridis*1  (T) , 9.95 

Irldis  #1  (0). -- 12.95 

Iridis  M(T| 15.95 

ltidis#2(D)   18.95 

CRYSTAL  COMPUTER 

CryslaloidsID)   .   -..- 29.95 

GlamisCasile(D) 49.95 

Fanlisyland2040A.D.  (D) 59.95 

Proteclor  (D) 39.95 

Sands  ol  Mars  (D) - 39,95 

DATASOFT 

Le  Slick 39.95 

Lisp  nierpieler  |D) 149.95 

Te»i  iiVirard  (01 99.95 

DYNACOMP 

Flighi  Simuialor  IT). 17.95 

Rings  oIlhB  Empire  (T| , 16.95 

ON-LINE  SYSTEMS 

Jawbreaker  (D| a.95 

Sollporn  Adventure  (01 , 29.95 

Wiz  and  Princess  (D| .,,.. 32.95 

OPTIMIZED  SYSTEMS  SOFTWARE 

Bjsic  A-f  (D| ao.oo 

OS/At  |D). 80.00 

PERSONAL  SOFTWARE 

Vi5ca'c(D) 199.95 

DUALITY  SOFTWARE 

Assembler  (T| J4,95 

OS  Forth  (Dl 79.95 

Slarbase  Hyperion  (T|  19,95 

UNITED  SOFTWARE  OF  AMERICA 

Atari  iiVorid(O) 59.95 

Survivai  Adventure  (D) 34.95 


OUR  PRICE 

15.95 
15.95 
15,95 
15.95 

47.95 
31.35 
115.00 
47,95 
31.9S 
15.95 
39.95 

19.95 
23.9S 

31.95 

iz.oa 

24.00 
19.20 
12,00 

79.95 

7.95 
10.35 
12.75 
15.1S 

23.95 

39.95 
47,95 
31.95 
31.95 

31.95 
119.95 
79.95 

14.35 
13.55 

23.95 

23.95 
26.35 

70.00 
70.00 

149.00 

19.95 
63.95 
15.95 

47,95 
19.95 


(C)  ROM  CARTRIDGE       (D)  DISKEHE       (T)  CASSETTE  TAPE 

REPRESENTING  OVER  30  COMPANIES  WITH  400  + 

PROGRAMS  AND  HARDWARE. 
Writs  tor  i  FREE  catalog  to: 

COMPUTER  HOUSE 

P.O.  Box  369,  Dopt.  10,  Mammoth  Lakes,  CA  93546 
(714)  934-6538 

Termi:  FOR  FAS7  DEUVERV,  itnd  [irtlfled  ctitcki,  moniy  or^eri  or  Vlii  ot  MitleiCtrd  nunbir 
■nit  eiplrMltn  diti.  Parunil  chacki  requirt  3  weaki  to  claai.  ADD  S1.50  hr  poitigi.  Of  dan 
ovir  JTOO.OO  wt  pay  ihlpplng.  All  toralgn  ordtri  idil  S10.00.  CALIFORNIA  raildaRti  add  6% 
lai.  Prk:ai  lubjtct  to  cliingi. 

*  ATARI  li  Ilia  tridamirk  Dl  Atari.  Inc. 
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Word  Search 

Bob  Jones 
Cranbury,  NJ 

Basically  this  program  creates  two  matrices.  The 
first  matrix,  the  A  matrix,  is  the  one  wc  shall  hide 
the  words  in.  Since  the  ATARI  and  many  other 
BASICS  I  have  run  across  do  not  permit  the  use  of 
strings  in  a  matrix,  I  have  found  that  the  next  best 
thing  to  do  is  use  the  ASCII  value  of  the  characters 
instead.  In  this  case  it  seems  to  be  even  simpler. 
The  A  matrix  is  initialized  in  line  10  to  a  random 
set  of  numbers  between  65  and  91 ,  (the  ASCII 
value  of  the  letters  A  thru  Z).  The  C  matrix  will  be 
our  control  matrix  and  our  answer  key.  In  line  10, 
all  locations  in  C^  are  initialized  to  42,  (the  ASCII 
value  for  the  character  "*"). 

Next  the  user  is  asked  to  input  12  words,  (the 
subroutine  called  by  line  15).  Lines  3015  through 
3 130  simply  set  A$  equal  to  the  word  to  be  pro- 
cessed, selected  by  ttie  variable  I.  Line  45  sets  L 
equal  to  the  length  of  the  word  and  if  it  is  too  long, 
(greater  than  ten  letters)  asks  the  user  to  input  a 
shorter  word.  In  line  50  we  convert  letters  of  the 
word  to  their  ASCII  values  and  place  them  in  the 
B  array,  (a  numeric  array  also  initialized  to  all 
zero's  by  line  10).  This  array  is  oiu'  workhorse. 
Line  60  serves  two  functions:  first,  to  generate  a 
random  starting  location  within  both  matrices  and, 
second,  to  generate  a  random  direction  for  the 
word  to  go  in. 

Now  comes  the  math.  Line  70  directs  the 
program  to  one  of  eight  subroutines,  each  one 
representing  a  different  possible  direction  for  the 
word  to  travel  in.  1  shall  only  go  over  the  first  one, 
(lines  500  to  550)  as  the  others  work  the  same  way. 
Line  500  checks  to  see  that  the  word  will  fit  within 
the  matrix,  if  not  the  program  is  directed  back  to 
line  60  to  generate  a  new  starting  location  and 
direction.  In  line  510  we  check  the  position  of  the 
word  against  the  C  or  control  matrix  for  possible 
conflicts  with  words  already  placed  within  that 
matrix.  If  a  confhct  exists  the  program  is  again 
directed  back  to  line  60.  Line  520  checks  for  a 
crossover  with  a  pre\ious  word  and  if  tiierc  is  one 
it  sets  a  flag,  (the  variable  F)  equal  to  I .  Line  630 
directs  the  program  to  lines  2000  U)  2020,  these 
lines  would  have  been  repeated  8  times,  once  for 
each  direction  subroutine  so  in  order  to  save  me- 
mory they  are  only  listed  once  and  called  upon 
when  needed.  I'he  use  of  the  'COTO'  instead  of 
the  'GOSUB'  command  is  necessary  in  order  to 
conditionally  return  to  other  portions  of  the  pro- 
gram withoiu  confusing  the  computer  by  jumping 


in  and  out  of  subroutines.  In  these  lines,  (2000  U) 
2020)  we  continue  to  process  our  word,  if  there  is  a 
cros.sover  (F=  1),  or  wc  have  tried  300  times  to  find 
one,  (determined  by  the  variable  R)  we  contiiute, 
otherwise  we  go  back  to  line  60.  Line  2020  gets  us 
back  into  our  original  subroutine.  Line  550  is  the 
last  line  of  our  subioiuine,  it  i^laces  our  word  into 
the  A  and  C  matrix's  and  sends  us  on  to  get  a  new 
word. 

Line  80  determines  if  we  have  processed  all  of 
our  words,  and  if  so  sends  us  on.  In  line  100  we 
print  om-  hidden  word  matrix  by  printing  the 
letters  represented  by  our  ASCII  values,  and  wlien 
we  are  ready,  line  1 10  prints  our  C  matrix  which  is 
now  our  answer  key. 

This  program  requires  more  than  8K  of  me- 
mory as  stands  to  run,  though  it  will  load  into  8K 
of  memory.  It  is  a  simple  matter  to  shorten  it  by 
culling  out  some  of  the  possil)le  direction  subrou- 
tines. Also  you  can  ask  for  the  wtsrds  to  be  INPUT 
as  they  are  needed  rather  than  storing  them  in 
string  arrays.  This  program  can  be  run  on  almost 
any  computer  using  BASICS  as  stands,  the  only 
possible  modincations  that  might  be  needed  are 
with  the  GO  TO  statements  like  'GOTO  D*  100'. 
These  may  be  changed  to  'ON  D  GOTO  500,600, 
700.800,900. 1 000, 11 00, 1 200'.  Or  you  could  use 
the  'IF...  THEN'  statements,  though  the  program 
won't  be  as  much  fun,  A  '?'  is  simply  a  PRINT 
command.  The  POKE  statements  are  not  necessary: 
they  simply  speed  up  the  program.  (Thanks  to  Ed 
Stewart,  COMPUTE!  #1  L) 


1  m\  WORD  SEARCH     WRITTEN  BY  BC©  .JOflES 

5  POKE  553.Q^DIM  AtC  il).B$(ll).C*(ll)..D* 

a  1  >. E*(  1 1 ),. F$C m. Gl(  1 1)..H$(  1 1 ).  I$(l i ).. 

JiCll:'..K$(li)..L$(ll);M$(ll) 

10  DIM  A(13..ib).B(  13:'. 0(13,4 6)^=8^ FOR  K 

=1  TO  13  =  B(X)=a^F0R  V=l  TO  lt  =  Aa..Y)=IHT 

( 2b:^:RHD<  2  )+65 )  ■  C(  K  •  Y  )=42 

15  NEXT  Y^NEKT  X ^ R=30y ^ GOSUB  3883^ GOTO  4 

0 

20  FijR;  X=l  TO  13:  FOR  ','=1  TO  16 

30  R=0 

40  GOSUB  30 io 

45  L=LEH(h$>=IF  L>1S  THEH  ilSS 

50  poR  s=i  TO  L:B<S)=H'5uAI(S.S)):HhXT  S 

gg  f=^, :  K=R+i ; x=ir^T<  iim'iiK 0 )+i ) : y=ihT':  is 

$RND(  0  >-«■  1 ) :  D=IHT(  y*RH9':  O  )+5 ) 

70  uGiO  0*109 

S0  1=1+1 -lRRINT  hIT'OKE  559.-i4:?  At^POKE 

559..  04F  1=12  THEN  lOO 
%   GOTO  30 
108  POKE  555..  34 : FOR  X=l  TO  13  =  ?  ^LPRINT 

^FOR  Y=1  TO  lb:?  CHR*(AvX..Y>);  ^LPRIMT  CH 
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K$(R(K..t)),;  -HEKT  Y^HhXi   X 
105  ?  "TO  SEE  AHSWbRS  PRESS  RETURN  KEY" ^ 
It-FUT  Ai- 
nu LPRIHT    ^LPRIHT   =FOR  ^=1  TO  i3^LPRIHT 

^?   :FOR  V=i  TO  Ifc^LPRINT  CHR$<C(X.V));  = 
?  CHRt<C(X..V)>;  ^bEXi  Y^rtXT  X 
120  LPRIHT    SPRINT    ^LPRINT   ^ LPRIHT    ^LPRI 
MT    ■■B-€\ 

500   IF_Y+L-l>lb  THEH  68 
518  FOR  2=0  TO  L-MF  C(X.Y+2)>42  AND  C( 
X/Y'+ZK>e<2+l)  THEN  6u 
520   IF  C(X/Y+Z)=&;2+1>  THEN  F=l 
530  iJJTO  2000 
550  C(X.. Y+S )=B( S+1  >^ A(X.. Y+S>=B( S+1  > -NEXT 

S^GuTu  30 

600   IF  Y-L+Kl  THEN  SO 
610  FOR  Z=L-1  TO  0  STEP  -!:IF  C(X..V-Z»4 
2  AHD  C(X..Y-Z  )<>&:: 2+1)  THEN  60 
620   IF  UX/Y-Z)=B<Z+1)  THEH  F=l 
630  GOTO  2000 

656  C(X/t'-S>=&:S+1):h(X.Y-S>=Ei<S+1)  =  }€KT 

S^GOTO  80 
700   IF  X+L-l>13  THEN  6S 
710  FOR:  Z=0  TO  L-MF  C<X+Z/'r;'>42  h\D  C( 
X+2.VX>B(Z+1)  THEH  6a 
726   IF_C(X+Z..Y)=B<Z+n  THEN  F=l 
730  UJtO  2000 
750  C(  X+S ..  Y  )=EK  S+  i ) :  h(  X+S .  Y  ':<=&.  S+ 1 )  ^  NEXT 

S^GOTu  80 
880   IF  X-L+Kl  im-\  68 
810  FOR  2=L-1  TO  0  STEP  -MF  C(X-2..Y»4 
2  rHD  C(X-2/Y)<>B(2-M>  then  68 
S20   IF  C(X-2.V>=B(2+1)  THEN  F=l 
830  !3JTLi  2090 
850_C(  X-S,  Y)=B<  S+1  )  =  A(K-S.Y>=B(  S+1  >:  NEXT 

S:L0T0    S0 

900   IF  X+L-1M3  OR  Y+L-l>ib  T^£H  68 
910  FOR  2=0  TO  L-1  =  IF  C(X+Z.  Y+2)>42  ftND 
C(X+Z..Y+2>OB<2+i)  THEH  66 
920   IF  C(X+Z..Y+2;=B(2+i>  THEN  F=l 
930  GOTO  2300 

950  C(  X+S ..  Y+S  >=B(  S+ 1 ) :  R<  X+S .  Y+S  ')=&(  S+1  > : 
t-EXT  S^GOTO  S0 

1000   IF  X-L+K16  OR  Y-L+i<i  THEN  60 
1010  FOR  2=1-1  TO  0  STEP  -MF  CcX-Z.Y-Z 
»42  m  C(X-Z.Y-2K>B(Z-1)  THEN  60 
1020   li-  C(X-Z,Y-Z)=B<Z+1)  THEN  F=l 
1030  bOTO  2000 

1 050  C(  X-S ..  Y-S  )=B(  S+ 1 ) :  A(  X-S  ■  Y-S  )=&:  S+  i ) 
=  rEXT  S^GOTu  30 

1100   IF  Y-L+Kl  OR  X+L-l>i3  THEN  60 
1110  FOR  2=0  TO  L-MF  C(X+Z.Y-Z)>42  AND 
C(X+Z>Y-Zk>B(2+1)  then  60 
1120   IF  C(X+Z.Y-2)=E<Z+1)  then  F=1 
1130  GOTO  2'00G 
1150  C(X+S/r-3)=B(S+l):A(X+S..Y-S)=B(S+l) 


^t-EXT  3:  GOTO  S0 

1200   IF  Y+L-l>16  OR  X-L+Kl  THEH  60 
1210  FOR  2=L-1  TO  O  STEP  -MF  C(X-Z.Y+Z 
))42  At€  C(X-2.Y+2K>B<Z+1)  THEH  68 
1220   IF  C<X-Z.Y+Z)=K2+1)  THEN  F=l 
1230  GOTO  2800 

1258  C(X-S/i'+S)=B<S+l)^H(X-S.Y+S>=B(S+i) 
=  }€XT  S-GOTO  8a 

2008  f€XT  Z=IF  F>0  OR  R>380  T^€N  2829 
2810  GOTO  68 

2620  FOR:  S=0  TO  L-1=G0T0  CKU  60+56 
3&3e  F1*;E  559 ..34^?  "TYF*E  HORD  ft^Ci  THEN  H 
IT  FOURH"  ■■  IfRiT  m>Oi-. D$. El-. Ft-, G$. m..  1$ 
..  J$ .  Kt-;  Lf ,  m  ■■  POKE  559 ..  8  ■■  RfTURN 
3015   IF  1=0  THEH  A$=B-|- 
3020   IF  1=1  THEH  AI=C$ 
3030   IF  1=2  THEN  h-|=D* 
3040   IF  1=3  THEH  A-l=Ef- 
3050   IF  1=4  THEH  At-=Ff 
3060   IF  1=5  THEH  Hf-=G$ 
3078  IF  1=6  Th€H  h$=H$ 
3088   lY   1=7  THEN  A*=IJ 
3090   IF  1=3  Tm\  H$=J-| 
3160   IF  1=9  THEH  Ht-=K* 
3110   IF  1=10  THEN  m=L$ 
3128   IF  1=11   TFtH  Aj-=rtl 
3136  RETURN 

3156  PlKt  559.34:?  ^1.; "  TOO  LONG  MUST  BE 
HO  !jF£rTER  THAH  18  LETTERS  TRY  AHOTHER 
HJR:D" ; :  INPUT  A$:  POKE  559:  Omj'iTO  45 


SPACE  SHUTTLE 
Launch  and  Ascent  to  Orbit 

Simulation   Software    for   the   ATARI    800' 

•  •••    • 

Using  a   joystick    interface,   you    steer   the 

Space    Shuttle    through    launch    and    into    orbit. 

Not    A    game,   but    a    serious    simulation. 

Requires    24K    RAM    and    1    joystick. 

"ATARI    is    a    trademark    of   ATARI.    Inc. 

Cassette   OnlvSlO.95    (ages    12   to   adult) 

STARBOUND  SOFTWARE 

P.O.    BOX  214 
COCOA   BEACH,   FLORIDA    32931 
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Review: 

Screen  Printer 
Interface 
(Version  2.0) 
From 
Mocrotronics 

David  D  Thornburg 

Innovision 

Los  Altos.  CA 

More  than  anything  else,  1  use  my  Atari  computer 
[or  the  creation  orpieliu'es.  For  various  reiison.s,  it 
is  not  enough  for  tne  lo  see  these  pittines  on  a  I  \' 
screen  —  I  also  need  copies  of"  them  on  plain  paper. 
Forltniatelv.  there  is  an  exceptionally  well  designed 
product  which  makes  this  a  \'ery  simple  la.sk.  Thai 
product  is  the  screen  primer  Interface  ironi  Ma- 
crotronics.  This  program  allows  ihe  irser  lo  iranslrr 
anv  image  from  die  displa\  s(  reen  to  a  suilahle 
graphics  printer  with  a  single  kevstroke.  The  piint- 
ecl  image  can  (if  \ou  choose)  preserve  grey  scales, 
and  can  be  printed  in  anv  si/e  from  a  single  sheet 
lo  a  poster  which  would  t over  a  \\all.  I'he  user  can 
choose  lunong  several  [)rimers  (TrendcoiTi,  IDS, 
Clcnironics,  Epson),  and  does  not  need  the  Atari 
H5{)  interface  unit.  Instead  of  the  850,  Macroironics 
provides  a  printer  interface  cable  which  comiects 
t(j  joystick  ports  ,'i  and  1.  Ihe  screen  priiitet  soil- 
ware  comes  on  a  disk  containing  DO.S  1 ,  and  ihey 
also  j5i-ovideacop\  of  the  uiilitv  wiiich  is  compatible 
with  DOS  2. 

The  manual  is  dearly  written  and  coiUains 
inanv  examples  showing  the  use  ol  this  inleriace 
with  all  language  en\ironmenls  [jresenlly  sup- 
ported by  Atari  (BASIC;,  A.ssemblcr,  PIIX)  T). 

Setting  It  Up 

lO  use  the  svstem.  one  first  connects  the  printer  to 
the  joystick  ports  with  ihe  (al)le  ])rovided  and  then 
boots  the  system  from  (he  disk  supplied.  During 
the  boot  process,  the  scieeii  prompts  the  user  for 
information  on  the  printer  being  u.secl.  Once  iliis  is 
done,  tlie  rest  of  the  program  is  loaded  (the  total 
ulililv  occupies  less  than  HK  bytes)  ancl  ihe  familiar 
blue  screen  appears. 

From  this  point  on,  ihe  printer  driver  sof  Iwarc 
is  luc  ked  safch  inside  the  (omputer  where  it  re- 


mains to  do  your  bidding  until  the  computer  is 
tiuMied  off.  Any  command  which  sends  information 
to  de\  ice  P:  will  cairse  this  infoi  nialion  lo  be  |)i  inted. 
B.-XSIC  commands  such  as  LPRI\  F  behave  jitst  as 
they  would  for  an  Atari  printer  connected  through 
the  serial  jiort. 

While  this  system  supports  all  text  printing 
futu  lions,  the  real  value  of  this  interface  package  is 
ibe  ])o\\t'r  it  gives  as  a  gra])bics  printing  tool.  Any 
time  this  system  is  in  tlie  computer  )ou  can  gel  a 
dot-by-dot  copy  of  the  screen  image  by  simply 
typing  CrFRl.-F.  Macrotronics  has  created  some 
defatill  primer  conditions  which  cau.se  most  images 
to  be  printed  quite  nicely.  The  user  has  total  control 
over  the  s\slem  paraineters  and  can  c  hangc  the 
settings  of  \ari(jus  registers  lo  create  rnanv  different 
effects. 

For  e\am|)le,  the  ])rinled  image  can  be  scaled 
independently  in  both  axes  by  I'OKFing  a  numbei' 
between  I  and  16  in  each  of  two  memor\' locations. 
Tlie  defaidl  .scale  (16)  produces  a  figure  which  fits 
nicely  on  S..5  '  wide  paper.  .As  the  scale  \  alues  are 
decreased,  the  image  size  increases  by  Kvn  where 
n  is  the  scale  \alue.  Wide  images  are  [Jiinied  in 
multiple  strips  which  can  then  be  glued  togelber. 
On  multiple  strip  printouts,  each  strip  overlaps  the 
pi-evious  one  hv  a  litlle  bit  to  make  strip  alignment 
simjjle.  Fbis  attention  to  making  life  simple  fur  the 
user  is  l)eatitilul! 

In  addition  [o  using  die  scale  vaiiables  to  make 
large  pictures,  they  can  also  be  used  to  adjust  for 
the  fact  lliat  most  dot  matrix  printers  have  different 
inter-doi  spacings  on  eat  h  a\is.  Fo  get  an  accurate 
.sc[uare  on  the  Fpson  MX- 1  (Kl,  lor  example,  the 
vertical  scale  should  be  set  to  I  !  (with  the  Imri/ontal 
scale  left  al  Hi).  'Fhe  result  is  almost  perfecl. 

In  addition  to  scaling,  ihe  user  can  select  posi- 
tive Ol  negative  images,  grey  scale  or  black  and 
white,  dc-termine  grev  scale  from  either  hue  or 
luminance  data,  print  data  which  has  been  "tine 
scrolled,"  and  print  players  and  missiles. 

In  siiorl,  if  your  .Atari  computer  can  generale 
it,  I  be  .\lacrot  ionics  screen  [Jiinter  can  jjiint  il. 

I  use  this  soltware  almost  everv  dav.  .So  fai'  I 
have  used  it  lo  print  the  illustrations  for  three  book 
manu.scripts,  numerous  artic  les,  several  large  po.s- 
lers  and  .some  custom  bum]K'r  stickers. 

The  Only  Error 

Fhe  onlv  error  I  have  uncovered  is  that  the  default 
grev  scale  selling  uses //ju' data  rather  than  !uniinfinrr 
data,  l)ut  this  is  just  a  docimienlalion  error  —  the 
sotiwai  e  works  perfectly. 

I  o  see  more  exani])les  of  |)rintouts  made  with 
this  utilitv .  look  at  any  "Friends  ol  the  'I'ui  lie" 
columc  in  COMPUTE!,  or  at  the  bocjk  Picture  This.', 
soon  lo  be  published  bv  .Addison  Wesley. 
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EARTHSIGMgJ  Ton  re  ceing  fp^wAhBTLe:]  tn  old  luns  And  ACTTt3it:Dn&  this  yeir. 
mignt  tiB  tf*  irtpal  timetc  aust  aff  tf^T  ale  program  rtrordFr  infl  insert  tt-«  ni 
fHF4Se4> 

FE-SSKAL  FISUKCE  SYSTEM  OM  CASSETTE 
TMs  c«i&4!!tF  bi&B  PFS  HiS  siifrryitiing  ifia  fnaf«,  tnir.  inp  B13  BOYS  get;  on  t 

F1RE3!BH6j  Ydu  Hill  tike  ^>Antd.9r  oTrronry  ir'^kinQ  opparlui^iViat  imiS  yeAi 
gilnt  wlil  tip  r>f  tip  FJisy  '::ame^ta3y-gD  k;nd,  unEeas  i-ou  mikc^  it  ^our  tiubinE 
stop  tht  ajTjo.  Yo^if  plannifig,  js  soufidi  0ml  pfl*5|hly  coolil  usp  i  dfrprndaBIc,  l 
tool  such  aSh  d  6tAnd:-aJ{utei 

CASH  REGISTER  PROaRAa 
that  ."idintains  sn  inventory  control,  kee^p^  YTD  tatil^  Dy  the  monrn.  -^lll  prim 
invoices  OT  receipts  and  c^x\  use  40  col.  or  Su  coli  printer*  plus  rr.uch  .itorEi  a:l  in  ant 
pQWDrfiil  pKk^«< 

Requires  i.K  least  3:K  ^fl  *  c3i^k-5PECIAL  IHTRD  QFFEP  il'.^'-?^ 

WIWDSIOWSI  Ycxi  u9  in  tna  ir^dJle  Dt  tome  piirianjl  diKa^crirs  th«t  will  i^htnge  the 
ccurce  af  your  liF».    Jlpw  inler»t<  d«v«lopi    One  or  tharn  rru^M  be  Eh*  Hiu 
5H00T-EM-UP  SPACE  GAJtE  3/  Suectrum  Compuler 
GALACTIC  CHASE' 
A  v*f)>  fApid  artadc  S'^ACE  battle,  dnwtolAlIy  in  .Tttcn.  lAng,  Tri'S  jamt  is  a^4iJ43le 
on  tApe  or  di^k.  and  r«quLre«  a!  least  UK  nr>emQry, 

WATEKSIGTiS;  YcD  t-.ave  ■5jjpport  nan  fo«  improwing  yBur  pQ»*#rt  of  persuasion  and 
Icrvg-rirgf  plAnnjng.  Ttu're pnejurM  tj  meet  cnillfngfs  n««d'on,  so  why  not  try 
OLrr  Special  Of  Tne  Month,  a  »-jperb  'D,  hi.rfrt.  CaUr  s^'^pXl^K  ahd  saumd,  3  Axis 
roUtion,  «pace  game.  This  gajne  not  only  challer^ges  yaur  reaction  timei  Qut  your 
tlrategic  planning  abilities  too.  You  Ku«t  NOT  Mm  Dut  on  this  neM  release  from 
H  anion  Sinvjlatiofis^ 

SHADQHHAMK  I 
thi&  qan-g  regularly  lists  for  1*^.^^,  But  for  thm  fT^onth  OHLTt  »3^.9B! 


High  Country  I^it^rfla^slemt 
Home  Df  the  software  HOTLIKE 
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2.00  snpptng  and  handling 
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■ATAPI  14  reentered  ;rd.d«nark  af  Atan,  Inc. 
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ALTERNATE  REALITY 
SOFTWARE 

Presents  for  the  Atari 
THE  1  CHING 


THE  ANCIENT  CHINESE  BOOK  OF  DIVINATION 

•  The  complete  text  of  the  world's  oldest  book  on  disk 

•  40K  program 

•73  disk  files  (155, 000 bytes) 

•  Occupying  1211  disk  sectors 

•  High  Resolution  Graphics 

•  Animation 

•  Music  and  Sound  Effects 

•  Instructional  text  material 

•  Calculates  and  Displays  Hexagrams 

•  Displays  Judgement,  Image,  Moving  Lines  for  primary 
&  secondary  Hexagrams 

•$44.95 

order  from: 

Alternate  Reality  Software 

2111  W.  Arapahoe  Drive 

Littleton,  Colorado  80120 

Dealer  inquiries  invited 
Atari  isaT.M.  of  Atari,  Inc. 
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INSIGHT:  ATARI 


Bill  Wilkinson 
Cupertino,  CA 


I  have  recently  seen  a  copy  of  the  complete  De  Re 
Atari  (by  Atari's  own  Chris  Crawford,  author  of 
SCRAM  and  EASTERN  FRONT,  et  al).  Since  two 
out  of  three  people  I  talk  to  say  "Huh?"  when  I 
mention  the  name,  I  have  personally  subtitled  it 
Everything  You  Ever  Wanted  to  Know  About  the  Atari 
Computers  But  Didn't  Know  Enough  to  Ask.  Tiie  book 
concerns  itself  with  foibles,  tricks,  innards,  hard- 
ware, software,  and  everything  in  between:  there 
are  even  tricks  using  Atari  BASIC  (that  are  "ob- 
vious" upon  discovery)  which  we  never  thought 
about  when  we  designed  the  thing!  I  must  heartily 
recommend  that  every  serious  Atari  programmer 
trade  in  his  or  her  left  thumb,  if  necessary,  for  a 
copy  of  this  book. 

"De  Re"  (the  insiders'  appellation)  is  currently 
being  serialized  in  BYTE  magazine  (I  guess  Atari's 
trying  to  impress  the  non-Atari  world),  but  seeing 
the  book  in  one  piece  is  somehow  more  instructive. 
"De  Re"  is  generally  a  fantastic  resource,  but  it 
does  often  assume  that  the  reader  has  intimate 
knowledge  and  understanding  of  the  Atari  Hard- 
ware Reference  Manuals,  etc.  This  is  not  a  fault 
(the  authors  forewarn  the  reader);  and,  besides,  it 
does  leave  room  for  columns  like  this.  1  don't  intend 
to  duplicate  material  in  either  Atari's  manuals  or 
"De  Re",  but  there  is  boimd  to  be  some  overlap.  I 
intend  to  present  the  "hows"  and  "whys"  to  supple- 
ment Atari's  "whats." 

1  try  to  write  this  column  for  the  programmer: 
the  person  who  knows  software,  but  is  unfamiliar 
with  Atari  hardware  and/or  Atari's  system  level 
software.  If  this  column  stretches  your  under- 
standing of  the  Atari  and/or  its  software,  that's 
probably  good.  And  I  am  constantly  amazed  at  the 
questions  which  beginners  on  the  Atari  come  up 
with;  they  often  show  "insights"  to  solution  methods 
that  I  wouldn't  dream  of.  The  first  quesdons  are 
arriving  in  my  mailbox.  Send  more! 

This  month's  column  is  part  three  of  the  series 
on  the  Atari  Operating  System.  Next  month  we 
will  cover  screen  output,  including  graphics,  to 
formally  end  the  series.  I  have  a  few  ideas  on  what 
should  come  next  for  you  non-BASIC  Atari  users, 
but  I  would  welcome  some  input.  Also,  this  month, 
we  begin  a  scries  which  will  explore  the  inner 
workings  of  Atari  BASIC. 

Atari  i/O,  Part  3:  Device  tlondlers 

As  we  tioied  before.  Atari's  OS  is  actually  a  vety 


small  program  (approximately  700  bytes).  Even  so, 
it  is  able  to  handle  the  wide  variety  of  I/O  requests 
detailed  in  the  first  two  parts  of  this  series  with  a 
surprisingly  simple  and  consistent  assembly  lan- 
guage interface.  Perhaps  even  more  amazing  is  the 
purity  and  simplicity  of  the  OS  interface  to  its 
device  handlers. 

Admittedly,  because  of  this  very  simplicity. 
Atari's  OS  is  sometimes  slower  than  one  woidd 
wish  (probably  only  noticeably  so  with  PUT 
BINARY  RECORD  and  GET  BINARY  RECORD) 
and  the  handlers  must  be  relatively  .sophisticated. 
But  not  cnerly  so,  as  we  will  show. 

Ttie  Device  Handler  Table 

Atari  OS  has,  in  ROM,  a  list  of  the  standard  devices 
(P:,C:,E:,S:,  and  K:)  and  the  addresses  thereof.  So 
far,  so  good.  But  notice  that,  for  example,  the  disk 
handler  (D:)  is  not  listed  there;  how  does  OS  know 
about  other  devices?  Simple.  On  SYSTEM  RESET, 
the  list  is  moved  from  ROM  to  RAM,  and  OS  then 
utilizes  only  the  RAM  version.  To  add  a  device, 
simply  tack  it  on  to  the  end  of  the  list:  you  need 
only  specify  the  device's  name  (one  character)  and 
the  address  of  its  handler  table  (more  on  that  in  a 
moment).  To  reassure  you  that  it  is  this  simple,  let 
me  point  out  that  this  is  exactly  how  the  "D:"  (Disk) 
handler  is  attached  when  the  disk  is  booted. 

In  theory,  all  named  device  handlers  under 
Atari  OS  may  handle  more  than  one  physical  device. 
Just  as  the  disk  handler  understands  "DI :"  and 
"D2:",  so  could  a  printer  handler  understand  "PI :" 
and  "P2:".  In  practice,  of  all  the  standard  .Atari 
handlers  only  the  Disk  and  Serial  Port  handlers 
can  utilize  the  sub-device  mmibers.  Incidentally, 
Atari  OS  supplies  a  default  sub-device  number  of 
"1"  if  no  number  is  given  (thus  "D:"  becomes  "D  I:"). 
A  project  for  those  of  you  with  two  printers  (there 
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S031A 

HTABS 

;  the  Printer  device 

.WORD 

PDEVICE 

;  and  the  address  of  its 
driver 

.BYTE 

'C 

;  t  he  Cassette  device 

.WORD 

CDEVICE 

.BYTE 

E' 

;  the  screen  Editor  device 

.WORD 

EDEVICE 

.BYTE 

'S' 

;  the  graphics  Screen 
device 

.WORD 

SDEVICE 

.BYTE 

'K' 

;  the  Keyboard  device 

.WORD 

KDEVICE 

.BYTE 

0 

;  zero  ma  rks  the  end  of 
the  table 

.WORD 

0 

;  ...but  there's  room  for 
up  to 

.BYTE 

0 

;  ...9  more  devices 

etcetera 

Figure 
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MICROWORLD.  an  adventure  wilhm  your  computer  is  available 
on  the  ATARI  and  the  TRS-80  You  are  transformed  into  an 
electroid,  and  must  explore  the  circuits  o(  your  computer  Over  80 
locations  and  many  original  problems  exist  wittiin  Ihe  maze  o( 
transformers  and  transistors-  We  dare  you  to  explore  tfie  maze  of 
btt  cells'  Each  version  of  Microworld  explores  the  workings  of  ils 
respective  compuler.  Atari  or  TRS-BO,  f\/l(croworld  comes  with  a 
booklet  defining  terms  and  describing  the  function  of  the  mystify- 
ing inner-workmgs  of  home  computers  Come  face  to  face  with  a 
staticoni  Explore  the  Microworld! 

SATISFACTION  GUARANTEED! 

If  for  any  reason  you  are  not  satisfied  with  our  products,  return 
your  order  within  14  days  for  a  prompt  and  cheerful  refund- 

ORDERING  INFORMATION 

Orders  are  processed  withm  five  working  days.  Shipping  and 
handling  charge  of  SI  .00  will  be  added  to  all  orders  within  the  US. 
and  Canada,  Overseas  orders  please  add  S3.00  (or  air  post. 

Atari  MicrovKorld        Atari  400  and  800 

32K  Cassette  ■ SI 9.95 

Atari  400  and  800 

32K  Diskette S22.95 

TRS-80  Microwrold        TRS-80  Model  I  and  Mode!  Ill 

Level  tl  16K  Cassette .- S19.95 

TRS-80  Model  I  and  ModeHII 

Level  II  32K  Diskette  ' S22.95 


MICROWORLD 
SHIPPING 


TRS-60 


■ 
NAME   1 
STREET  1 
CITY  Hi 

CASSETTE 

■  DISKETTE 

^^^^1 

I^^^H 

■^^H 

HI  STATE  I^H 

■   CHECK 

■  VISA 

^^■^^H 

W^^Kt 

HHBHH  bxp 

MED  SYSTEMS  SOFTWARE 

P.O.  Box  2674.  Chapel  Hill,  NC  27514 
1-800-334-5470 


Fantasy  for  your  ATARI 

All  B^b^ 

^iVib  the  fortvj  thieves 


By  Stui\rt  Smith 


Guklo  your  filler  o^o.  .Mi  fiiilKi.  lhrou(ih  llic  lliitvcs  mountain 
den  in  An  .lilcmpi  lo  rescue  ihe  IwautiFul  iirincL'ss.  Treasure, 
magif.  *n(l  rtri-.ii  d.iiijJer  await  you!  One  or  more  lium,\n  players 
can  ^uiclu  up  io  seventeen  friendly  cfiaracters  through  the  many 
rooms,  halls,  and  tavcs.  Some  characters  wander  around 
randomly,  makinji  each  adventure  a  Mule  differenl. 

.•\l.l  li.\fi..\  .■\NI)  Tin:  ]\)R-V\  THff'.Vf^S  is  wriiierv  in  hijih 
resolution  color  ^r.l|)hics  and  includes  music  and  sound  effects, 
.■\dvenliires  can  lie  saved  to  disk  And  resumed  at  a  later  time. 
fiequircs  r>2f^ 

On  Diskette  Only  -  S32.95 


Graphics  for  your  ATARI 

Character  Muaic 

R\.  r^hrk  Wi  ill  ^^ 


By  Chris  Hul 


Ifs  eosy  to  create  your  own  character  sets  and  save  them  to 
diskette  or  cossetfe  with  CHARACTER  MAGIC.  But  this  is  not  just 
another  charocter  editor  CHARACTER  WAGIC  helps  you  use  all  the 
character  types  that  the  Atari  is  capable  of.  including  descending 
characters  (8  x  10  dots)  and  two  types  of  five-color  choracfer 
graphics  not  supported  by  Atori's  Operating  System.  Documenta- 
tion inc  I  udes  examples  of  display  lists  that  let  you  u  se  these  "secret" 
graphics  modes.  Requires  32K. 

Cassette  or  Diskette  -  S29.96 


I^R  OUR  COMPLETE  LINE  OF  ATARI  SOFTWAfiE 
PLEASE  WRITE  K>9  OUR  CATALOG 

ASK  FOR  QUALITY  SOFTWARE  products  at  your  favorite  compuler  store.  It  neces- 
sary you  may  order  directly  (rom  us.  MasterCard  and  Visa  cardtiolders  may  place 
orders  by  :alling  us  at  (213)  344-6599.  Or  mail  your  check  or  bankcard  number  to  the 
address  above.  California  residents  add  6%  sales  tax.  Shipping  Charges:  Wittiin 
North  America  orders  must  include  St. 50  tor  stiipping  and  handling.  Outside  ISIorth 
America  the  charge  tor  airmail  shipping  and  handling  is  S5.00.  Pay  in  U.S.  currency. 

QUTiLrry 

SOFTW71R6 

&i60  Reseda  Blvd  .  Suite  105.  Reseda,  Co  91335  i2:j':  3^3-fc59v' 
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must  be  one  or  uvo  of  you):  presumably  one  of  lliem 
is  connected  via  the  MacroTronies  interface;  if  so,  try 
niocliiyiiit,Mlie  MacroTronies  baudler  so  thai  "i'l:" 
reicrs  to  llie  Atari  850  interlace  while  "P2:"  refers  to 
the  MacroTronies.  It's  really  a  fairly  easy  project, 
presuming  you  ha\e  the  listings  of  Atari's  OS  (which 
are  a\ailablc  from  Atari). 

Rules  For  Writing  Device  Handlers 

Each  device  which  has  its  handler  address  placed 
into  the  handler  address  table  (above)  is  expected 
to  conform  to  certain  rules.  In  particular,  the  driver 
is  expected  to  provide  six  action  subroutines  and 
an  initialization  routine.  (In  practice,  I  believe  the 
ciurent  Atari  O.S  only  calls  the  initialization  routines 
for  its  own  pre-defined  devices.  Since  this  may 
change  in  future  OS's  and  since  one  can  force  the 
call  to  one's  own  initialization  routine,  I  nnisi  rec- 
onnnend  that  each  driver  include  one,  even  if  it 
does  nothing.)  The  address  placed  in  the  handler 
address  table  must  point  lo,  again,  another  table, 
the  form  of  which  is  shown  in  Figure  2. 

Notice  the  six  addresses  which  must  be  speci- 
fied: and  note  that,  in  llie  table,  one  must  subtract 
one  from  each  address  (the  "-I"  simply  makes 
CIO's  job  easier. ..honest).  A  brief  word  about  each 
routine  is  in  order. 

The  OPEN  routine  must  perform  any  initiali- 
zation needed  by  the  device.  For  many  devices, 
such  as  a  printer,  this  may  consist  ofsimply  checking 
the  device  status  to  insure  that  it  is  actually  present. 
Since  the  X-register,  on  entry  to  each  of  these 
rouiines,  contains  the  lOClB  number  being  u.sed 
f(n-  this  call,  the  driver  may  examine  ICAX 1  (via 
LDA  K:AX  1  ,X)  and/or  ICAX2  to  determine  the 
kind  of  OPEN  being  requested.  (Caution:  Atari  OS 
preempts  bits  2  and  3,  $04  and  $08,  of  ICAX  1  for 
read/write  access  control.  These  bits  may  be  exam- 
ined, but  should  normally  not  be  changed.) 

The  CLOSE  routine  is  often  even  simpler.  It 
should  "turn  off  the  device  if  necessary  and  if 
possible. 

Ihe  PU  1  BYTE  and  CIETBYTE  routines  are 
just  what  are  implied  by  their  names:  the  device 
handler  must  supply  a  routine  lo  output  one  byte 
to  the  device  and  a  routine  to  input  one  byte  from 
the  device.  Hoivever,  for  many  devices,  one  or  the 
othei-  of  these  routines  doesn't  make  sen.se  (ever 
tried  to  input  from  a  printer?).  In  this  case  the 
routine  may  simply  RTS  and  Atari  OS  will  supply 
an  error  code. 

The  STATUS  routine  is  intended  to  imple- 
ment a  dynamic  status  check.  Generally,  if  dynamic 
checking  is  not  desirable  or  feasible,  the  roulitie 
may  simply  return  the  status  value  it  finds  in  the 
user's  lOCB.  However,  it  is  not  an  error  under 
Atari  OS  to  call  the  status  routine  for  an  unOPENed 


device,  so  be  careful. 

The  XI O  routine  does  just  what  its  name 
implies:  it  allows  tlic  user  to  call  any  and  all  spec  ial 
and  wonderful  routines  that  a  given  device  handler 
may  choose  tcj  implement.  OS  does  nothing  to 
process  an  XIO  call  except  pass  it  to  the  appropriate 
driver. 

Note:  In  general,  the  AUXilHary  bytes  of  each 
lOCB  are  available  to  each  driver.  In  practice,  it  is 
best  to  avoid  ICAXl  and  ICAX2,  as  several  BASIC 
and  OS  commands  will  alter  them  at  their  will. 
Note  that  IC^AXS  through  1('.\X5  may  be  used  to 
pass  and  receive  information  to  and  from  BASIC 
via  the  NOTE  and  POINT  commands  (which  are 
actually  special  XIO  commands).  Finally,  drivers 
should  not  touch  any  other  bytes  in  the  lOCBs, 
especially  the  first  two  bytes. 

Notice  that  handlers  need  not  be  concerned 
with  PU  r  BINARY  RECORD,  GE  F  TEXT 
RECORD,  etc.:  OS  performs  all  the  needed  house- 
keeping foi'  these  user-level  commands. 


HANDLER 


.WORD  <addressofOPENroutine>-l 

.WORD  <  address  of  CLOSE  routine>-l 

.WORD  <  address  of  GETB YTE  routine  >  - 1 

.WORD  <addressofPUTBYTEroutine>-l 

.WORD  <addressofSTATUSroutine>-l 

.WORD  <addressofXIOroutine>-l 

JMP  <address  of  initializalion  routine  > 


Figure  2. 


Rules  For  Adding  Things  To  OS 

We  touched  on  this  subject  last  monlh,  in  the  section 
tided  "The  F^asiest  Way  of  Making  Room?",  but  a 
review  and  an  addition  are  in  order.  Both  Atari 
EMS  (File  Manager  System,  otherwise  known  as 
DOS  and/or  the  l)isk  Device  Driver)  and  the  serial 
port  handlers  follow  the  same  scheme  when  they 
add  them.selves  to  OS,  so  it  is  safe  to  assume  that 
this  method  may  be  considered  the  de  facto  Atari 
standard.  We  enumerate: 

1.  Inspect  the  system  MEMEO  pointer  (al 
$2E7,  I  called  it  LOMEM  last  month,  which  is 
BASICTs  name  for  it). 

2.  Load  your  routine  (including  needed  buf- 
fers) al  the  cm-rent  value  of  MEMLO. 

3.  Add  the  size  of  your  routine  to  MEMLO. 

4.  Store  the  resultant  value  back  in  MEMLO. 

5.  Connect  your  dri\  er  to  OS  by  adding  its 
name  and  address  into  the  handler  address 
table. 

6.  Fool  OS  so  that  if  SYSTEM  RESET  is  hit 
steps  3  through  5  will  be  re-executed  (because 
SYSTEM  RESET  indeed  resets  the  handler 
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address  table  and  the  value  of  MEMLO). 

In  point  of"  fact,  step  2  is  the  hardest  of  these 
to  accomplish.  In  order  to  load  your  rotuine  at 
wherever  MEMI.O  may  be  pointing,  you  need  a 
relocatable  (or  self-relocatable)  routine.  Since  there 
is  currently  no  assembler  for  the  Atari  which  pro- 
duces relocatable  code,  this  is  not  an  easy  task. 
{However,  I  jusi  happen  to  have  a  method  which 
works.  But  it  will  have  to  wait  for  a  later  article.) 

Step  6  is  accomplished  by  making  Atari  OS 
think  that  your  driver  is  the  Disk  driver  for  initiali- 
zadon  purposes  (by  "stealing"  the  DOSINI  vector) 
and  then  calling  the  Disk's  initializer  youiself  when 
steps  3  through  5  are  performed.  This  is  a  fairly 
simple  process,  but  again,  details  must  await  a 
future  article. 

Yet  Another  Real  Live  Example 

I  promised  last  month  that  we  would  present  a 
driver  for  a  "peripheral"  device  found  in  every 
Atari,  yet  not  supported  by  any  Atari  device 
handlers.  1  could  have  been  cagey  and  presented  a 
driver  for  a  "Null"  device.  {.\  handy  thing  to  have, 
actually:  One  can  ihiow  away  one's  output  vet^i  fast 
when  trying  to  debug  a  piogram.  See  De  Re  Atari 
for  a  simple  implementation  of  one.  Better  yet,  try 
to  write  one  from  the  information  presented  here- 
in.) Being  a  glutton  for  punishment,  I  undertook 
to  write  a  truly  useful  handler  for  Atari's  overlookcxl 
device:  RAM  memorvl! 

After  the  snickers  and  sarca.stic  comments  die 
down,  let  me  point  out  how  trul)-  useful  such  a 
device  is  to  BASIC  programs:  program  one  can 
"write"  data  to  RAM  and  then  chain  to  program 
two,  which  then  "reads  "  the  same  data  back.  Voila! 
Chaining  with  COMMON  in  Atari  BASIC.  So 
herewith  the  "M:"  (Memory)  driver,  pre.sented  in 
its  entirety  in  Figure  3, 

Does  It  Work? 

Some  words  of  caution  are  in  order.  This  driver 
does  not  perform  step  6  as  noted  in  the  last  section 
(but  it  may  be  reinitialized  via  a  B.-XSIC  USR  call). 
It  does  not  perform  self-relocation:  instead  it  simply 
locates  itself  above  all  normal  low  memory  usage 
(except  the  serial  port  drivers,  which  would  ha\-e  to 
be  loaded  after  this  driver).  If  you  assemble  it  your- 
self, you  could  do  so  at  the  MEMLO  you  find  in 
your  normal  system  configuration  (or  you  could 
improve  it  to  be  self-modifying,  of  course). 

Other  caveats  pertain  to  the  handler's  usage:  it 
uses  RAM  from  the  contents  of  MEMTOP  ($2E5) 
downward.  It  does  not  check  to  see  if  it  has  bumped 
into  BASICrs  MEMTOP  ($90)  and  hence  could 
conceivably  wipe  out  programs  and/or  data.  To  be 
safe,  don't  write  more  data  to  the  RAM  than  a 
FRE(O)  shows  (and  preferrablv  even  less). 


In  operation,  the  M:  driver  reinitializes  upon 
an  OPEN  for  \yrite  access  (mode  8).  A  CLOSE 
followed  by  a  subsequent  READ  access  will  allow 
the  data  to  be  read  in  the  order  it  was  written. 
More  cautions:  don'i  change  graphics  modes  be- 
tween writing  and  reading  if  the  change  would  use 
more  memory  (to  be  .safe,  simply  don't  change  at 
all).  The  M:  will  petform  almost  exactly  as  if  it 
were  a  ca,sselle  file,  so  the  user  program  should  be 
data  sensitive  ii  necessary:  the  M:  driver  will  not 
itsell  give  an  error  based  on  data  contents.  Note 
that  the  data  may  be  re-READ  if  desired  (via  CLOSE 
and  re-OPEN). 

Installing  Tlie  M:  Driver 

The  UKJSt  obvious  way  to  install  this  driver  (Program 
I)  is  to  type  in  the  soince  and  assemble  it  direcdy  to 
the  disk.  Tlien  simply  loading  the  object  file  from 
DOS  2  (or  OS/AH-)  will  activate  the  driver  and 
move  LOMEM  as  needed.  You  could  even  name 
the  resulting  file  "AUTORUN.SYS"  so  that  it 
would  be  atitomatically  booted  on  power  up. 

If  you  don't  have  an  a.ssembler  and/or  disk, 
the  prol)lem  is  a  little  more  diftkult.  If  you  are 
comfortable  wiiiing  B.'\SIC:  programs  that  load 
assembly  language  data  to  memory,  you  niigth  tise 
the  techniques  described  in  last  month's  "Make 
Room?"  to  reserve  the  reqtiired  memory.  Then  a 
simple  I'OKEr  program  which  uses  DATA  state- 
ments would  suffice. 

Bui  the  assembly  listing  given  here  is  designed 
for  a  disk  system  ancl  would  waste  5K  bytes  or  so  in 
a  cas.sette  system.  So,  if  you  can't  reassemble  it  and/ 
or  write  that  POKEr  program,  you  will  just  have  to 
be  palient:  I  will  try  to  give  you'a  simplified  BASIC 
POKEr  program  next  month. 

A  suggested  set  of  BASIC  programs  is 
presented: 

Ending  of  Program  1: 

9900  OPEN  #2,8,0,"M:" 

9910  PRINT  #2;  LEN(A$) 

9920  PRINT  #2;  A$ 

9930  CLOSE  #2 

9940  RUN  "D:PROGRAM2" 

Beginning  of  Program  2: 
100  JUNK  =  USR(  7984  ) 

[  to  insure  the  M :  driver  is  linked,  in  case  of 

RESET ] 
no  OPEN  #4,4,0,"M:" 
120  INPUT  #4,  SIZE 
130  DIM  STRING$(SIZE) 
140  INPUT  #4,  STRINGS 
150  CLOSE  #4 

BASIC  A-t-  users  might  find  RPUT/RGET 
and  BPiri  /B(;E'I  lo  be  useful  tools  here  instead  of 
PRI  NT  and  1 N  PU  \.  And ,  of  course,  users  of  any 
other  language(s)  might  find  this  a  handy  mter- 
program  communications  device. 


BASIC,  Part  1:  Why? 

The  flrsi  "VVhY!'"  1  usually  hear  is 
"Why  not  Micmsott  BASiC?" 
After  a  littlf  prohing,  1  find  thai 
the  que.stit>n  reallv  boils  down  to 
"Why  not  string  arrays?"  There  is 
no  simple  answer  to  that  question, 
so  I  hope  to  save  myself"  time  in 
the  future  ijy  pointing  toward 
these  articles.  liecause  I  intend  to 
give  the  true  and  not-so-simple 
answer,  along  with  sonic  (hope- 
fully) very  interesting  information. 

Believe  it  or  not.  Atari  BASIC 
pretty  much  works  the  way  it  was 
designed  and  specified.  .'\nd 
yours  truly  must  take  a  large  part 
of  the  brickbats  or  roses  you 
might  throw  because  of  those 
specifications.  We  (that  is,  at  the 
time,  Shepardson  Microsystems) 
were  just  Innshing  the  highly 
successful  and  very  powerful 
Cromemco  32K  Structured  BASICS. 
And,  while  a  few  Cromemco 
users  had  carped  about  the  lack 
of  string  arrays,  on  the  whole  the 
real  power  of  the  language  is 
extraordinarily  impressive.  All 
this  "power"  probably  went  to  our 
head(s),  so  ofcour.se  we  had  to 
duplicate  the  feat  for  Atari. 

Oops.  A  small  problem: 
Cromemco  gave  us  32  K  bytes  for 
Structured  BASIC;  Atari  gave  us 
lOK  bytes.  What  comes  out? 
Wrong  question!  What  can  stay 
in?!  Of  course.  Atari  had  some 
ideas,  too,  and  the  important 
features  that  we  ended  up  with 
include  {in  m\  opinion): 

Decimal  Arithmetic 
Long  Variable  Names 
Long  Strings  (more  than  255 

bytes) 
Flexible  I/O 
Reasonable  Assembly 

Language  Interface 
Syntax  CJicck  at  enlrh  time 

That  last  item  won't  be  appreciated 
by  those  of  you  who  haven't  used 
a  BASIC  that  doesn't  do  it,  so  I 
will  try  to  describe  the  horrors  to 
you:  You  type  in  a  long  program 
which  includes  a  line  such  as: 


<mm 


Beware  as  you  enter  the  Crypts  Of  Terror.  No  one  has 
survived  this  horror.  Only  your  unrelenting  nerve  and 
determination  v^^iil  drive  you  deeper  into  the  unknown. 

Find  what  lurks  in  these  ancient  crypts!! 

At  last  we  have  found  an  adventure  with  full  graphics,  sound  and 
intrigue  for  your  ATARI  400 '800  computer. 

•  CRYPTS  OF  TERROR  is  the  first  adventure  game  that  was 
completely  designed  for  the  Atari  computers  only.  The  graphics 
are  the  finest  available  using  the  full  potential  of  the  Atari. 

A® 

ATARI 

Atari  800'400  16K  requires  joysticks. 

Payment:  Personal  Checks  -  allow  three  weeks  for  check 

to  clear. 
American  Express,  VISA,  MasterCard  -  include  all  numbers  on 
card.  Please  include  phone  number  with  all  orders. 
Orders  from  USA  $29.95  (US  funds) 
Orders  from  Canada  $39.95  {Canadian  funds) 
Plus  $2.00  for  shipping, 

Ontario  residents  add  7%  R.S.T. 

Check  your  local  computer  dealer  for  Crypts  Of  Terror. 

Dealer  inquiries  encouraged. 
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1560YongeSt. 
P.O.  Box  10 
Toronto 

Ontario  Canada 
M4T1Z7 


FREE  SHIPPING  FREE  SHIPPING  FREE  SHIPPING 

JK  CENTRAL  A\ 
GOES  NATIONAL!!! 

HW  ELECTRONICS -THE  #1  SOURCE  FOR 
QUALITY  ATARI  PRODUCTS! 


ATARI  400/800  TECHNICAL  USER  NOTES 

A    MUST   for   anyone   wishing   to   delve   into    the 
powers   of  the   ATARI    computer   system.    Includes 
detailed    information    of    the    hardware    (including 
schematics)  as  well  as  the  Operating  System. 
Cat  No.  3141  $27.00 

AN  INVITATION  TO  PROGRAMMING  2 

Learn  how  to  write  programs  in  BASIC.  These 
lessons  cover  library  functions,  FOR... NEXT  loops, 
subroutines,  and  READ,  DATA,  DIMension,  PEEK 
and  POKE  statements.  They  also  cover  flow  charting 
and  programming  structure.  Includes  two  cassettes 
and  a  workbook. 

CatNo.  3250  8K,  Cass.  $24.95 

AN  INVITATION  TO  PROGRAMMING  3: 
SOUND  &  GRAPHICS 

The  sound  cassette  covers  simple  music  theory  and 
ATARI  BASIC  commands  for  setting  the  sound 
registers  to  the  desired  pitch,  purity,  and  loudness 
levels.  The  Graphics  cassette  teaches  you  to  use  the 
color  registers,  the  graphics  characters,  the  SET- 
COLOR  and  POSITION  statements,  and  graphics 
modes  0  through  5.  Includes  two  cassettes  and  a 
workbook. 
Cat  No.  3251  8K,  cass.  $24.95 

LE  STICK  by  DATASOFT 

The  joystick  of  the  future.  Internal  motion  detectors 

manuever  your  sights  in  any  direction  with  simple  one 

handed  movements.  The  large  pushbutton  provides  a 

quick  response  to  your  firing  commands. 

Cat  No.  2925  $39.95 

EASTERN  FRONT 

EASTERN  FRONT  simulates  Operation 
Barbarossa,  the  German  invasion  of  Russia  during 
World  War  II.  The  use  of  intricate  artificial  intelligence 
routines  and  high-resolution,  smooth-scrolling  terrain 
maps  eliminate  the  usual  drudgery  of  playing 
wargames.  To  top  it  off,  multiprocessing  permits 
simultaneous  moves  by  both  you  and  the  computer 
Cat  No.  3294  16K,  cass.  $26.95 

CatNo.  3295  32K,  disk  $29.95 

HOW  TO  ORDER 

Mention  this  ad  and  WE  PAY  SHIPPING  (UPS 
ground-USA).  Call  or  write.  Pay  by  check,  M/C,  Visa, 
or  COD  (add  SI. 40  for  COD). 
Offer  expires  Feb.  1,  1982. 


19511  Business  Center  Dr.  Dept.  Gl 

Northridge,  CA  91324 

(800)  423-5387  (213)  886-9200 


3034  IF  SYSTEMERROR  THEN 
PINT  "Bad  Disk  Drive": 
GOTO  4090 

Did  you  catch  it?  It  says  'PINT' 
where  it  should  say  'PRINT'. 
Most  microcomputer  BASICs  will 
happily  gulp  that  tine  in  with  nary 
a  burp.  Now,  13  months  later, 
when  that  dreaded  'systemerror' 
actually  occurs,  your  user  {who 
lives  in  Hong  Kong,  naturally) 
sees  the  helpful  message 

♦**SYNTAX  ERROR  at  LINE  3037 

When  you  have  fathomed  the 
implications  of  that,  calm  your 
nerves  so  we  can  continue. 

Needless  to  say,  we  were 
more  than  happy  to  include  the 
Syntax  Check  feature.  However, 
this  incltision  had  implications 
that  rippled  throughout  the  rest 
of  the  design  of  BASIC.  First,  you 
don't  get  something  for  nothing: 
such  syntax  checking  uses  memory, 
perhaps  one  to  two  kilobytes. 
Second,  pre-syntaxing  implies 
that  the  user  program  will  be 
"tokenized":  that  is,  the  user's 
source  will  be  converted  into 
internal  tokens  for  ease  of  execu- 
tion and  efficiency.  Even  Micro- 
soft BASICS  tokenize  the  key- 
words of  the  language;  Atari 
BASIC  tokenizes  everyihing: 
keywords,  variables,  constants, 
operators,  etc.  Thirdly,  the  deci- 
sion to  have  strings  longer  than 
255  characters  (coupled  with  the 
tight  memory  requirements) 
simply  precluded  any  implemen- 
tation of  string  arrays.  (In  fact,  I 
do  not  know  oi' any  small-machine 
BASIC  that  supports  string  arrays 
with  elements  longer  than  255 
characters.) 

Before  perusing  some  quickie 
programs  to  show  tlie  effects  of 
tokenizing,  1  sliould  like  to  give 
some  credit  where  it  is  due. 
Though  I  participated  in  the 
specifications  for  Atari  BASIC,  I 
had  little  to  do  with  the  actual 
implemeniaMon.  More  history: 
Atari  asked  us  (in  September, 
1978)  to  bid  on  producing  a  cus- 
tom "consumer-oriented"  BASIC 


for  them.  Sometime  in  October,  the  specifications 
were  fiiializecl  and  Paul  I.aiightoii  and  Katlileen 
O'Brien  (with  a  verv  little  help  from  three  iTtorc  of 
us)  began  to  work  in  earnest.  The  contract  called 
for  delivery  by  April  6,  1979,  and  included  delivery 
of  a  File  Manager  System  (DOS  I).  Atari  planned 
to  lake  an  early,  8K  Microsoft  BASIC  to  the  C>on- 
sunier  Electronics  Show  (in  Las  Vegas)  in  Jannarv, 
1979,  and  then  switch  later.  The  acltial  purcliase 
order  look  a  while  to  get  througli  Atari's  red  tape, 
and  the  final  version  thereof  is  dated  12/28/78  — 
about  one  week  iiftcr  both  BASIC  and  DOS  were 
delivered  lo  Atai  il  .\tari  took  Atari  BASIC  to  CES. 

Investigating  BASIC'S  Tolcens 

There  are  ihree  fundamental  types  of  tokens  in 
Atari  BASICS  each  of  which  occuj^ies  exactly  one 
byte  of  RAM  memory,  with  only  two  special  cases. 
The  token  types  are  statement  name  tokens,  o|jer- 
ator  name  tokens  (which  include  function  names 
and  some  other  miscellany),  and  variable  name 
tokens.  The  special  cases  are  numeric  and  string 
constants,  wliich  begin  uiih  an  operator  name 
token,  Inu  are  followed  by  the  actual  value  of  liie 
constant. 

Slalemeiu  name  tokens  can  only  occur  as  the 
first  item  of  a  stalentent  and,  thus,  have  their  own 
keyword  and  tokenizing  table.  In  tiieory.  Atari 
BASIC'S  structure  could  support  up  lo  256  types 
of  statemenls.  Variable  name  tokens  and  operator 
name  tokens  are  intermixed  throughout  the  rest  of 
a  statement  and  are  distinguished  by  the  stale  of 
their  upper  bit:  variable  name  tokens  have  their 
u|)per  bit  on,  operators  don't. 

A  few  of  the  statement  types  are  also  special 
cased  in  ihal  they  arc  not  followed  by  operator  and 
variable  tokens.  These  special  cases  include  the 
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A  Revolutionary  Concept  In  Software 
For  The  ATAPr  400  and  800  Connputers 

Sammy  The  Sea  Serpent 

A  Storybook  Program  For  Children  Ages  4  to  7. 

Sammy  The  Sea  Serpent 

is  the  story  of  an  imaginery  sea  creature  who 
is  lost  and  trying  to  find  his  way  home.  The 

story  is  read  aloud  to  your  child  by  a 

professional  actress.  While  the  tale  is  being 

told,  the  child  uses  the  joystick  to  help  Sammy 

out  of  some  tight  spots. 

The  A  side  of  the  cassette  contains  the 

interactive  story;  the  B  side  contains  games 

that  the  child  plays  with  Sammy. 

The  program  uses  voice,  sound  effects,  music, 
color  and  mixed  graphics. 

Sammy  The  Sea  Serpent 

can  be  used  with  either  the  ATARI  400  or  800 

and  requires  16K.  It  is  available  in  cassette 

format  only.  Price  is  S  16.95  plus  $2.00 

shipping  and  handling. 

Also  available  at  fine  computer  stores. 


Program  Design.  Inc./l  I  Idar  Court  Greenwich,  CT  06830 
203-661-8799 


ATARI  IS  Ihe  registered  liademark  of  ATARI.  Inc- 
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ATARI  m>  1th  iin.  401;  Preferred.;;  .-GRbPHICS  EDITOR" ';'.  NOH,  both  2-D  and  3-D 
5cent5  can  be  designed  nith  s  JOYBTiCK,  and  then  saved  to  disl""  These  scenes 
cafi  then  be  loaded  in  later  to  be  edited  before  you  save  it  again  under  another 
naie"  All  of  this  can  be  done  using  SNV  graphics  lode'"  But  that's  not  all!" 
*ou  can  save  entire  screens  OR  just  individual  iiaqes  in  2-0  OR  3-D"  Vou  have 
the  option  of  giving  the  nen  scenes  different  file  naies,  a  MENU  of  dislf  files 
IS  5hO"n  on  the  screen  as  vou  choose  the  file  nane.  fl  'HELP"  option  is  included 
sould  you  have  trouble  mtii  SN¥  operition.  If  you  decide  to  use  the  3-D  option, 
vau  iav  change  the  3-D  vibkIsI  of  the  objectisl  on  the  screen.  Uses  Player-Nis- 
sile  Graphics  for  the  'cursor',  POtlERFUL,  flNO  HELL  DOCUMENTED"  Disk  version  is 
recoitended  l-jdd  I5.00"),  N/5  Proqrais.  ONLY  i2?.95  Ml. 50  pth.  on  Cassette 


COLOR  COMPUTER  EJTENDE8  BASIE^^l-D  C.C.  GRAPHICS  PftCKfl6E"';(  KDN.  you  can  get 
our  popular  3-0  Graphics  Package  for  your  Color  Coiputer"  Design  your  oun  era 
phics  with  a  Joysticl  and  view  these  uages  froi  any  angle  you  tiant'"  Softwan 
selectable  screen  resolutions,  Colors,  Viemno  angles,  flotation,  object  erase  k 
replaceicnt,  wide-anqle  or  telephoto  views,  along  «ith  ALL  of  the  reouired  3-B 
operations  to  change  viewers  location. ii/listings'ONLV  t24.95ni.50  pth. cassette] 


;FL1GHT  5IHULftT0R<fteq.  24K  ATARI  or  lit  TRS-SO  CDL.CBP.A  firaphic  Flight  siiuU 
tor  for  1  pUver.  Vou  have  to  taite-off  t  nawigate  to  the  neict  airport  -watcMnn 
obsticles"  Then  atteipt  to  land  at  the  airport-  if  vou  have  enough  fuel'  Great 
graphics'  Different  difficulty  levels. Requires  one  joystick. Only-11?. 95  ^.''bpih 


■TRIP  TO  JUPITER  SPftEE  ADVENTURE'';  Reg.  2».  ATARI  or  14K  COLOR  COdPUTEfi.  Launch 
your  space  craft  froi  Earth  I  get  on  a  trajectory  to  JUPITER'  Obsticles  to  nav- 
igate througbl  Land  on  JUPITER  and  re-launch  your  craft  i  bring  it  to  orbit  and 
re-connect  with  the  llothercraft  and  head  bacl  to  Earth! '  0NLV-tl8.95  *  «.95  pth 


■.3-D  RED  BARON  DOGFIGHT/  FLIGHT  SI«yLftTDR'<  Reg.IiS  ATARI  or  14k.  C.ChP,  NOkl  jou 
can  play  this  e«citing  3-D  smulation  'qaie  on  both  coiputers'  Done  in  HI-R£b" 
You  are  in  pursuit  of  the  faied  RED  BARON,  and  catching  up  to  hu.  If  you  don  t 
shoot  hu  down  soon,  his  tail  gunner  starts  shooting  at  you'-  Out-ot-the  cockpit 
view,  w/ALTIHETER,  RADAR,   BANKING  HETER,  1  NilNBER  (IF  kllNS.  Only-»l6.95  t.95  pih 


lF:3-eO  POlKET  COI1PtJT£|i:,>i(UI1PU5  ADVENTURE'v:  How  you  can  plav  our  popular  NUflPUS 
Qoie  on  vour  P.C.  Ulth  A  4  page  tanual  and  listing,  on  casEette-»7.95  t,95  pih 
Pa-,  b;  Cheek  or  nonev  Order  iprefferedi  ,Foriegn-U.S. funds  ONL>,CAL.i?.  sales,  tas 


DON'T  ASK  PRESENTS:  A     C)  I  I  Q  f~ 

For  the  ATARI  400/800 


Match  wits  with  your  computer  in  an  insult 
war!  With  ABUSE  your  computer  becomes  a 
slifjhlly  demented,  smai1-aleck  insult-exchanger, 

•  Millions  of  different  insults. 

•  Understands  and  responds  to  user  input. 

•  Hybrid  BASIC/machine  language  program. 

•  Game  feature:  become  a  Master  of  ABUSE. 

•  Many  surprises  to  discover. 

Release  your  aggressions!  Inflict  ABUSE  on 
anyone  who's  got  it  coming! 

REQUIRES  40K  RAM  AND 
BASIC  CARTRIDGE 

Dealer  inquiries  welcome 
Available  soon  for  tiu;  Ap])le!  II 


At  your  computer  store  or  send  $19.95  +  $2.00  handling  to: 

DOX'T  ASK  -  2265  Westwood  Blvd.  B-150  -  Los  Angeles,  CA  90064  -  (213)  397-8811 

Calif,  rejiidems  add  6%  salL'.s  tux. 


ATARI  IS  a  Uademaik  qI  ATARI  IhC 

APPLE  IS  3  Irafltmaik  ol  APPLE  COMPUTER  INC 


obvious  REM  and  DAI  A  and  the  nol-so-obvious 
ERROR  (the  slaLemeiU  name  given  to  lines  con- 
taining a  s)'ntax  eiror). 

Since  each  variable  is  reduced  to  a  single  byte 
(with  it.s  upper  bit  set),  there  are  a  maxiniuin  of 
128  different  variable  names  per  program.  There 
is  the  further  implication  that  B.^SIC  must  t-e- 
nicniber  the  association  of  name  to  token  in  order 
to  LIST  your  program  back  to  you.  The  actual 
ATASCII  names  aie  stored  in  the  "Variable  Nanre 
Table."  and  we  investigated  its  structure  in  COM- 
PUTE! #17  under  the  heading  of  "VARIABLE, 


VARIBLE.  VARABLE."  (Briefly,  the  names  are 
simply  stored  one  after  the  other,  with  tlie  upper 
bit  of  the  last  character  of  each  name  turned  on.) 

The  statement  and  operator  names  are  ob- 
viously predefined  in  the  BASIC,  ROM  cartridge, 
and  we  offer  herewith  a  program  (Program  2) 
which  prints  out  the  token  numbers  and  corre- 
sponding keywords.  When  you  run  the  program, 
you  will  notice  that  some  operators  (especially  the 
left  parenthesis)  appear  to  be  repeated.  They  are. 
We  will  find  out  whv  next  month. 


Program  I. 

A    ill  a  M  p  1  e    ci  e?  V  .i.  c  e    d  r  :i.  v  &  r    f  o  r    A  l;,  a  r  :i.  '  t;;    0  S 
general    remarks    - 


0000 


^-  0  'J  0  *  p  A  i;  E      "  -  - 9  (3  |-r  e  r  a  1    r-  e  m  a  r  k ;.-; 

.1.  U  .1.  U  f    f    y    y    ,     t    I     f    f    r    j    t    {■    f    i    r    f    f    f    f    ^    f    i    ;    ;    t    t    t    t    f    } 

10  20  t 

1030  :    The    "M;"    (:ir:i.ver 

1  0 4 0  J  U s :i. I'l (:.!    M e m o v ^-j    a s    b    r'l p v i  (■■  f-^ 

1050  t 

1  0  6  0  t    J. n c:  1 1..I d e ■;:;    i i--i s i; ;ii ].  1 ;;; t :i. o I'l    |:> r o c; r ii? m 

1 0  7  0  J 

108  0  i    Writ  ten    b^i    tisiLll    WiLlkinson 

1  0  9  0  ;  f  c)  r    1 J  3  |-i  I..I  B  r  \:it    :L  9  G  2  ,    C;  ( J  M  F-'  I J  T  F  ' 

110  0  ; 

.1.  ±  .L  u  f  •  ?  ?  r  ?  f  *  (■  j  f  *  f  f  ?  f  ;.  J  f  J  J  ,  f  J,  j  ;  ;  }  ;  J  J 


03^A 

1150 
llAO 

ICAIJXI 

:. 

$3^tA 

0  0  09 

117  0 
1180 

OF^'DUT 

♦ 

•-■ 

B 

02i:i:7 

1190 

MEMLQ 

::: 

t2E7 

02E5 

1 2  0  0 

1 2 1  0 

MEMTOF" 

* 

■■■■ 

$2E5 

OOEO 

1220 
1230 

FRl 

. 

$En 

0  001 

1240 

status; 

GK    ^ 

■■       1 

0  0  8£! 

12^jO 
1260 

STATUir 

* 

f;de 

-■■■-■■■  *sa 

031A 

1270 
12S3  0 

HATABS? 

9 

:::: 

$31 A 

0  1  0  0 

129  0 

HIGFH 

:r.: 

%  1  0  0 

OOFF- 

130  0 
1310 

LOW 

♦ 

"■ 

■|:FF 
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112  0       t 

1130     ;     EQUATES    INTO    ATAf;:I'S    GS ,     ETC, 
1 1 4  0     I 

;    The    AUXl    byte    of    IOCE;: 

J    Mode    3    Is    OPEN    for    OUTFHJT 

;    pointer    to    bottoM    of    free    F\AM 
t    poiritei"     1,0    top    of    fi'ee    Fi:AM 

t    Elty    F-'t    F<e9is;ter    1*    sor3tch 

t      I/O     W3B     CjOOd 

;    re  a  c  h  e  d    a  n    e  i"i  d  -  o  f '  ••■■  f  i  1  e 


i    divisoT^  for  hiqh  byte 
;  MB  si-:,  for  low  bvjte-:-; 

A  saw  pit?  device  dr^ivei'-  for    At.-isv  i "' b  OS 
The  instsllst ion  routiiie 

0000         132  0         ,F'AGE  "The  installation  routine" 

133  0  ; 
00  0  0         134  0         ^-         iFlFOO 

1350  I  This  fii-st  routine  is  siMpl'd 

136  0  ?  used  to  connect  the  driver 

1 37  0  t  t  c)  A  t  a  r  i  ■'  ^i  h  is  n  d  :L  e  t^  ;;*  o  d  r  e  s  <;; 
1380  ;  table. 

139  0     t 

140  0    LOAF) AND Qu 

1 F  0  0    A  2  0  0         1 4 10  1...  F)  X  -IF  u  J    W  e    h  e  q  i  n    a  t    s  t  a  r  t    o  f    l,  a  b  X  e^ 

142  0    SEARCFIING 

IF 02    F:iF^lA03    143  0  L[)A  HATAL:;8>X       ',     Check    device    nawe 

BEQ  EMPTYFDIJND    j    Found    last    one 

CMP  *'M  ■'     f    Already    have    m    ? 

BEQ  MINSTALLED    ?    Yes,    don't    reinstall 
INX 
IHX 

INX  f    P'oint     ti:)    riext    enlr-y 

BNE  SEAF1;CFU:NG    |    and    keep    looking 
RTS  I     Fiuh?    Ii-ipossiblei  !  I 

We    foi,.irid    tfie    ci.."r r erit    ei'sd    of    the 

1540  ;  table,.. SG  extend  it. 

1550  ; 

156  0  EMPTYFOUND 
IFll  A94F)    1570         I...F)A   *'M        '     >    Our  device  nane,  "M:" 
IF  13  90 1 A  03  1580         ST  A   F'IATABG,X  i     is  first  byte  of  entry 
IF  16  A93B    159  0         LDA   #M[)irHv>ER&LaW 

1F18  9D1B03  1600         STA   FIATABSHtX  ;  LSB  of  driver  addr 
IF  IE:  A91F    1610         LF)A   #MF)RIUER/FIIGF1 

IF  ID  9D1C03  162  0         STA   HATABS  +  2,X  J  and  MSB  of  addr 
1F2  0  A9  0  0    163  0         LDA   #0 
IF  22  9F)1D03  1640         STA   F-lATABS  +  3  ^  X  ?  A  new  end  for  the  table 

165  0  : 

1660  ;  now  change  LOMEM  so  BASIC  won't 

167  0  ;  overwrite  us. 


1F05 

FOOA 

144  0 

1F07 

C94D 

145  0 

1F09 

F  0  1 A 

146  0 

IFOB 

E8 

1470 

IFOC 

E8 

148  0 

IFOD 

EB 

149  0 

IFOE 

D0F2 

150  0 

IFIO 

60 

:F  5 1 0 

152  0 

153  0 

Imagine  being  able  to  print  the  letter  "A" 
and  get  a  multi-color  space  ship.  Using  THE 
NEXT  STEP  and  a  minimum  of  programming 
effort,  you  can  do  it  in  no  time  at  all. 


THE  NEXT  STEP  contains  well-u;ntlen,  easy-to-use  documen- 
tation ^jvith  simple  BASIC  programming  examples  that  show 
you  how  THE  NEXT  STEP  can  help  develop  colorful  graphic 
displays.  Graphics  you  never  thought  possible  until  now. 

THE  NEXT  STEP  is  a  user  filendly.  menu  driven  graphics  tool 
kit  Ihat  allows  you  to  create  nea  character  sets  or  redefine 
characters  to  make  shapes  for  use  with  your  basic  or  machine 
language  programs.  THE  NEXT  STEiP  allows  you  to  save  these 
"new"  characters  on  disk  for  future  use. 


THE  NEXT  STEP  is  perfect  for  use  on  shapes  for  animation 
and  features  a  joystick  controlled  color  menu  to  make  your 
graphics  come  alive.  THE  NEXT  STEP  even  generates  its  own 
code  to  help  you  mcorporaie  new  characters  and  shapes  into 
your  programs. 


THE  NEXT  STEP  allows  you  to  see  your  shapes  as  you  make 
them.  Now  you  can  determine  ahead  of  lime  haw  characters 
will  interact  with  one  another  when  creating  shapes  for  Charac- 
ter Set  oir  Player-Missile  Graphics. 

THE  NEXT  STEP  helps  you  to  mix  any  of  ATARI'S  14  graphics 
modes  in  the  same  display,  THE  NEXT  STEP  is  a  perfect 
graphics  utility  for  the  BASIC  or  machine  language  programmer- 
novice  and  professional  alike. 


THE  NEXT  STEP  features  full  joystick  control  for  ease-of-use 
and  quick  editing. 


THE  NEXT  STEP  mns  on  any  32K  ATARI  400/800  with  a 
disk  drive  and  is  available  for  S39.95  at  your  local  computer 
store  or  order  direct  from 


Qa 


'LIME  *y^^*'"* 


THElNL 

VISA,  fi/lASTERCAHD,  CHECK,  CO.O. 


Add  $1.00  forSflipping  ^ 


B  ^■■^^^■^^^^^^W  36S7S  MUDG-E  RANCH  RDilD  •  CDflRSEGDLD,  Cii33B  14  •  HOg-Baa-BBSH  ^ 


1F2 


A900 


IF 27  aDi;;7  0  2 

1F2A  A92() 
1F2C  8DE80  2 


1F2F  60 


:LF3  0  6B 
1F31  FOCD 
1F33  A8 


IFG-'I 
1F35 
1F36 
IF  37 
IF  39 


68 
68 
88 

DOFB 
F0C5 


1680 
169  0 
1700 

1710 
1720 

173  0 

174  0 
1750 

176  0 

177  0 
1780 
1790 
180  0 
1810 
1820 
1830 
18-fO 
1850 
1860 

187  0 

188  0 

189  0 
19  0  0 
1910 
1920 
1930 

195  0 

196  0 


MIiNSTALLED 

I...  DA  #DRiyERTOP&LOW 

STA  MEMLO      t    LSB  of  top  sddr 

LDA  #DRIUERTOFVHICH 

ST A   MEMLG+1    ;  and    miB    therot 

+ 

t    and  that's  all  wo:^  have  to  do! 
♦ 

RTS 

» 

i 
i 

f 

*  *  <-  *  V  *  -:-  ■?  0  t  -:■  *  ■>  4  *  ^  -:  -^  .;.  if  ^  ^  V  .--  v  <■  « 

* 

;  This  entry  point  is  provided 

;  so  that  basic;  can  reconnect 

t     the  driver  via  a  U8R(REC0NNECT) 

i 

RECONNECT 

PL  A 

E:!f:'0   LDADANDCQ  J  No  parai^eters,  I  hopp 

TAY 
PULLTHEM 

PL  A 

'"■''■-A  ?     yet    rid    of    a    p ar^iiifiojier 

DEY 

BNE   PULLTHEM   I  and  pi..ill  another 
PEQ   LOADANDCO  \     90  reconnect 


13Q 
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A  s3Mple  device  driver  far  At3r:i. 
T  h  e  d  r  i.  v  e  r  :i.  "t  s  e  1  f 


1F3E1 


1F3B 
1F3D 
1F3F 
IF^I. 
1F^3 
1F4?J 
1.F^7 


^CIF 
AFIF 
9  2  IF 

esiF 

9F1F 
'^91F 
4C^A:LF 


IF^A  AOOl 
IF^C  60 


197  0 

198  0 
1.99  0 
2  0  0  0 
2  0  1 0 
2  0  2  0 
2  03  0 
20  4  0 
20'oO 
20  60 
2070 
2080 
2  090 
210  0 
2110 
2120 
2130 
21^0 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
229  0 
23  0  0 
2310 
232  0 


*PAGE  "The  driver  itself" 

Recall    thist    all    driver^fi    mubL 

b G    c o |-i n e c t e cl    t o' "  D 3    t i\ r  o ij ^fh h 

B    dT-iver    roi..«tiri(-ss    addriss*:;    biisble* 


M DRIVER 


»WURD  hOFEN-1   ;  The  addre'iises  Must 
.WORD  MCLOSE-1  f  whe  cjiven  in  this 
.WORD  MGETI3--1   J  ...order  and  Must  , 

.  .  ,  be  one  ( 1  '>     less 


.WORD  MPUTB-1 

.  W  0  r<  D  M  8  T  A 11 J  S  •■  :l.  ;     ...til  a  n    t  Y\  e  a  c  t  u  a  1 

.  W  0  R  D  M  X I  CI-- 1    ;  ...  3  d  d  r^  e  s  s 

JMF'   MI  NIT      ;  This  is  far  safety  only 

F" o r  M a I'l y  d r  i  v e r*  ^t  >  s o m e  o  f    t h e s e 
routines  atB    not  needed,  and 
can  effectively  be  null  routines 

A  null  routine  should  return 
a  one  (1)  in  the  Y-register 
t  o  i  ri  d  i  c  a  t  e  s  u  (:>  c  e  s  s  . 

HXID 

MINIT 


LDY   *1 

W  T  <:; 


,    success 


If  3  routine  is  oMitted  because 
it  is  illecjal  (reading  frcm  a 
P r  i ri t e r  ,  e t c  .  )  »  s  j. m p  1  y  pa i I'l t i i-i g 
to  an  RT8  is  adequate,  since 
Atari  OS  preloads  Y  with  a 
'  I"  1..1  n  c  t  i  o  r-i  Not  I  m  p  1  e  m  e  i "i  t  e  d  ''  e  n-  o  r 
return  cade. 


A  s  3  M  p 1 e  d  e  V  i  c  e  d  rive  r  f  o  r  A  t  a r  i ' s  0  S 
The  driver  f  l.i  ri  c  L  i  o  fi  r  o  u  t  i  n  e  s 


IF^D 


1F4D 
1F50 
1F52 

if:54 

1F57 
1F5A 
1F5D 

1F5E 


2330 
234  0 
2350 
2360 


BD4A0 

2903 
FOOD 
ADE5  0 
ODD  21 
ACE6  0 
88 
8CD31 


*     i     *     *     * 


♦PAGE  "The  driver  function 

if>ttftt>ttft*ttrf>tt>tittt 


routines" 


237  0 

238  0 
2390  ; 

24  0  0  MGPEN 

2410 

2420 

243  0 

2440 

2450 

246  0 

2470 

248  0 


Now  we  begin  the 
T' o I..I t i I'l e ;:;  't fi a t  d o 
work 


code  for  the 
tiie  3cti..ial 


I.J>A 
AN[) 
BED 
LDA 
ST  A 
LDY 
DEY 
STY 


ICAUXl 
to POUT 
OPENED 
MEMTGP 
M ST ART 
MEMTGP 

M3TAR 


,X 


•4- 


«EAD 


Check  type  of  open 

Opei'i  Por  out p Lit? 

'f    No..  *  as  SUM  e  for  input 

Wta  start  storing 

,.  .  .  the  bytes 

.  <.  .  one  page  below 

the  si..i|:> posed  top  or  Men 


eAPTIVITV 


^^5}^ 


the  most  Adv<inceci  maze  game  available  to  the 
ATARI*  owner 

A  new  game  by  Craig  Patchett  which  uses  machine 

language  routines.  5-color,  high-resolution  graphics 

and  sound  effects. 

The  player's  goal  is  to  guide  an  imaginary  robot  through 
and  out  of  a  3-dimensional  maze. 

20  game  variations  insure  countless  hours  of  enjoyment. 

CAmVITY  can  be  used  with  any  ATARIJ^  computer 

with  at  least  24K.  It  is  available  in  cassette  format 

only.  Price  is  $24.95  plus  $2.00  shipping  and  handling. 

Available  at  fine  computer  stores  or  write  us  directly. 


Program  Design,  Inc.  I  I  Idar  Court  Greenwich,  CT  06830 
203661 -8799 

ATARI*  is  Che  registered  trademark  of  ATARI,  Inc. 


ATARI  400/800  OWNERS: 
THERE'S  A 
MICROCONNECTION- 
FOR  YOU!  — 

Now  you  can  direct-connect  to  the 

telephone  with  or  without 

the  850™  ^ 

Interface, 

there's  also  a 

serial  port  to 

drive  a  printer, 

optional  autodial  and  autoanswer, 

and   snnart  terminal   software! 

Prices  start  at  $199.50  For  more 

details  write  or  phone: 

the  micropenpheraf  corporation 


2643A  -  151st  PI.  N.E. 

Redmond,  WA  98052 

(206)881-7544 


SOFTWARE  STREET 


PRESENTS 


ep^iiBi 


800  Cottputer  16k.t...t7I9. 

BOO  Cmputer  32k $769.00 

SOO  Conputer  ISK $939.00 

825  Printer(SO  coi)..t5?9.flti 

810  Disk  Drive $^29,00 

850  Mf.  Hod $155.00 

822  Thernal  Printer,. $329, 00 

8211  Printer $259,00 

110  Recorder ..,tis5,D0 

830  iiooew tHS.flO 

Special  Software  Packages 

The  Entertainer *o9,0fl 

Star  Rsidersj  Missile 
CoftHsnd,  arid  Joystid^.s. 

The  Proqrswier $5^.00 

BASIC  Proqrahflirtg 
lan^usqe,  Self  teaching 
guide  to  BASIC,  arid 
BASIC  reference  MsnLial 


The  Educator ,,,,,,,,, ,$99,(1 
m   Recorder,  BASIC 
prograhfiing  languaqef 
and  States  and  Capitals. 

TQF-  SELLING  PROGRAhS 

Missile  CQMfi3rid,,,,,,,,$33,96 

Asteroids ,..,,.  ,$33 .9ii 

Invitatiofj  to  Prog,  2.. $16.96 
Invitation  to  Prog,  3,, $16. 96 
AsseMoler/Editor ,.,... .$18.96 

Jaw  Breaker ,,,.,. $25,95 

Cranston  Marror. , ,,..,, ,$29.95 

Dodge  Racer ,,,,  .$19,95 

Atari  Word  Processor,, $129. 95 

Atari  World $59,95 

Star  Raiders , $39,96 

Intruder  Alert,. $H,95 

Saflfiy  the  Sea  Serpent.. IH, 9! 


Esvings  fro«; 
Atari 

Atari  Prografl  Exchange 
Adventure  International 
Cr^-jstsl 
P.D.I. 
L.J,K, 
Dynacortp 

Quality  Software 
fivalon  Hill 
Epy>: 

Coflputer  consul tan ts 
Synapse 
Datasoft 
United  Software 
On-Line 
O.S.S. 
Software  Street 

ATAFl  IS  A  REGISTERED 
TfiADEHARK 


Software  Street 
3392  Clipper  Dr. 
Chino,  CA  91710 
(7H)  591-3061 


Software  Street  is  yotjr 
wail  order  Atari  discojnt 
center. 


Shipping  costs.' 
Softuare-fiiniHLw  $2,00 
Hardware-prices  will  vary 
(please  call) 


prices  subject  to  charrge 
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249  0     ? 

250  0  ?  riDu  we    Join  ijp  with  Mtade  '}  open 


1F61  ADD21F 
1F6'^  8dce:if 

1F67  A0D31F 

IFAA  8DCF1F 


1F6D 

:i.F6r 


AOOl 
6  0 


1F70  BD4A03 
1F73  2908 
1F75  FOOC 

IF 77  ADCFIF 
1F7A  SDDOIF 
1F7[)  ADCFIF 
1F80  8DD1,1.F 


1F83 
1F85 


AOOl 
60 


1F86 
1F97 
IFBA 
IFSE: 
iF8D 
1F8F 
1F92 


48 

20  E 

60 

AOOO 

V1.E0 

20C01. 

60 


IF 


IF  93 
1F96 
1F98 
1F9A 
1F9C 


20A01F 

!;;:  n  0  7 

AOOO 
BlEO 
20C01F 


2510 
2520 

2530 
2540 
2550 

256  0 

257  0 
2580 


26  UO 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
263  0 
2690 
2700 
2710 
2720 
2730 
2740 
2750 

276  0 

277  0 
2780 
2790 

280  0 
2810 
2820 

2830 

284  0 

285  0 
2860 
287  0 
2380 
2890 
2900 
2910 
2920 
293  0 
2940 
295  0 
2960 
2970 

298  0 

299  0 
3  0  0  0 
3010 
3  0  2  0 
3030 
3  0  4  0 
3050 
3  0  6  0 
3070 


OPENFQRREAD 

LL)A       M  ST  ART 


;    <r>iMplb    MDve    the 


'<. E N T       ;     i  *  ts t a r~ t    p o i ri t e r 
■;T-vl       ?     t  ,  ,ta    the    current 


81 A  MCIJR 

LDA  MSTAF 

3TA  MCURRENT'M     I     ...pointer,    both    bytes 

I...DY  #  STATU  SDK 


RTS 


J    w e    d c) fi '  t    iij c k y\ owl  e d q e    f  a  i  1  >..i r  & 


t     the  routine  for  CLOSE  of  MS 

+ 

MCLQSE 

LDA  ICAlJXlfX       t  e:;heck    node    of    open 

AND  * OP GUT     ;  was  for  output? 

B  E  Q  M  C  L  R  E  A  D    I  ri  o,  ,  ,c  1  o  s  e  i  ri  p  li  t  '  f  i  1  e 

V- 

? 

LDA  H CURRENT  t  we  estisblish  our 

S  T  A  M  8  T  []  P      S  .  ,  .  1  i  m  :i.  t  s  o    t  h  a  t 

I... i:) A  M C U R R i;;: N T  t- 1  ;  *  ,  .  ri e ;•! t  u b e  c' a i". '  t 

ST A  MSTOP+l    i  .*.9o  too  far 


MCLREAD 


LDY   fSTATUSOK 

RTS  J  and  yuar  antecj'd  to  tae  ok 


;  This  routine  puts  one  byte 
;  to  the  MSMory  for  later 
•  retr  ieval ♦ 


MPUTB 


|:>HA  >  S3VG?  the  byte  to  be  l-'UT 

JSR  MGUECURRENT  J  yet  ptr  to  zero  page 

PL A  f  the  byte  again 

LDY  *0 

STA  (FRi)fY    ;  put  the  byte,  indirectly 

JSR  DECCURRENT  ;  point  to  ri;;t  byte 

RTS  ?  that's;  all 


t  t  t  t  i  t  ,  t  t  t  t  t  t  f  t  t  f  t  f  t  f  *  *  f  f  >  >  f  > 


t    routine    to    get    a    byte    put 
t    in    rteMory    before* 


MGETl 


^JSR  MS  TAT  US    5  any  More  bytes? 

BCS  MGETRTS    ?  no, ». err or 

LDY  *0 

LDA  ( F"  r;:  1 )  f  Y    t    \:i  ^-^  s  .  ,  .  g.  e  t  a  b  y  t  e 

JSR  DECCURRENT  ;  and  point  to  next  byte 


MGETRTS 
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1F9F 

6  0 

3080 

3090 
3  :l.  0  0 
3  :l.  1 0 

3120 
313  0 
31-^0 
3 1 5  0 
3160 
3170 
3  :l.  8  0 
3 1 9  0 

IFAO 

ZOBSIF 

32  0  0 

1.FA3 

CDDOIF 

32:10 

1FA6 

D009 

322  0 

IFAR 

CCDllF 

3230 

IFAE; 

DO  04 

3240 

IFAD 

AOGB 

3250 

IFAF 

3E! 

326  0 

IFBO 

60 

327  0 
3280 
3290 

IFBl 

AOOl 

330  0 

1FB3 

18 

33:1.0 

lFB'=f 

60 

332  0 

Fn"s 


check  the  status  of  the  dr:i. ver 


this  rout:Lne  is  a 
w  h  c  n    l-l;  E  A  D  i  n  9  t  h  e 
"M  t  "    never-  yets  e^ 
wrxtinq ,- 


i"ii-3    v; 

J  lid 

■file 

4    *    i 

r-  r  a  r  s 

when 

JbK 

MQUECURF 

&J 

u 

l    cu rr-ent  ptr  • 

■-  0  z  e  r  0 

:>a9e 

Ciir:- 

HSTGF- 

* 

t 

eny  More  bytes 

to  yel-? 

BNE 

MSTOH 

i 
t 

yes 

CPY 

M3TuP-*-l 

> 

double  cl'il-;. 

BNE 

M3TUK 

i 
f 

yes,  again 

LDY 

# ST AT USE 

:o\ 

,    oops  .  <.  <, 

3  EC 

* 

i 

no  i^ore  bytes 

RTS 

MSTDK 


LDY 
CLC 
RTS 


TUBUK 


all  is  ok 
flay  for- 


i:sy 


TB 


A  saMple  devic 
Mi  seel Isneous 


■!    di-:i. vei-    for    Atar^i 
; !..!  b  I- o  1..1 1  i  ri  e  iii 


OS 


1FB5 
1FB8 
IFBA 
IFBD 

IFBF 


ADCEIF 

BSEO 

ACCFIF 

84E1 

60 


3330 

334  0 

335  0 

336  0 

337  0 
33(D0 
339  0 
34  0  0 
3410 
3420 
3430 
3440 
345  0 
3460 
3470 
343  0 

349  0 

350  0 
3510 

352  0 

353  0 

354  0 

355  0 
3560 
357  0 
3530 
359  0 
36  0  0 
3610 
362  0 


♦PAGE  "Miscellaneous  subroutines' 


ftittttttttit)tittitt*tiffttt* 


finally,  we  have  a  couple  of 
short  and  siMple  routines  to 
Manipulate  MCURRENT,  the  ptr 
to  the  currently  accessed  byte 


tttfttitttftttttttttttttttttt 


MOUECURRENT  simply  Moves 
MCURRENT  to  the  floating 
point  register,  FRl,  in 
zero  page,   FRl  is  always 
safe  to  use  except  in  the 
Middle  of  an  expression. 


MDUECURRENT 
LDA 
ST  A 
LDY 
STY 
RTS 


MCURRENT 

FRl        ;  notice  that  we  use 
MCURRENTM  ,*  both  the  A  and 
I'" R 1  ■*■  1      ;  Y  F e q i s t e vb,  ,  ,  t h :L s 
;  is  for  MSTATUS  use 


ffffititittttlitltftfttlftitfft 

DECCURRENT  siMply  does  a  two 
byte  decr-eMent  of  the  MCURRENT 
pointer  and  returns  with  the 
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3630  *   Y  register  iridicatiriQ  GK  status* 
36^0  ;     NGTE  that  the  A  register  is 
3A50  ;   left  undisturbed. 

366  0  ; 

367  0  DECCURREiNT 

IFCO  ACCEIF  3680  LDY   MCUFd-iENT  t     check  LSSB's  value 

1FC3  D003    3690  BNF   DEC LOW     ;  if  non-zero ?  hSB    is  ok 

1FC5  CECFIF  370  0  DEC   MCURRENT+l  t     if  zero,  need  to  huMp  MSB 

3710  DEC EG W 

1FC8  CECEIF  3720  DEC   MCURRENT   J  now  burtP  the  LSB 

IFCB  AOOl    3730  LDY   *STATUSDK  ;  as  pronised 

IFCD  60      37^0  RTS 

A  sawple  device  driver  for  Atari's  OS 
RAM  usage  and  clean  up 

1.FCE         37S0         .PAGE  "RAM  usage  and  clean  up" 
3760  ; 

'IT "/  n   ♦  *  *  *  *  *  ft  *  +  •  «  t  V  6  *  :  ^  0  ■>  *  1^  *  *  s  *  fr  V  *  1'  t 
J//IJ  ttitttttfttrtttttfttiftttfttit 

378(1  • 

379  0  t    END  OF  CODE 

3BuO  I 

3B10  ; 

332  0  ;  Now  we  define  our  storage 

3e::io   ;   locations. 

3  8 'to     I 

386  0  f 

3S]70  ; 

388  0  ;  MCURRENT  holds  tlie  pointer  to 

3G90  ;  the  next  byte  to  be  PUT  or  GET 

IFCE  00  00    39  0  0  MCURRENT  .WORD  0 

39:1.0  ; 

3920  •  MSTOP  is  set  by  CLOSE  to  point 

3930  ;  to  tiie  last  byte  PUT,  so  GET 

3 9 -10  ;  won't  try  to  go  past  the  end 

39l^H)  J  of  data. 
IFDO  00  0  0    3960  M3T0P   .WORD  0 

3970  I 

398  0  ;  MSTART  is  derived  froM  MEM TOP 

3990  ;    and  points  to  the  first  byte 

''{ 0  0  0  *    s  t  o  T-  e  d .   T  h  e  b  y  t  e  s  a  r  e  s  t  o  t-  e  d 

-^010  t     in  descending  addresses  until 

-^020  ;  MSTOP  is  set  by  CLOSE. 
1FD2  0000    -^1030  MSTART  -WDRD  0 

'to^o  ; 

■^050  J  DRIVERTOP  bee  owes  the  new 

-^060  ;  contents  of  MEHLO 

2000         ''i070  DRIUERTGP  ■---    *-filiFF;i*FFO0 

^0  80  ;  (sets  to  next  page  boundary) 

^t090  J 

'110  0  ? 

'tl:lO  t    The  following  is  how  you  Make 

'1120  I    B    LQAD-AND-CO  file  under 

''IISO  t    Atari's  DOS  2 

IFD'}  4150  »-^         *2E0 

02EO     0  0 IF         '1160  .WORD    LOADANDGO 

"]  1 7  0    : 
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02E2         ^f;l9  0         .END 

A  ssnple  device  driver  for  Atari 's  DS 

RAM  usBcje  and  cJ. e;:>n  i..ip 

=  03^A  ICAUXl  -0  008  OPOUT  -02[L7  MEMLO  -02i;:5  MEMTOP 

=  0  0E0  FRl  -0001  STATUSDK  -0088  ST  AT  US  EOF  ==031 A  HAD  ABB 

=  0100  HIGH  -OOFF  LOW  IFOO  LOADANDQD       IF 02  SEAFtCHING 

1F11.  EMPTYFGUND      IFZI^.v  MINSTALLEID  :I.F3B  MDRI^'ER  -2000  DRIk^ERTOP 

1F30  RECONNECT       1F3^}  PULLTHEM  IF'K)  HOPEN           1F70  MCLOSE 

1F93  MGETB           1F36  MPUTB  IFAO  M STATUS         IF'IA  MX  10 

IF-^A  MINIT           :l.F6:l.  GPENFORREAD  lFi:)2  M  ST  ART          IFCE  MCERRENT 

IF  S3  MCLREAD         J.FDO  MSTGP  1FB5  MOUECURRENT     IFCO  DECCURRENT 

1F9F  MGETRTS          iFBl  HSTUK  IFCB  DEC LOW 


Program  2. 

100  REM  listing  of  3  proSrsni  to  print  token  values 

101  REM  and  their  ATASCII  eouivslents 
200  ?  -The  STATEMENT  Token  List"  :  ? 
210  ADDR  =  42161  :  SKIP  =  2  :  TOKEN  =  0 
220  GOSUB  1000  :  REM  call  the  token  printer 
300  ?  "The  OPERATOR  Token  List'  :  ? 

310  ADDR  =  42979  :  SKIP  =  0  ;  TOKEN  =  16 

320  GOSUB  1000  ,'  REM  aSain  call  to  print  tokens 

400  END 

1000  REM  Subroutine  to  print  a  keyword  table 

1001  REM  On  entry; 

1002  REM    ADDR  =  the  address  of  the  keyword  table 

1003  REM    SKIP  =  number  of  bytes  to  skip 

1004  REM  between  keyword  strings 

1005  REM   TOKEN  -  the  starting  token  number  for 

1006  REM  this  table 

1007  REM 

1050  IF  NOT  PEEK (ADDR)  THEN  ?!  7  J  RETURN 

Cnote!  both  tables  end  with  a  zero  byteT 

1060  PRINT  TOKEN?  t    REM  the  token  number 

1100  REM  Print  the  ATASCII  string  for  this  token 

1110  BYTE  =  PEEK (ADDR)  J  ADDR  =  ADDR+1 

1120  IF  BYTE  <  128  THEN  ?  CHR$(DYTE);  !  GOTO  1100 

1130  PRINT  CHR$(BYTE-128>  ;  REM  last  character 

in  keyword  has  upper  bit  on 
1140  ADDR  =  ADDR  +  SKIP  .*  REM  an  address  for  stmts 
1150  TOKEN  -  TOKEN  +  1  t     REM  to  next  keyword 
1160  GOTO  1000 
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Parti: 


A  Small  Operating 
System:  OS65D 
The  Disk  Routines 


T,  R,  Berger 
Coon  Rapids,  MN 


Editor's  i\'oi(':  In  this  first  pari  of  a  two-part  series,  Mr. 
Berger  presi'iils  vahiable  information  for  all  disk  drive 
iLsers.  The  article  coneludes  next  month  with  a  memory 
map  of  the  disk  routines  and  jlowcharts  for  all  the  major 
subroutines.  —  RTM 


In  this  article  I  will  examine  the  disk  routines  in 
OS65D  (VS. 2  NMHZ).  To  understand  tliese  sub- 
routines, it  is  neither  necessary  lo  know  precise 
details  about  the  physical  functioning  of  a  disk 
drive,  nor  to  know  about  various  methods  of  storing 
data  on  a  diskette.  However,  such  background 
makes  it  easier  to  understand  what  is  involved  in 
an  operating  system,  and  why  certain  processes  are 
done  as  they  are.  There  are  several  articles  [1-3] 
which  offer  very  good  general  descriptions  of  disk 
drives.  Furtlier,  manufacturers' drive  manuals 
usually  give  fairly  complete  descriptions  of  indi- 
vidtial  drives.  1  only  discuss  those  aspects  which 
are  immediately  applicable  to  the  functioning 
ofOS65D. 

The  Disk  Drive 

The  typical  diskette  looks  as  in  Figure  1 ,  A  magnet- 
ically coated  round  piece  of  |)lastic  is  enclosed  in  a 
protective  cardboard  envelope  which  has  an  inner, 
shppery  pla.stic  liner.  The  hub  of  the  disk  drive 
engages  tlie  large  hole  in  the  middle  of  the  plastic 
diskette  causing  it  to  spin  very  rapidly  inside  its 
envelope.  There  is  a  long  slot  in  the  envelope  en- 
abling the  head  of  the  drive  to  make  contact  with 
the  plastic  diskette. 

Imagine  a  large  nmnber  of  concentric  circles 
drawn  on  llic  plastic  diskette  so  that  jwrl  of  each 
circumference  is  visible  through  the  slot.  We  call 
each  circle  a  track  on  the  diskette.  When  the  diskette 
is  in  the  drive,  the  head  is  precisely  positioned 


under  one  of  these  circular  tracks,  and  contact  is 
made  with  the  diskette.  The  spinningof  the  diskette 
causes  this  track  to  coiuinually  pass  over  the  head. 
If  we  imagine  the  track  to  be  a  continuous  loop  of 
magnetic  cassette  recorder  head,  we  can  appreciate 
how  one  might  store  data  on  the  disk.  If  we  envision 
each  track  as  being  a  different  loop  of  tape  then  we 
can  begin  to  see  tlie  power  of  a  disk  drive. 

In  some  mini  floppies,  inserting  the  diskette 
and  closing  the  drive  door  brings  the  head  into 
contact  with  the  diskette.  On  other  drives,  there  is 
a  little  !e\er  with  a  soft  pad  attached  directly  above 
the  head  which  is  below  the  diskette.  On  drives 
'.vith  such  a  lever,  there  is  a  switch  which  causes  this 
slapping.  Turn  the  switch  on  and  the  head  engages 
the  diskette;  turn  it  ol'f  and  the  head  loses  contact 
with  the  diskette. 

The  head  can  slide  back  and  forth  along  the 
long  slot  in  the  diskette  accessing  all  the  concentric 
tracks  on  the  diskette.  This  sliding  motion  is  gener- 
ally accomplished  in  one  of  two  ways.  The  head 
may  be  on  a  screw.  Spinning  the  screw  one  way  or 
another  moves  the  heatl  in  or  out.  The  head  may 
be  on  a  flat  metal  band  which  is  looped  o\  er  some 
shafts,  or  it  may  be  on  a  wire  which  is  wound  around 
some  shafts.  Spinning  a  shaft  causes  the  head  to 
move.  The  slide  rule  dial  on  most  radios  works  by  a 
similar  principle:  i.e.  the  dial  pointer  is  mounted 
on  a  string  strung  over  pulleys  atid  wound  around 
the  tLHiing  knob  shaft.  Twisting  the  knob  moves 
the  pointer  across  the  dial.  Thus  the  back  and 
fortli  motion  of  the  disk  head  is  caused  by  the 
linniiig  motion  of  a  motor  shaft. 

Since  the  tracks  on  a  disk  are  very  close  to- 
gether, the  motor  only  needs  to  spin  a  small  fraction 
of  a  revolution  in  order  to  move  the  head  one 
track.  Very  special  motors  called  stepper  motors 
arc  u.sed  for  this  purpose.  When  the  motor  is  pulsed, 
it  spins  a  fixed  fraction  of  a  revolution  then  stops. 
If  puLsed  again,  it  will  spin  that  .same  fraction  again. 
Clockwise  or  counicrwise  motion  of  the  motor 
siiaft  translates  into  l)ack  or  fbrili  motion  of  the 
disk  head.  Consequently,  there  are  two  switches 
which  control  this  motor:  one  to  determine  direc- 
tion, the  other  an  0N70FF  switch.  If  we  set  the 
direction  switch  as  desired  then  Hick  the  ON/OFF 
switch  llrsl  to  on  (hen  to  ofT,  the  disk  will  move 
one  track. 

If  we  have  a  memory  location  in  the  computer 
which  tells  tis  the  track  number  (sav,  Frack  27)  on 


OSI 


TRS-80 


COLOR-80 


OSI 


GALAXIAN  -  4K  ■  One  of  (he  fastest  and  finest 
arcade  games  euer  written  for  the  OSI,  this  one 
features  rows  of  hard-hitting  evasive  dogfighting 
aliens  thirstv  for  vour  blood.  For  those  who 
loved  land  tired  of)  Alien  Invaders.  Specify 
svstem  —   A  bargain  at  S9.95    OSI 


LABYRINTH  ■  8K  ■  This  has  a  display  back- 
ground similar  to  MINOS  as  the  action  takes 
place  in  a  realistic  maze  seen  from  ground  levei. 
This  is,  however,  a  real  time  monster  hunt  as  yoj 
track  down  and  shoot  mobile  monsters  on  foot* 
Checking  out  and  testing  this  one  was  the  rT>ost 
fun  I've  had  in  years!  -  S13,9S.    OSI 


THE  AARDV ARK  JOURNAL 

FOR  OSI  USERS  ■-  This  is  a  bi-nnonthly 
tutorial  journal  running  only  articles  about  OSI 
systems.  Every  issue  contains  programs  custom- 
ized for  OSI.  tutorials  on  how  la  use  and  modify 
the  system,  and  reviews  of  OSI  related  products. 
In  the  last  two  years  we  have  run  articles  like 
these! 

11  A  tutorial  on  Machine  Code  for  BASIC 
programmers. 

21  Complete  listings  of  two  word  processors 
for  BASIC  IN  ROM  machines. 

3}  Moving  the  Directory  off  track  12. 

4}  Listings  for  20  game  programs  for  the  OSI. 

51  How  to  write  high  speed  BASIC  -  and 
lots  more  — 

Vol.  1  (T980I  6  back  issues  -  S9.00 
Vol.  2  (1981)  4  back  issues  and  subscription  (or 
2  additional  issues  -  S9,00. 

ADVENTURES!!! 

For  OSI,  TRSaO,  and  COLOR-80.  These 
Adventures  are  written  in  BASIC,  are  full  fea- 
tured, fast  action,  full  plotted  adventures  that 
take  30-50  hours  to  piay.  (Adventures  are  inter- 
active fantasies.  It's  tike  reading  a  book  except 
that  you  are  the  main  character  as  you  give  the 
computer  commands  Hke  "Look  in  the  Coffin" 
and  "Light  the  torch".) 

Adventures  require  3K  an  an  OSI  and  16K  on 
COLOR  80  and  TRS-80.  They  sell  for  514,95 
each, 

ESCAPE  FROM  MARS  Iby  Rodger  Olsenl 
This  ADVENTURE  takes  place  on   the  RED 
PLANT.   You  II   have   to  explore  a  Martian  city 
and   deal   with   possibly  hostile  aliens  to  survive 
this  one.  A  good  first  adventure. 

PYRAMID  (by  Badger  Olsen) 
This  IS  our  most  challenging  AO VENTURE.  It 
is  a  treasure  hum  m  a  pyramid  full  of  problems. 
Exciting  arid  tough! 

TREK  ADVENTURE  (by  Bob  Reielle) 
This  one  takes  place  aboard  a  familiar  starship. 
The  crew  has  left  frjr  good  reasons  *  but  they  for- 
got to  take  YOU. and  now  you  are  in  deep  trouble. 

DEATH  SHIP  (by  Rodger  Olsenl 
Our  first  and  original  ADVENTURE,  this  one 
lakes  place  aboard  a  cruise  ship  -  but  it  ain't  the 
Love  Boat, 

VAMPIRE  CASTLE  (by  Mike  Bassman) 
This  is  a  contest  between  you  and  old  Drac  - 
and  It's  getting  a  little  dark  outside.  $14.95  each. 


OSI  NEW-NEW-NEW  OSI 

TINY  COMPILER 

The  easy  way  to  speed  in  your  programs.  The 
tiny  compiler  lets  you  write  and  debug  your  pro- 
gram tn  Basic  and  then  automatically  compiles  a 
Machine  Code  version  that  runs  from  50-150 
times  faster.  The  tiny  compiler  generates  relocat- 
able, native,  transportable  machine  code  that  can 
be  run  on  any  6502  system. 

It  does  have  some  limitations.  It  is  memory 
hungry  —  8K  is  the  minimum  si^ed  system  that 
can  run  Ihe  Compiler.  It  also  handles  only  a 
limited  subset  of  Basic  -  about  20  keywords  in- 
cluding FOR,  NEXT,  IF  THEN,  GOSUB,  GOTO. 
RETURIM,  END.  STOP,  USROO,  PEEK.  POKE, 
■-",',/.  .^.  >  ,  Variable  names  A-Z.  and  Integer 
Numbers  from  0-64K. 

TINY  COMPILER  is  written  m  Basic.  It  can 
be  modified  and  augmented  by  the  user,  It  comes 
with  a  20  page  manual. 
TINY  COMPILER  -  $19.95  on  tape  or  disk    OSI 

SUPERDISK  II 

This  disk  contains  a  new  BEXEC*  that  boots 
up  with  a  numbered  directory  and  which  allows 
creation,  deletion  and  renaming  of  files  without 
calling  other  programs.  It  also  contains  a  slight 
modification  to  BASIC  to  allow  14  character 
file  names. 

The  disk  contains  a  disk  manager  that  con- 
tains a  disk  packer,  a  hex/dec  calculator  and 
several  other  utilities. 

It  also  has  a  full  screen  editor  (in  machine 
code  on  C2P/G4H  that  makes  corrections  a  snap. 
We'll  also  toss  in  renumbering  and  program 
search  programs  -  and  sell  the  whole  thing  for  - 
SUPERDISK  II    S29.95  (5'A")     OSI 

BARE  BOARDS  FOR  OSI  C1P 
MEMORY  BOARDSII!  -  for  the  CIP  -  and  they 
contain  parallel  pons! 

Aardvarks  new  memory  board  supports  BK 
of  2114's  and  has  provision  for  a  PIA  to  give  a 
parallel  portsi  It  sells  as  a  bare  board  forS29.95. 
Wiien  assembled,  the  board  plugs  into  the  expan- 
sion connector  an  the  600  board.  Available  now! 

FROM  BURNER  FOR  THE  CIP  -  Burns  single 
supply  2716's,  Bare  board  -  S24.95. 

MOTHER  BOARD  -  Expand  your  expansion 
connector  from  one  to  five  connectors  or  use  it 
to  adapt  our  CI  P  boards  to  your  C4/8P.  -  S14.95. 

16K  RAM  BOARD  FOR  CIP  -  This  one  does 
not  have  a  parallel  port,  but  It  does  support  16K 
of  21 14's.  Bare  Board  S39,95. 


WORD  PROCESSING  THE  EASY  WAY- 
W1THMAXI-PR0S 

This  is  a  line-oriented  word  Processor  de- 
signed for  the  office  that  doesn't  want  to  send 
every  new  girl  out  for  training  in  how  to  type  a 
letter. 

It  has  automatic  right  and  left  margin  justi- 
fication and  lets  you  vary  the  width  and  margins 
during  printing.  It  has  automatic  pagination  and 
automatic  page  numbering.  It  will  print  any  text 
single,  double  or  triple  spaced  and  has  text  cen- 
lering  commands.  It  will  make  any  number  of 
multiple  copies  or  chain  files  together  to  print  an 
entire  disk  of  data  at  one  time. 

MAXI-PROS  has  both  global  and  line  edit 
capability  and  the  polled  keyboard  versions 
contain  a  corrected  keyboard  routine  that  make 
the  OSI  keyboard  decode  as  a  standard  type- 
writer keyboard. 

MAXI-PROS  also  has  sophisticated  file 
capabibilities.  It  can  access  a  file  for  names  and 
addresses,  stop  for  inputs,  and  print  form  letters. 
It  has  file  merging  capabilities  so  that  it  can  store 
and  combine  paragraphs  and  Pages  in  any  order* 

Best  of  all,  it  is  in   BASIC  (0S65D  51/4"  or 
8"  disk)  so  that  it  can  be  easily  adapted  to  any 
printer  or  printing  job  and  so  that  it  can  be  sold 
for  a  measly  price. 
MAXI-PROS  -  $39.95.  Specify  5'A  or  8"  disk. 

SUPPORT  ROMS  FOR  BASIC  IN  ROM  MA- 
CHINES -  C1S/C2S.  This  ROM  adds  line  edit 
functions,  software  selectable  scroll  windows, 
bell  support,  choice  of  OSI  or  standard  keyboard 
routines,  two  callable  screen  clears,  and  software 
support  for  32-64  characters  per  line  video. 
Has  one  character  command  to  switch  model 
2  CIP  from  24  to  48  character  line.  When  in- 
stalled in  C2  or  C4  (C2S)  requires  installation 
of  additional  chip.  CIP  requires  only  a  jumper 
change.  -  $39.95 

C1E/C2E  similar  to  above  but  with  extended 
machine  code  monitor.  —  $59.95     OSI 


ARCADE  GAMES  FOR  OSI,  COLOR-eO  AND 
TRS-BO  {8K  OSI,  16K  TRS-80  AND  COLOR-SO) 

TIMETREK  -A  REAL  TIME,  REAL  GRAPHICS 
STARTRECK.  See  your  torpedoes  hit  and  watch 
your  instruments  work  in  real  time.  No  more  un- 
realistic scrolling  displays!  $14,95. 

STARFIGHTER  ■  This  one  man  space  war  game 
pits  you  against  spocecruisers,  battlewagons,  and 
one  man  fighters,  you  have  the  view  from  your 
cockpit  window,  a  real  time  working  instrument 
pane),  and  your  wits.  Another  real  time  goody. 
S9.95 

BATTLEFLEET  -  This  grown  up  version  of  Bat- 
tleship is  the  toughest  thinking  game  availat^Ie  on 
OSI  or  80  computers.  There  is  no  luck  involved 
as  you  seek  out  the  computers  hidden  fleet.  A 
topographical  to'ughte.  $9.95 

QUEST  -  A  NEW  IDEA  IN  ADVENTURE 
GAMES!  Different  from  all  the  others.  Quest  is 
played  on  a  computer  generated  mape  of  Alesia, 
Your  job  is  to  gather  men  and  supplies  by  comb- 
bat,  bargaining,  exploration  of  ruins  and  temples 
and  outright  banditry.  When  your  force  is  strong 
enough,  you  attack  the  Citadel  of  Moorlock  in  a 
life  or  death  battle  to  the  finish.  Playable  in  2  to 
5  hours,  this  one  is  different  every  time. 
16K  COLOR-80  OR  TRS-80  ONLY.  S14.95 


Please  specify  system  on  all  orders 

This  is  only  a  partial  listing  of  what  we  have  to  offer.  Ws  offer  over  120  games,  ROMS,  and  data  sheets  for  OSI  systems 


OSI 


and  many  games  and  utilities  for  COLOR  30  and  TRS-80.  Send  $1.00  for  our  catalog. 

AARDVARK  TECHNICAL  SERVICES,  LTD. 

2352  S.  Commerce,  Walled  Lake,  Ml  48088 

(313)669-3110 


COLOR-80 
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which  the  head  is  currently  positioned,  and  we 
move  the  head  outward  one  track  on  the  diskette 
(tlie  outermost  track  is  Track  0)  then  we  may  de- 
crease the  nuinl>ei'  in  memory  hy  one  (to  Track 
26).  In  other  words,  we  may  move  from  any  track 
to  any  desired  track  just  by  stepping  and  counting. 
A  single  step  occurs  very  rapidly,  more  than  100 
steps  per  second  are  usually  possible.  Of  course, 
this  stepping  method  will  only  work  if  we  know  the 
current  track  ninnlx'i-  on  which  the  head  is  located. 

Most  drives  have  a  special  indicator  to  tell 
when  the  head  is  positioned  o\er  the  outermost 
track  (Track  0).  Moving  the  head  out  until  this 
indicator  comes  on  allows  us  to  set  a  track  counter 
to  0  prcci.sely  when  the  head  is  at  Track  0. 

When  the  head  is  down  on  a  particular  track, 
several  operatiotis  are  possible.  The  head  can  read 
(playback)  data  from  the  diskette,  or  it  can  write 
(record)  data  on  the  diskette.  In  addition,  an  era.se 
function  can  be  switched  on.  If  we  erase  only,  the 
track  will  be  erasetl.  However,  11  we  erase  and  write 
at  the  same  time,  the  erase  fiuiction  narrows  the 
data  stream  keeping  it  from  widening  into  neigh- 
boring tracks.  The  disk  has  a  switch  which  cau.ses 
the  head  to  write  if  on  and  read  i(  off.  An  additioual 
switch  turns  the  erase  function  on  and  off. 

If  you  look  down  on  some  spinning  circular 
objet :t  (e.g.  a  turning  |jhonograph  record),  \ou  will 

Table  1. 

DISK  STATUS  LINES 

PAO  DRIVE  1  READY 

PAl  HEAD  AT  TRACK  0 

PA2  FAULT  INDICATOR 

PA3  SECTOR  HOLE 

PA4  DRIVE  2  READY 

PA5  DISK  WRITE  PROTECTED 

PA7  INDEX  HOLE 


see  that  the  outer  edge  is  mo\  iiig  much  more  quickly 
than  any  inner  part.  In  particular,  on  a  diskette, 
each  track  moves  at  a  different  speed  past  the 
head.  These  radical  changes  in  head  speed  from 
inner  to  outer  tracks  pose  diflicult  problems  in 
obtaining  uniform  recordings  on  all  tracks  of  the 
diskette.  Some  drives  compensate  by  having  two 
possible  recording  levels:  one  for  inner  tracks,  the 
other  for  outer  tracks.  A  switch  is  needed  to  move 
between  these  two  modes. 

If  you  own  more  than  one  drive,  there  are 
switches  which  allow  the  computer  to  select  any 
one  ol  these  dri\es. 

In  Table  1,  under  CONTROL  LINKS,  you 
will  see  that  the  computer  has  a  bit  to  control  each 
of  the  switches  just  described.  Other  than  a  serial 
port  through  which  data  flows  and  its  associated 
control  location,  these  are  all  the  control  lines  used 
by  OS(i5I)  to  run  the  disk. 

As  already  mentioned,  there  are  also  STATUS 
LINES  lo  the  computer  which  indicate  current 
conditions  at  the  disk.  There  is  an  indicator  to  tell 


Table  2. 

8  INCH  FLOPPY  TIMING 

#Sectors 

Total 
Pages 

Pages 
Last  Sector 

Time 

DT 

1 

13 

13 

162768 

3900 

2 

13 

10 

166203 

464 

3 

13 

10 

166638 

29 

4 

12 

163209 

3458 

5 

12 

163144 

3023 

6 

12 

164079 

2588 

7 

12 

164514 

2153 

8 

12 

164949 

1718 

9 

12 

165384 

1283 

10 

12 

165819 

848 

11 

12 

166254 

413 

12 

12 

166689 

-22 

DISK  CONTROL  LINES 

PBO  ENABLE  WRITE  FUNCTION 

PBl  ENABLE ERASE FUNCTION 

PB2  STEP  MOTOR  DIRECTION  (IN) 

PB3  STEP  MOTOR  ON  (OFF) 

PB4  FAULT  RESET 

PA6  DRIVE '/2  SELECT 

PB5  DRIVE '/i!  SELECT 

PB6  SET  HEAD  RECORD  CURRENT  TO  LOW 

PB7  PUT  HEAD  ONTO  DISKETTE 

The  disk  PIA  has  two  ports  'A'  and  'B'. 

PORT  A  $C000  (with  bits  PA0-PA7) 

PORTA   CONTROL  REGISTER     $C001 
PORT  B  $C002  (with  bits  PB0-PB7) 

PORTE  CONTROL  REGISTER    $C003 

The  disk  has  an  ACIA 

SERIAL  PORT  $COH 

STATUS/CONTROL  REGISTER     $C010 

OS65D  configures  this  port  for  8  bit  bytes  with  even  parity  and 

1  stop  bit  ($58). 


t(us.)  =  8101  +  12864xp-  1000xr-l-435xn 

p  =  number  of  pages  in  track 
r  =  number  of  pages  in  last  track 
n  =  number  of  sectors 
166667  us.  =  time  on  one  track 
DT  =  time  left  on  track 

MINIFLOPPY  TIMING 


#  Sectors 

Total 
Pages 

Pages 
Last  Sector 

Time 

DT 

1 

8 

8 

193986 

6014 

2 

8 

3 

199641 

359 

3 

8 

4 

199296 

704 

4 

8 

4 

199951 

49 

5 

7 

1 

179478 

20522 

6 

7 

1 

180133 

19867 

7 

7 

1 

180788 

19212 

8 

8 

1 

205571 

-5571 

t(  us.)  =  8307-1- 24 128xp-  lOOOxr  +  435xn 
200000  ux.  =  time  on  one  track 


Speed 
Power 
Efficiency 


Printer  Spooler 
Virtual  Indirect  File 

«  STOP  WAITING  rpr  YDUf  ]>iin|«r< 

*  PROCESS  words,  writi  piognmr.  ill  whtli  ]irintingl 

*  QUEUE  Itu  YOti  pil«  on  piim  jobt 

*  TWQ  prjniiri  may  bi  Jiecomodittd  on  iny  imo  porti. 

*  MULTIPLE  COPIES  iwilh  top  and  boltDm  piga  margini 

*  SYSGEN  [fllocilea  ftnd  parmiti  «xtaniiu«  cujlomizstion. 
«  VIRTUAL  INDIRECT  FILES  dfi  disk.  End  space 

groblgms  whtn  uging  tempomry  Ftlss   How  do  ixltntiva 
nditing  d(  BASIC  with  VDUi  word  procfliiD*. 

XREF:     BASIC  Cross  Referencer 

*  TABULATES    RefBifificad  Una  numbArs,  uariil^k  nanifts 
[numeiic.  siring,  amv}.  tnd  defined  lunclioni. 

*  FAST  machinfl  lenguige  program 

tt     DISK  based  foi  targe  BASIC  jource  hiei  on  any  drive. 


Data  Resource  Corporation 
Suite  203 

1040  lunaai  Street 
K«ilua.  HI  96734 


$9S/$10 


$25 


(8DB)  261-2012 


for 


OSI 
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FBASIC:    BASIC  Compiler 

#  FAST  machin*  code  writian  with  iha  aasa  ol  BASIC 

*  SPEEQ-optimifad.  nilive-coda  compilar. 

•  INTEGER  sublet  of  OSI-iufpliad  BASIC, 
ft  DISK  basBil  10  allow  largtil  lourca  iml  objaCI  lilit. 

•  EXTENSIONS  to  BASIC: 

-  Simple  intarfacB  to  SYil^ni  hinJwtrv  and  loftwara. 

-  DiracI  access  to  &5DZ  rsgiilvn. 

-  Avrtr  inilialiialiDn  end  opUsnil  abs^iluia  locttinn. 

-  WHILE  and  olSsar  jtrutturai. 

-  Combine  compiler  end  iniarpr>«tar  idvintagti. 

*  UTILITIES  (plUB  iDurccj.  ma:ius1,  and  manv  aximpl«i. 


R-EDIT;     Edit  any  program  or  text! 

*  FULL  CURSOR  conlroL  Edit  anYwbere  on  rhv  nrtan. 

*  INSERT,  replace,  add.  dalata  with  RAM-iaitdant  tdttor. 

*  ONE  KEY  stroke  and  you're  adiltng 

*  BASIC,  iiiambler.  ale.  edited  without  taloading  R-EOIT. 

*  SYSGEN  filflcitix  R-EDIT  end  piimiti  ixtaniivi  cuslomization. 


CP/M  to  OSI 


Disk  Translation  Service 


Fruitraled  by  all  ihese  goad  CP/U  disks  that  won!  run  an  YOur  OSI  CP/M  syilem^ 
ll's  (hat  special  OSI  disk  lormar*  And  we  can  lijc  that  Ji;s1  send  ui  your  disk.  SIS.  and 
vce'll  SBoa  have  an  QSI  compalible  dilk. 


MaH««t  QFdirs  aapliid  (a  lallwiri  parekiiet   Pragrimi  luppliaif  an  t-in.  iingli-diaiilv. 
sinali-iiaad  dilki      Hawaii  intdinu  idd  4S  tai. 


if  a  drive  is  ready  (i.e.  ii  ihe  drive  door  is  closed 
indicaiing  a  fiiskcuc  is  nioiiiited  and  ready).  There 
may  be  an  indicalor  lo  lell  if  a  diskette  is  write 
protected.  Finally  there  is  an  index  hole  detector. 
These  indicators  are  all  listed  in  Table  1  nnder 
STATUS  LINES.  Von  will  see  a  lew  more  than 
mentioned  here.  Tliese  are  not  tised  by  OS65D. 

Let's  examine  the  function  ol  tiie  index  hole  a 
little  more  closely.  In  Figure  1  yon  will  see  a  small, 
off-center  hole  piniched  in  the  diskette.  (It  is  off 
center  to  prevent  fimclioning  if  the  diskette  is 
inserted  into  the  chive  wrong  side  up.)  As  the 
diskette  spins,  the  drive  detects  when  lliis  hole 
passes  over  a  special  indicator.  This  passage  marks 
the  beginning  of  a  track.  To  find  the  lieginning  of 
a  track,  the  conipnier  moves  the  head  to  a  track, 
puts  tlie  head  oti  the  diskette,  and  waits  for  the 
index  hole  lo  flash  bv. 

Once  the  index  hole  has  jiassed,  the  data  format 
on  the  diskette  ticconics  impoitant.  The  few  me- 
thods for  encoding  data  magnetically  on  the  diskette 
are  standardized  and  adhered  to  bv  almost  all 
drive  manufacturers.  Thus  one  bit  sent  to  BRAND 
X  drive  will  be  recorded  in  just  about  the  same  way 
as  one  bit  sent  to  BRAND  V  (i.e.  the  bit  will  be 
recorded  in  one  ol  about  three  stan<lard  ways). 
There  are  a  few  exceptions  to  this  rule. 

This  standardizali(jn  allows  computer  manu- 
facturers to  use  drives  from  different  disk  manu- 


facturers on  the  same  computer.  OSI  supplies 
computers  with  Shugart,  Siemans,  and  other  drives 
without  explicitly  telling  the  buyer  which  drives  he 
is  getting. 

Most  computer  manufacturers  .send  bits  from 
their  computers  lo  disk  drives  as  a  steady  stream  of 
bits,  eight  Ijits  per  byte,  and  a  fixed  nimiber  of 
bytes  per  stream.  At  the  end  of  a  stream  are  two 
more  bytes  called  a  checksum  of  cyclic  reduncancy 
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check  (CRC).  These  two  bytes  are  usually  the  sum 
of  all  the  previous  bytes  in  the  stream.  On  reading 
the  stream,  the  checksum  can  be  recompiUetl  from 
the  stream  and  compared  with  lite  ciiecksum  re- 
corded on  the  diskette  at  the  end  of  the  stream.  If 
there  is  a  mismatch,  an  error  has  occurred  some- 
where in  the  stream. 

OSI  does  not  follow  this  format.  They  treat 
disk  communication  as  an  asynchronous  communi- 
cation line.  In  other  vvc:)rds,  except  for  the  speed  of 
the  bits,  the  computer  sends  bits  to  the  disk  drive 
in  the  same  way  it  sends  bits  to  a  modem:  through 
a  special  serial  port  called  an  Asynchronous  Com- 
munication Interface  Adapter  (for  short,  an  ACIA, 
UART,  or  just  serial  port).  OS65D  requires  1 1  bits 
to  be  recorded  on  the  diskette  for  each  eight-bit 
byte.  The  first  bit  is  a  start  bit  indicating  that  the 
byte  is  beginning.  The  next  eight  bits  (bits  2-9)  are 
the  actual  data  byte.  The  tenth  bit  is  a  parity  bit 
indicating  whether  the  byte  contains  an  even  or  an 
odd  number  of  value  one  bits.  The  last  bit  is  a  stop 
bit  indicating  the  end  of  the  byte. 

The  disadvantages  of  this  method  are  twofold. 
First,  it  is  nonstandard.  OSI  owners  cannot  inter- 
change disks  made  by  computers  of  other  manu- 
facturers. Second,  OSI  can  store  only  8/1 1  as  much 
on  a  disk  as  other  manufacturer's  computers. 

The  advantages  are  reliability  and  simplicity. 
An  inexpensive  ACIA  performs  many  chores 
simplifying  software  and  hardware.  No  cyclic  re- 
dundancy checks  are  needed.  Each  byte  can  be 
individually  checked  for  an  error  by  the  ACIA.  If 
there  is  a  disk  error,  usually  all  but  a  few  bytes  can 
be  recovered  correctly  using  the  EXAMINE  com- 
mand of  OS65D.  Other  systems  make  recovery 
much  more  difficult.  A  bit  error  can  cause  all  bits 
in  a  stream  to  shift  by  one.  In  other  words,  bit  two 
of  a  byte  may  be  read  as  bit  one,  and  bit  zero  of  a 
byte  may  be  read  as  bit  seven  in  the  previous  byte. 
OS65D  does  an  excellent  job  of  error  detection.  It 
is  a  shame  that,  in  a  system  with  such  excellent 
opportunities  for  error  recovery,  OS65D  has  abso- 
lutely none.  If  BASIC  encoimters  a  disk  error,  a 
program  stops  with  a  terse  error  message. 

Track  Format 

Figure  2  gives  the  acttial  data  format  for  an  OS65D 
diskette  track.  Note  that  the  Track  0  format  differs 
from  all  other  tracks.  In  particular.  Track  0  can 
only  be  used  by  the  bootstrap  ROM.  Track  0  con- 
tains the  major  portion  of  OS65D  and  is  given 
added  protection  by  this  scheme,  but  I  believe  OSI 
bhmdered  in  choosing  this  format.  All  tracks  should 
be  recorded  the  same  way  to  maximize  flexibility. 

The  data  on  a  track  commences  1  ms.  past  the 
index  hole  (about  23  bytes  in  time  at  44  tis./byte). 
Two  bytes  are  written  to  indicate  the  beginning  of 


Figure  2. 

FORMAT  FOR  TRACKS  (>0) 


Index 
Hole 


Itns. 


$43         $57         Track  # 
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$76       Sector  #       #  Pages  in  Sector  Thai  many  Pages  of  Data 

$47       $53       Intersector  Wail  Time  Repeal  for  each  Sector 

FORMAT  FOR  TRACK  0 

Index                              Load  Load 

Hole         1ms.              vector  high  vector  low            #Pages 

...  That  many  Pages  of  Data    ... 


a  track.  The  bytes  should  be  carefully  chosen  so  as 
to  be  an  unusual  combination.  OS65D  always  writes 
$43  then  $57.  When  the  track  is  read,  reading  does 
not  commence  until  the  $43  and  $.')7  have  lieen 
found.  A  simple  encryption  method  would  be  to 
change  these  bytes.  Since  the  EXAMINE  command 
will  even  read  such  a  track,  this  encryption  is  not 
terribly  secure.  OS65U  uses  different  bytes,  so 
OS65U  tracks  cannot  be  read  by  OS6,5r)  without 
minor  changes  to  the  operating  system. 

Next  the  track  number  is  written  in  binary 
coded  decimal  (BCD).  This  recorded  value  is  always 
compared  with  the  stored  track  number  in  memory 
to  make  certain  the  head  is  positioned  on  the  correct 
track.  Then  a  stop  byte  ($58)  is  recorded  on  the 
disk  (this  byte  is  never  checked  on  a  read). 

This  data  constitutes  the  Track  Header.  On 
Initialization,  a  track  is  erased  then  the  Track 
Header  is  written  on  the  Track,  This  Track  Header 
is  not  rerecorded  at  any  futiux'  read  or  write. 

There  is  a  lull  after  the  Track  Header  of  just 
under  6.6  ms.  (about  149  bytes).  This  time  differs 
greatly  from  the  time  given  in  the  OS65D  GUIDE. 
You  will  see  why  in  the  following  discussion. 

During  a  sector  seek  cjperation,  a  "previous 
sector"  length  number/;  is  saved.  This  value  is  .set 
to  four  if  we  seek  Sector  I  (otherwise  the  "previous 
sector"  length  number  would  be  zero,  which  is  not 
allowable).  Then  a  subroutine  waits  pxHOO  ;.is.  The 
OS65D  GUIDE  says  that  between  Sector  N  and 
Sector  n  -I-  1  there  is  a  gap  of  px800  ;.is.  This  is  not 
quite  correct.  After  the  end  of  a  sector,  OS65D 
waits  qtiietly  for  px800  jis.  The  write  function  is 
then  switched  on.  A  further  185  j.is.  is  allowed  to 
pass.  Then  the  erase  function  is  switched  on.  We 
now  wait  an  additional  pxSOO^is.  before  starting  lo 
write  data.  In  other  words,  the  time  from  the  last 
byte  of  sector  n  to  the  first  byte  of  sector  n  +  I  is 
about  px  1600  +  185  j^is.  For  Sector  1 ,  p  is  taken  to 
be  four.  In  all  other  ca.ses,  p  is  the  length  (in  pages, 
i.e.  multiples  of  256  bytes)  of  the  "previous  .sector." 

This  description  requires  modification.  It 
applies  to  systems  with  a  I  MHZ  clock.  On  cold 
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Start,  OS65D  measures  the  timing  on  a  serial  port 
to  calculate  the  dock  speed.  (Remember,  a  300 
baud  ]3()rt  must  rcnuiiu  300  baud  no  matter  wlial 
the  clock  speed.)  Then  a  timing  constant  in  t!ic  1 
ms.  stibroutine  is  set.  However,  this  calcidation 
does  not  affect  the  100  us.  routine  tised  in  sector 
spacing.  (I  assume  this  clock  versatility  is  the  reason 
for  the  NMHZ  in  the  title  of  this  version  of  OS65D.) 
In  other  words,  the  100  us.  routine  is  really  a  100/ 
T  us.  routine  where  T  is  the  clock  speed  in  MHZ. 

This  calculation  accoiuits  onl)'  for  the  wait 
loops  in  intersector  timing.  In  addition,  there  is 
quite  a  bit  of  inline  code  which  adds  to  intersector 
liming.  This  timing  can  be  calculated,  A  crude 
estimate  would  be  to  add  an  additional  30  j.is.  after 
each  sector.  In  other  wends,  the  sector  spacing  is 

(pxl600  +  215)/T 
where  7"  is  the  clock  speed  in  MHZ,  and  /;  is  the 
number  of  pages  in  the  preceding  .sector.  Your 
disk  does  not  necessaiih  write  diskettes  identically 
with  mine,  though  either  computer  should  read 
the  other's  diskettes. 

All  of  this  says  there  is  some  kind  of  em]Jt) 
space  between  the  end  of  llie  Track  Header  and 
the  start  of  Sector  1.  Each  sector  is  completely 
rewritten  each  time  it  is  addressed  in  a  write  opera- 
tion. A  sector  is  written  as  follows. 

We  put  a  sector  start  code  ($76)  on  the  disk. 
Next  comes  the  sector  number  v,  then  (he  sector 
lengthy;  in  pages  (each  page  is  256  bytes).  The 
smallest  unit  of  disk  storage  in  OS65D  is  one  page. 
The  sector  inmiber  ,v  is  xerified  on  a  read  operation 
with  the  value  in  memory.  The  .sector  length  is 
used  on  read  to  calculate  the  number  of  bvtes  to 
l<jad  from  the  disk. 

Now  comes  the  acttial  data.  The  amount  of 
data  is  px256  bytes  where  p  is  the  number  of  pages 
in  the  .sector.  After  this  data  comes  two  end  check 
bytes  ($47,  $5;^)  maiking  ilie  end  of  a  sector.  Thus 
the  sector  if  5  +  px25(>  bytes  long.  The  gap  between 
sectors  has  already  been  described.  Each  succeeding 
sector  follows  the  same  format.  This  format  is 
pictured  in  Figure  2.  This  discussion  does  not 
apply  to  Track  0. 

Bcloie  discussing  Track  0,  let's  make  a  few 
calculations.  We  assume  we  have  8"  floppies  and  a 
1  MHZ  clock  (this  latter  enters  in  only  for  the 
timing  between  sectors).  We  discuss  how  many  and 
what  kind  of  sectors  may  be  put  on  a  track.  The 
di.scussion  is  important  for  the  following  reason: 
on  a  write  operation,  ()S(>,5I)  checks  for  the  index 
hole  when  .seeking  a  Track  Header.  This  keeps  the 
computer  fiom  "hanging"  on  uninitialized  tracks 
(i.e.  iraiks  wiihoui  a  Track  Header).  In  writing 
sector  n,  ihe  computer  must  read  the  preceding 

sectors  1,2 n-1.  For  each  ofthe.se,  whiletlie 

computer  is  .searching  for  llie  sector  start  code,  it 


also  watches  for  the  index  hole  to  come  around 
again  (also  to  a\oid  "hanging"  on  a  sector  seek). 
After  the  start  of  the  preceding  sector,  the  computer 
no  longer  checks  to  see  if  we  pass  the  index  hole. 
The  reason  for  this  is  simple.  At  1  MHZ  with  8" 
floppies  there  is  just  not  enough  time  between 
input  or  output  bytes  from  the  disk  to  check  for 
the  index  hole  and  to  do  all  the  other  operations 
required  duiing  a  read  or  write  operation. 

If  the  index  hole  passes,  we  are  back  to  the 
beginning  of  the  track.  If  I  ms.  passes,  we're  over 
the  Track  Header  again.  Obliterating  the  Track 
Header  destroys  the  readibility  of  the  Track.  Ex- 
perienced programmers  may  salvage  matters  using 
the  EXAMINE  command,  but  this  is  not  a  task  you 
want  to  face.  Moral:  Don't  pass  the  index  hole  a 
second  time  on  a  write  operation. 

If  you're  not  a  whiz  at  algebra,  skim  over  this 
part  until  we  start  drawing  conclusions. 

We  wish  to  derive  a  formula  for  the  time  from 
the  index  hole  to  the  time  the  head  stops  writing 
on  the  diskette  after  sector  n.  If  this  time  occurs 
before  a  second  appearance  of  the  index  hole,  then 
n  sectors  will  fit  on  a  track.  We  must  account  for  all 
the  time  from  the  first  appearance  of  the  index 
hole  until  the  write  function  is  switched  off  after 
the  last  sector. 

The  disk  spins  at  360  rpm.  Thus  one  revolution 
lakes  16(1,667  j^is.  The  disk  data  clock  runs  at  250 
KHZ.  In  particular,  each  bit  takes  four  j^js.  Since 
an  OS  I  byte  uses  1 1  bits,  44  us.  are  required  per 
byte.  If  we  could  pack  a  track,  this  means  we  could 
fit  3,787  bytes  on  a  track.  But  a  ti-ack  is  not  packed. 
It  is  formatted,  and  we  must  calculate  the  for- 
matting time. 

We  use  1 000  us.  from  the  index  hole  to  the 
Track  Header.  The  Header  is  four  bytes  long 
using  176  us.  more.  As  we  have  .seen,  from  the 
Track  Header  to  the  start  of  Sector  one,  we  use 
4x1600  +  215  or  661 5  us.  In  particular,  7791  ^s. 
are  spent  between  the  index  hole  and  the  start  of 
Sector  one. 
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Each  sector  contains  an  integral  number  of 
pages.  Thus,  all  sectors  contain,  as  an  aggregate,  p 
pages.  Each  byte  takes  44  us.  and  there  are  256 
bytes  per  page.  Thus  all  these  pages  account  for 
1  1264xp  us. 

Each  sector  has  five  extra  bytes.  Thus,  for  n 
sectors,  we  have  220xn  j^is. 

Next  we  must  account  for  all  the  wait  time 
after  each  of  the  n  .sectors.  Recall  that  the  wait 
from  one  sector  to  the  next  is  qx  1 600  +  215  j.is. 
where  q  is  the  number  of  pages  in  the  preceding 
sector.  Since  we  assume  n  sectors  are  on  a  track, 
there  are  only  n-\  spaces  between  u  sectors.  If  the 
last  sector  has  r  pages,  then  the  preceding  u-l 
contain  p-r  pages  altogether.  Thus,  the  total  inter- 
sector  wait  time  is  1 600x(p-4)  +  2 1 5x(n- 1 )  jis. 

Finally,  we  must  account  for  the  time  after  the 
last  sector  is  written  until  the  write  and  erase  func- 
tions arc  switched  off  Wrile  and  erase  continue 
for  600xr  us.  after  the  last  byte  is  written.  Then 
write  is  switched  off  and  erase  continues  for  525 
j^is.  more  before  it  too  is  switched  off.  This  total 
trailing  time  is  525  +  600xr  j.is. 

By  adding  all  om-  derivations,  we  can  make  the 
following  statement.  For  8"  floppies  with  a  one 
.VIHZ  clock,  the  total  recording  time  for  n  sectors  is 

t(  jis.)  =  8101-1-1 2  864xp  -  1  OOOxr  +  435xn 

where/)  is  the  total  nuinl)cr  of  pages  of  dala  in  the 
sectors  and  r  is  ihe  lunnber  of  pages  in  the  last  sec- 
tor. 

Remember,  OSB5D  must  run  on  all  O.SI  ma- 
chines, so  this  formula  gives  the  "worst  case"  which 
must  always  be  satisfied.  In  Table  2  you  will  see  a 
few  'upper  limit'  values  tabulated  (dt  gives  the 
'time  remaining'  in  the  track). 

Recalculate  I  for  your  system.  A  minifloppy 
spins  at  300  rjjm.  and  the  data  tlock  is  125  KHZ. 
Experiment  with  a  itiw  values  (or  n  and  /;  in  the 
formula.  Try  actually  rec(nxling  this  amount  on  a 
disk.  Be  sure  to  use  an  empty  diskette  track.  What 
is  wrong  with  filling  the  blank  space  between  the 
index  hole  and  the  Track  Header  with  data?  (Think 
about  $43,  $57.)'Fhe  maximum  allowable  number 
(plus  one)  of  pages  per  sector  in  OS65D  is  stored  in 
$27ED.  You  may  wish  to  change  this  for  your 
experiments. 

Notice  that  OSI  recommends  a  maximiun  of 
13  sectors  when  only  one  sector  is  written  on  a 
track,  and  eight  sectors  ( 1 2  sectors  in  early  (ilJ IDES) 
if  more  than  one  sector  is  written  on  a  track.  The 
early  GUIDE  value  is  "just  barely  wrong,"  The 
later  value  is  obviously  a  shot  in  the  dark  meant  to 
be  conservative.  It  is  probably  tlie  case  that  many 
drives  would  accept  1 2  single  page  secl<»rs  in  a 
track.  But  even  1  I  sectors,  including  12  pages, 
leaves  very  little  room  for  errors.  @ 
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TEACHER'SAID 

DR.  DALEY'S  SOFTWARE  is  excited  about  our 
latest  software  release— TEACHER'S  AID. 

TEACHER'S  AID  is  the  grade  management  sys- 
tem you've  been  waiting  for.  Its  many  features 
mean  that  you  can  be  free  from  the  drudgery  of 
hours  of  record  keeping  and  grade  reporting.  Now 
you  can  devote  more  time  to  the  pleasures  of 
teaching. 

TEACHER'S  AID  is  easy  to  use,  menu  driven  and 
features — 

1 .  Flexible  class  assignment  structures.  This  means 
that  you  can  set  up  and  keep  records  of  any  com- 
bination of  homework,  quiz,  test,  lab,  etc. 
scores. 

2.  Grade  averaging  done  in  a  variety  of  ways. 

Grade  averages  can  be  prepared  using  weighted 
scores,  possible  scores,  tables,  percent,  or  a 
combination  of  these  methods. 

3.  Student  progress  reports. 

4.  An  individualized  list  of  missing  assignments. 

5.  Easy  editing  and  additions  to  any  of  the  files. 

6.  Reports  on  either  the  screen  or  printer. 

All  of  this  power  is  yours  for  only  S59.95. 
TEACHER'S  AID  comes  on  disk  complete  with 
comprehensive,  easy  to  read  documentation, 
packaged  in  an  attractive  binder. 

When  ordering  please  tell  us  your  computer  con- 
figuration. TEACHER'S  AID  is  available  on  these 

systems: 

Apple  II  or  Apple  II  Plus 

(32K  with  single  disk) 
Pet  or  CBM  2000,  3000,  or  4000  series 

(16K  with  2040  or  4040  disk) 

TEACHER'S  AID  will  be  ready  soon  on  the  Atari 
800  and  TRS-80  Model  I  or  Model  III. 

Call  or  write  for  details  of  our  other  software  offer- 
ings. 

NOTE  OUR  NEW  ADDRESS 

DR.  DALEY'S  SOFTWARE 

Water  Street 
Darby,  MT  59829 
Phone:  (406)  821-3924 

(Hours:  10  a.m.  to  6  p.m.  Mountain  Time) 
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Editor's  Note:  We  recently  received  the  following  query 
U'tter  from  n  Mr.  C.  Pickins.  Wliilr  ivc  ii'ill  not  he  able 
to  accepi  C's  ficlional  i'ndrnvors,  we  Jell  his  timely 
outline  might  be  of  interest  to  our  PETICBM  readers. 
We  have  put  C  (not  his  real  name  surely)  in  touch 
with  Dr.  Chip.  Perhaps  we'll  see  the  fruit  of  later  joint 
collaboration.  —  RCL 


Dear  Mr.  Lock, 

I  have  this  great  story  outline  that  I  thotight 
COMPUTE!  might  like  to  follow  up.  It'sju.st  that  I 
don't  know  if  you  publish  fiction  submissions. 

It's  this  heartwarming  story  about  a  fellow 
called  Scrooge  Tramiel,  who  runs  a  pet  shop  in  old 
London,  or  California,  or  Philadelphia  or  some- 
where (fimny,  the  location  seems  to  shift  every 
time  I  think  of  it).  Anyway,  he  exhorts  his  lowly 
clerk,  a  fellow  by  the  name  of  Cratchit  Finke,  to 
work  through  the  holidays  on  a  new  computer 
system  to  be  called  the  Humbug  IIL  and  leaves  to 
go  home. 

Well,  what  should  liappen  but  this  guy  runs 
across  the  ghost  of  his  former  partner,  Jacob  Peddle, 
who  rattles  chains  and  chips  and  emits  fearful  moans 
in  alt  directions.  The  upshot  of  this  visitation  is  that 
Scrooge  is  going  to  be  visited  by  three  more  spectres: 
the  barrister  of  Christmas  past,  the  solicitor  of 
Christmas  present,  and  the  lawyer  of  Christmas 
future. 

Faster  than  you  can  say,  "restraining  order", 
the  Christmas  past  fellow  pops  up  and  reminds 
Scrooge  of  how  helpful  he  used  to  be  to  others. 
"Spirit,  why  do  you  torture  me  so?"  wails  Scrooge. 
"Yes,  I  gave  that  young  fellow  a  chip  to  plav  with  ... 
and  he  promptly  foimded  Apple  Computers  with 
it.  Indeed,  Radio  Shack  got  its  start  in  the  time 
period  between  when  I  announced  my  comptiter 
and  started  delivering  it," 


Just  then,  the  digital  clock  beeps  and  along 
comes  Christmas  present.  Not  a  Christmas  present, 
you  understand;  just  the  Ghost  of  a  Christmas 
present,  who  shows  retailers  warming  themselves 
over  the  glow  of  their  CRT  screens.  "Everybody 
else's  model  three  has  failed,"  they  seem  to  be 
saving,  "will  Scrooge  come  through  for  us?" 

An  announcement  of  the  digital  cuckoo  clock 
heralds  visitor  number  three,  the  spirit  of  Christmas 
future.  The  screen  swirls  uncertainly  ...  coughing 
and  gasping,  Scrooge  peers  through  the  orange 
smoke  ...  is  that  IBM  gaining  credibility?  What's 
going  on  here?  The  Spirit  intones,  "I  see  unused 
joysticks  by  the  fireplace..."  But  begging  and  pleading 


and  threats  of  countersuits  reveal  that  it  ain't  nec- 
essarily so  ...  there's  stilt  time  to  reform. 

Dawn  is  breaking.  Maybe  the  light  is  dawning, 
too,  for  Scrooge  rushes  over  to  the  window  and 
shouts  at  a  passing  boy,  "Bring  me  the  biggest 
goose  yt)u  can  find!  My  competitors  have  all  the 
turkeys!" 

And  the  story  ends  with  a  traditional  Christmas 
scene  ...  as  Tiny  Tim  says,  "God  help  us,  every 


one! 


Whaddya  say,  Mr.  Lock?  Do  you  think  you  can 
use  the  story?  © 
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Routine  Only 
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Malvern,  PA 


To  finish  the  process  we  reset  the  start  of 
BASIC  pointer  to  its  original  value,  decimal  1025, 
hex  $040 1 ,  or  whatever  other  number  we  have 
jotted  down  in  case  o(  being  in  a  partition.  In 
BASIC,  the  reset  can  be  done  by: 

POKE40, 1  :POKE4 1 ,4 

Using  the  Monitor,  the  reset  to  1025  decimal  is 
done  bv  putting  $01  into  $0028  and  $04  into 
$0029.' 

Program  A  reappears  on  the  scene  and  the 
entire  package  is  leady  for  use. 


There  is  a  way  to  append  a  program  to  another  in 
the  PET  even  if  the  line  numbers  are  out  of  order. 
It  will  be  shown  here  for  the  upgrade  ROM  tape 
system.  It  should  work  on  other  PETs.  The  scheme 
uses  the  Toolkit'"  or  its  ec]uivalents. 

Suppose  that  program  A  exists  in  the  PET  and 
that  its  line  numbers  range  from  100  to  2000. 
Suppose,  further,  that  we  would  like  to  append  a 
program  B  with  line  numbers  which  are  lower  than 
(or  overlap)  those  of  program  A:  for  instance  15  to 
340.  As  long  as  program  B  contains  no  GOTOs 
and  no  GOSUBs,  one  renumbering  of  the  entire 
A-plus-B  package  will  set  the  line  ninnbers  in  order. 
Conseqtiently,  target  addresses  in  program  A  will 
remain  meaningful. 

When,  however,  program  B  contains  GO!  Os 
and  GOSUBs,  we  are  in  violation  of  the  "appended 
program  must  have  higher  line  numbers"  rule. 
And  that  means  save  one  piece,  put  the  other  one 
in,  renumber  it,  save  again,  load  again  ...  ad  infini- 
tum. Disk  pe(jple  can  do  it  in  a  jiffy.  It's  tough  for 
tape  owners  though. 

Some  rules  just  beg  to  be  broken  and  this  is 
one  of  them.  A  simple  solution  consists  of  tempo- 
rarily hiding  program  A  from  PET's  view  by  swap- 
ping some  pointers  around.  Just  before  loading 
program  B  we  tell  the  PEl^  that  the  BASIC  area 
begins  at  the  end  of  program  A  or  exactly  two  (2) 
bytes  back  from  the  start  of  variables  pointer  {42- 
43).  We  do  this  carefully  by  tisc  of  the  Machine 
Language  Monitor  where  we  replace  contents  of 
$28-29  with  contents  of  $2A-2B  minus  2.  Or  by 
these  direct  BASIC  conmiands: 

AD  =  (PEEK(42)  +  PEEK(43)).2:  AH%  =  AD/256 
POKE40,AD-AH9f*256:POKE41,AH7f 

This  has  to  be  entered  correctly  the  fust  time  or 
things  get  somewhat  messy. 

At  this  point  we  can  append  program  B.  It  wilt 
be  placed,  in  the  usual  manner,  at  address  AD.  We 
can  list  this  program.  And  we  can  RENUMBER  it, 
for  instance,  with  3000,10  parameters  sent  to  the 
TOOLKIT. 


Pointer  addresses  for  various  releases 

Original 

Upgrade 
and  4.0 

Start  ofBasic  low  byte                      122     $7A 

high  byte                     123     $7B 

Startofvariables  low  byte                 124     $7C 

high  byte               125     $7D 

40  $28 

41  $29 

42  $2A 

43  $2B 
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BRANCH  NEVER 
And  QUIF 
Assembling  On 
SuperPET 


Richard  Mansfield 
Assistant  Editor 


Ever  hear  of  QUIF?  Or  HI,  ISUPPER,  STOI, 
FSEEK,  TABLELOO,  COMA,  ORB,  PLJLB,  SEX, 
COMB,  or  BRA?  These  are  some  of  the  6809 
mnemonics,  utihties  library  macros,  and  "structured 
programming"  statcmciUs  available  to  you  when 
you  assemble  on  the  SuperPE  I  .  Ihe  Waterloo 
6809  Assembler  permits  machine  language  pro- 
gramming which  is  somewhat  like  programming  in 
higher  level  languages.  Along  with  the  Assembler 
is  an  Editor,  a  Linker  (to  connect  modules),  and  a 
monitor. 

Making  the  transition  to  this  assembler  involves 
two  major  adjustments:  you  are  now  working  with 
a  6809  and  you  are  using  a  c(mi plicated  as.scmbler. 
Ifytju  are  accustomed  to  working  with  simple 
assemblers  (Supermon,  Extramon,  Micronion,  or 
others),  you  will  be  baffled  at  first  by  the  require- 
ments of  this  assembler.  Before  looking  into  the 
significant  differences  between  6809  and  our  fa- 
miliar 6502,  let's  see  what  is  required  il  \()ii  decide 
you  want  to  place  the  letter  "a"  in  the  iip|)er  left 
corner  of  your  screen. 

Simple  6502  Version: 

0360  LDA#$41 
0362  STA$8000 
0365  BRK 

Waterloo  6809  Assembler  Versioni 

Ida  #'a 
sta  $8000 
swi 
end 

SWI  means  software  interrupt  and  resembles 
BRK  on  the  6502.  (There  are  three  software  inter- 
rupts available:  SWI,  SWI2.  and  SWI3.)  The  apo.s- 
trophe  allows  you  to  enter  the  actual  letter  which 
will  be  translated  into  the  correct  value  for  you. 
Otherwise,  it's  fairly  simple  at  this  point.  You  are  in 
the  Editor  here  (no  need  for  addresses  yet  —  they 
will  be  created  later).  The  creation  of  yoin-  final, 
"object"  code  lakes  several  steps:  you  must  save  this 


"file"  to  disk  by  typing  p  (for  PUT)  namc.asm.  Then, 
when  the  ASM  file  is  on  disk,  you  type  BYE  to  gel 
into  the  menu  and  select  a  (assemble)  and  you  are 
asked  for  the  filename,  so  you  type:  name.  (It  adds 
the  ".asm"  for  you.) 

The  assembler  makes  two  new  files  on  the 
disk:  name.4  st  and  name.h09.  The  first  is  a  fairly 
si  laighi  forward  listing  of  the  source  code  with  line 
numbers,  object  codes,  nmemonics,  and  any  com- 
ments separated  into  appropriate  fields  on  screen. 
Name. 1)09  is  a  file  containing  tlie  object  code  to  be 
used  later  by  (he  Linker. 

Your  next  step  is  to  retmii  to  tlie  Editor  and 
make  a  fourth  file: 

"name" 
org  $1000 
"name.b09" 

and  PUT  it  to  disk  under  the  title  "name.cmd." 
The  first  line  here  names  the  "load  module,"  the 
second  line  defines  the  starting  address  o(  ilie 
object  code,  and  the  third  line  names  (he  object 
code  file  to  be  used  in  the  linking  process. 

Then  you  type  B\'E  again,  select  Linker  from 
the  menu,  and  type:  name.  (I'he  linker  will  add 
".cmd"  to  the  name.)  The  linker  creates  two  more 
files  (for  a  total  of  six):  namr.mtid  (executable  load 
module)  and  lutmc.map  (tells  how  iiainr.b09  was 
mapped  into  naine.mud). 

Now  you  are  ready  to  rim  yinn"  program.  A'ou 
enter  the  monitor  by  typing  "M"  from  the  menu 
and  then  type:  1  name. mod  (to  load  the  "module"). 
You  can  then  type  :  g  1000  and,  voilal,  an  "a" 
appears  on  your  screen. 

The  Monitor  And  Linker 

Like  TIM  (the  resident  monitor  on  PET/("-BM 
computers)  the  SuperPE  T  monitor  has  several 
commands  which  are  useful  lor  tlebugging  (Bank, 
Clear,  Dump,  Fill,  Go,  Modify,  Passthrouglt.  Quit, 
Registers,  Slop,  and  Translate).  "Bank"  allows  you 
to  access  any  of  the  1 6  banks  of  upper  RAM  for 
reading  or  writing.  "Stop"  sets  breakpoiiUs  and 
"Clear"  clears  them.  "Dump"  is  equivalent  to  "M" 
on  TIM.  "Modify"  permits  the  same  changes  as 
"Dump."  bm  in  the  form  M  ii  12  33  (where  the 
byte  at  $0()ff  now  becomes  $  1 2,  $0 100  becomes 
133).  "Quit"  is  like  TlM's  "x."  "Passthrougb"  sends 
all  input  lo  a  Itosl  computer  and  permits  all  output 
from  the  host  to  appear  on  screen. 

"Translale"  is  a  disassembly.  Cluriously,  there 
is  no  provision  for  single-slepping  or  foi"  SA\  Eing 
from  the  monitor.  A  single-step  |)rogiam  exists  (it 
was  used  at  Waterloo  to  create  the  SuperPET 
languages),  but  it  was  not  included  in  the  monitor. 
As  for  SAVE,  it  was  plamied,  evidently,  that  mo- 
dules should  be  only  created  from  the  upper  levels 
oi  the  development  system,  following  the  steps 
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outlined  abtjve  which  resuh  in  six  files  per  module. 
The  linker  knits  the  relocatable  (>l>jecl  modules 
{name.b09)  tnt(j  longer  executable  load  modules. 
The  linker  is  invoked  by  creating  the  name.cmd  file 
mentioned  above  and  including  various  commands 
in  Uiis  ("lie.  "Org"  specifics  ihe  desired  starting 
address  for  the  code.  "Banksize"  defaults  to  $1000 
if  not  specified  and  "Bankorg'^  defaults  to  $9000. 
Programs  or  modules  may  be  loaded  into  specified 
banks  with  the  "Bank"  command.  To  merge  exter- 
nal routines  from  the  system  library  (or  from  your 
personal  library  of  modules),  use  the  "Include" 
command.  Finally,  "Export"  sets  aside  some  me- 
mory (Export  bytespace  =  $7b00)  which  is  named 
"bytespacc"  and  reserved  for  tables,  etc.  Following 
its  definition,  "bytespace"  can  be  referenced  by  any 
routine  using  the  statement:  xref  bytespjice. 

The  6809 

As  Figure  1  illustrates,  the  most  obvious  novelties 
in  the  (i809  are  the  addition  of  Accmnniator  B,  the 
second  (User)  Stack,  a  Direct  Page  register,  and 
half-carr)',  fast  IRQ,  and  Entire  State  Saved  condi- 
tion flags.  In  addition,  of  course,  the  Y,  X,  and 
Acctmiidator  registers  and  thej  stack  pointers  are 


expanded  to  16  bits.  Some  of  these  improvements 
facilitate  simjilified  addressing  since  a  I  (5  bit  register 
can  address  an  enure  64 K.  Likewise,  a  stack  can 
now  be  located  anywhere  in  memory  and  be  of  any 
size  desired.  The  A  and  B  Accumulators  can  be 
concatenated  to  form  .Accumulator  D  (A  is  the 
MSB).  This  allows  16  bit  addition,  subti  action, 
compare,  and  so  forth,  via  a  single  mnemonic. 

The  S  stack  pointer  is  used  for  JSRs  and  inter- 
rupts as  expected,  but  the  U  slack  pointer  is  con- 
trolled completely  by  the  user  and  is  unaffected  by 
liardware  status.  This  permits  variables  to  be  passed 
between  routines. 

The  direct  page  registei-  (normally  0)  is  used 
to  form  the  MSB  of  an  effective  address  during 
"direct  addressing."  The  offset  is  the  byte  following 
the  direct  addressing  mode  opcode.  This  is  like  the 
familiar  zercj  page  addressing,  but  with  the  added 
ability  to  set  "zero"  at  any  page.  A  half-carry  is  a 
carry  from  bit  three  during  eight-bit  addition. 
There  is  a  fast  intenupl  request  line  whit  h  can  be 
masked  with  the  fast  IRQ  flag.  The  entire-state- 
saved  flag  signals  that  all  registers  (not  simply  the 
program  counter  and  CX.)  have  been  saved  on  the 
stack. 


Figure  1. 
15 


6809 


X 


PC 


u 


DP 


Entire  State      <J 
Saved  on  Stack 


Fast  IRQ 


Half-carry 


Accumulators 
Y  Index  Register 

X  Index  Register 
Program  Counter 
User  Stack  Pointer 

Hardware  System 
Stack  Pointer 

Direct  Page  Register 

Condition  Code 
Register  (CC) 


|X  Carry 


Overflow 


Zero 


IRQ 


Negative 


6502 


PC 


Negative /I 


Overflow 


Accumulator 
Y  Index  Register 
X  Index  Register 
Program  Counter 

Stack  Pointer 

Processor  Status 
Regi.ster  (P) 


{>  Carry 


Zero 


IRQ  Disable 


BRK 


Decimal 


Branch  Never:  Addressing  and  New  Instructions 

In  addition  to  the  familiar  6502  modes,  the  6809 
includes  "Direct"  addressing,  "Long  Relative"  (16 
bit  relative,  position  independent),  and  various 
indexed  and  inflirert  modes  includintr  auto-incre- 


ment  and  decrement  by  one  or  two  bytes  at  a  time. 
The  efficiency  inherent  in  16  bit  manipulations,  new 
addressing  modes,  and  new  instructions  permits 
greater  programming  freedom  than  is  possible  on 
the  6502.  For  example,  the  6502  has  approximately 
56  mnemonits  where  llie  6809  has  nearly  twice  as 
many.  (Mnemonic  counts  will  vary  depending  on 
whether  such  instructions  as  ROL  and  ROL  Ac- 
cumulator are  coimted  as  distinct  instructions.) 

Among  the  more  interesting  new  instructions 
is  SWI  (the  entire  machine  state  is  saved  and  control 
is  transferred  through  the  vector  at  $FFFA-B. 
SWI2  is  the  .same  except  that  the  IRQ  masks  Hags 
are  not  set  and  the  vector  is  $FFFA4-5).  SEX  means 
sign  extended.  BRA  is  branch  always.  Perhaps  the 
most  enigmatic  new  instruction  is  BRN,  Branch 
Never.  Though  hundieds  of  uses  for  this  spring  to 
mind  immediately,  die  assembler  manual  suggests 
that  it  can  be  used  if  you  should  become  tired 
of  NOP. 

MUL  multiplies  accumulators  A  and  B  (un- 
signed) and  stores  the  result  in  the  D  (A  +  B)  ac- 
cumulator. COMA  and  COMB  complement  these 
accumulators.  ORB  P  inclusive  ORs  the  value 
addressed  by  P,  with  B. 

Assembler  Expressions 

The  assembiei  provides  foi"  extensive  programming 
options  through  lables,  external  references,  libraries, 
macros,  operators,  conditional  assembly,  etc. 
QUIF?  It's  Quit  IF,  one  of  the  structured  pro- 
gramming statements.  HI  is  a  condition  which 
follows  QUIF  and  is  true  if  the  carry  and  zero  flags 
are  both  clear.  Other  statements  are:  IF,  ENDIF, 
ELSE,  GUESS,  ADMIT,  ENDGUESS,  LOOP, 
ENDLOOP,  and  UNTIL.  Like  their  counterparts 
in  other  languages,  these  statements  can  be  used  in 
the  assembler,  if  that  is  your  preference. 

Also,  a  library  of  common  routines  is  included 
and  can  be  called  into  a  program  by  typing  the 
reference  name  followed  b)  an  "underbar"  charac- 
ter, an  underline  which  is  created  by  hitting  the 
back-arrow  key.  ISDELIM  checks  to  sec  if  the 
character  in  question  is  a  delimiter  (not  alphabetic 
or  numeric).  STOI  converts  a  decimal  string  to  an 
integer.  ISUPPER  sees  if  you  have  an  uppercase 
alphabetic  character.  FSEEK  fmds  a  record  in  a 
random  file.  In  all,  there  are  67  library  modules. 
The  first  parameter  is  pa.ssed  on  D,  the  rest  on  the 
stack.  Results  come  back  in  D. 

The  "structured  programming"  statements, 
100  mnemonics,  67  library  names,  17  addressing 
modes,  96K,  two  stacks,  16  memory  banks.  It's  a  bit 
of  a  transition.  Nevertheless,  16  l)it  addressing,  the 
freedom  to  MUL  at  will,  and  numerous  other 
advantages  all  combine  to  make  the  6809  ojnion  on 
the  SuperPE'f  exciting  and  promising  for  machine 
language  programming.  (g 
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.^^' 


FKKU    For    ' 


FHICTION 
Conversion  Kit    $69 


UnCrdSher    for    ZOOO/^OOO 
•*    HEW   **         for   S032 


$15 
«2S 


VOT8AX    Type-M-Talk    $3i5 

TU-PVE  Connect      your 

Video  Monitor  to  PET/CBM 
for  second  di^ijlay.  Our 
uniqur  con (net  ex  ten  si  on s 
Icavt^  u«Fr  port  available 
for  other  acco&sorte& 
(NOT    for    &032)  t39-95 


COfiNlCT  PET/CEM  TO  PRINTER:  Simply  plug  in  ihv  inlcrface  and 
use  your  PET/CBM  cnampulcr  wl8h  populat  "stdndftrd"  printers^ 
or  ^dd  video  monitor  for  second  display.  All  interfaces 
a&5cniiled,    tc&tcd,   waronlced.      No    soflvare    required^ 

TU-65C  Use  NEC ,  Ccnl ronifis ,  XyncC ,  or  other  Indust  ry 
standard  parallel  printers.  Works  wi  (h  di  stt .,  other  1EE£ 
devices  at  I  ached,  ,  .  .  , ,, ,  .  .  . $129-95 

TU-65CO         Ab   above,     for   Okidala $129-95 

Comput er-Prinler    InlcrfaCeS    by    ESCON 

SELECTRIC    to    PET/CBM  $649 

SELECTRIC    to  Apple.    THS-flC:    Parallel  $549 

^ELECTRIC    to   Apple,    TfiS-80:     HS-232    Serial  $579 

WTST-l/O      to   Parallel  Si25 

Cables    extra,     $20    la    $90.  In&taUatLon         $100 

SELECTRIC.    Heavy  Duly    15",    retondi i ioned ,    with   ESCOH    Tor 

PET/CBM  $1195  TR5-B0  Mod    1,3  $995 

APPLI  $1195  ThS-BO  Model    2  $1045 

R5-232  $lCi5 


Virginia    Micro    Systems      IIT/.I"/ Z'..''^ 


14415  Jelffi^on  Ds^ih  Highuav 
Wooilhnilsr.  Viiginia  22191 


(7031  491-6502 


salts  A    service 
MWK    lJ-8.Sa    9-3 


Introducing  The 

FINANCIAL 


Diskette  Programs  lor  16K  PET/CBM 


Financial  Programs 

The  Wizard  helps  you  quickly  calculate  12  major  types 
of   Financial  Transactions  witti  ease  and  accuracy. 

Created  for  businesses  and  individuals,  ifiis  DISK 
PACKAGE  has  9  programs  plus  instructions.  The  Wizard 
delivers  answers  on  the  screen  or  printer. 

CASCADE  COMPUTERWARE     •     (206)355-6121 
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PET  Repairs  For 
The  Amateur 

Louis  F  Sander 
Pittsburgh,  PA 

My  small  keyboard  PET  has  had  several  awful- 
looking  symploms  over  ihe  past  year,  and  each 
lime  I  dreaded  die  size  ol  ihe  possible  repair  bill. 
But  each  time  I  was  able  to  cure  the  problem  myself, 
with  no  need  for  knowledge  of  digital  electronics. 
Based  on  first-hand  experience,  and  on  many 
notes  compared  with  others,  here  is  what  to  look 
for  when  your  PET  is  acting  strange:  loose  connec- 
tions, period. 

Loose  connections  are  proDably  the  most 
heqnent  .source  of  trouble  in  PET-like  electronic 
equipment,  and  they  are  often  the  easiest  to  (Ind 
and  fix.  You'll  learn  how  I  found  mine,  after  a  few 
words  on  .safety.  First,  never  look  for  trouble  wiili 
your  PE'F  plugged  in.  Under  normal  circumstances, 
all  lethal  voltages  are  kept  away  from  PET's  main 
circuit  board  and  other  exposed  parts,  but  when 
trouble  comes,  circumstances  aren't  normal.  So 
always  pull  the  plug  when  you're  troubleshooting. 
Also,  always  take  pains  to  avoid  static  electricity 
when  you're  poking  around  inside  your  PET.  Tiny 
sparks  that  you  can't  see  or  feel  can  ruin  some  of 
the  lC''s  in  there,  so  don't  take  any  chances.  The 
best  precaution  is  to  ground  yourself  by  touching 
bare  metal  on  the  cabinet  whenever  you  touch  an 
IC  or  the  circuit  board;  it  may  look  silly,  but  it's 
safe.  Now  lor  ni)'  war  stories: 

My  first  trouble  was  erratic  operation.  From 
time  to  time,  I'd  get  a  screen  full  of  garbage,  and 
my  cassette  motor  would  riui  and  run.  It  looketl 
like  my  reset  button  was  locked  down,  but  I  knew  it 
wasn't.  On  the  advice  of  somebody  who  knew ,  I 
looked  for  an  IC  that  was  loo.se  in  its  socket.  When 
I  found  it,  the  trouble  went  awiy.  With  dmc  and 
the  flexing  caused  by  neat,  IC's  all  tend  to  walk  out 
of  their  sockets.  If  you  have  symptoms  of  trouble, 
check  this  first.  Open  your  PET  and,  with  one 
hand  touching  the  cabinet,  firmly  press  down  on 
both  ends  of  every  socketed  K!,  and  walk  them 
back  into  place.  You'll  be  surprised  how  many  are 
loose.  Don't  worry  too  much  about  fiexing  the 
printed  circuit  board  it.self —  it  can  withstand  a  bit 
of  bending. 

My  second  problem  came  from  a  bad  power 
connector.  Ed  lose  everything  on  my  screen,  right 
in  the  middle  of  something  important.  At  other 
times,  I'd  power  up  an<l  not  be  able  to  get  anything 
on  the  screen  at  all.  When  I  lound  a  hot  power 


connector,  I  knew  the  cause  was  found.  The  power 
connectoi'  attaches  yoiu-  main  circuit  board  to  the 
wires  coming  from  the  large  tianstormer  and 
electrolytic  capacitor  at  the  left  rear  of  PET's  base. 
If  you  are  having  problems,  especially  ones  that 
crop  up  after  some  length  of  on'  time,  run  your 
machine  for  an  hour  or  so,  then  feel  the  power 
connector.  If  it's  noticeably  hot,  it  is  a  candidate  for 
replacement.  I  replaced  both  ends  of  my  connector 
with  Radio  Shack  274-226  and  274-2.^6,  for  under 
$3.00  total.  If  you're  not  an  experienced  electronics 
person,  turn  this  job  over  to  an  expert  —  it's 
easy,  but  the  new  connectors  are  far  from  exact 
replacements. 

My  biggest  and  most  mysterious  problem  was 
caused  by  a  dirty  contact  on  the  connector  between 
the  main  board  and  tape  drive  #1 .  For  several 
months,  I'd  gel  strange  screen  messages  and  fre- 
quent system  crashes  whenever  I  tried  to  load  a 
program  that  was  other  than  the  first  one  on  a 
casseue.  I'd  say  LOAD  "RINK\DINK,"  the  tape 
would  start  to  move,  and  then  I'd  get  some  horribh' 
misspelled  version  of  :TLLE(;AL  QUANTITY 
ERROR,  sometimes  before  and  sometimes  after 
the  PET  hafi  FOUND  the  programs  preceding 
RINKVDINK.  It  got  so  bad  thai  I  gave  upon  ever 
being  able  to  put  more  tliau  one  [irograin  on  a 
tape.  I  could  tell  that  the  pt oblem  was  associated 
with  the  unrecorded  gaps  between  programs,  but 
that's  as  far  as  it  went. 

I  found  the  problem  one  day  as  I  connected 
an  audio  amp  to  the  tape  READ  line.  The  recorder 
was  running  a  totally  blank  tape,  and  the  noise  on 
the  READ  line  was  tremendous.  I  accidentally 
jiggled  the  wire  going  from  the  recorder  to  the 
main  board,  and  the  noise  stopjK'd  completely. 
Later  I  found  that  a  poor  ground  contact  on  the 
PC  board  connector  was  allowing  niotoi^  noise  to 
get  into  the  signal  circuits,  and  that  PET  was  trying 
to  read  the  noise  as  data.  No  wonder  it  got  an 
ILEGAL  QUANIY  ERRR!  Two  minutes  with 
superfine  sandpaper  cured  the  ))roblem,  and  now 
I  can  read  through  a  whole  C-6()  with  no  system 
lockups.  Keep  your  connectors  clean. 

By  the  way,  I've  had  one  minor  problem  unre- 
lated to  bad  coiuiections:  M)  PET  likes  to  read 
tapes  a  lot  better  withotit  any  amplifier  connected 
to  CB2.  I  don't  know  just  why,  but  the  machine 
definitely  works  better  with  nothing  connected 
back  there.  So  now  I  disconnect  the  amplifier 
whenever  I'm  through  with  a  |)rogram  that  uses 
sound.  I  guess  this  really  is  anothei'  loose  connection 
problem,  but  one  of  a  differeni  .sort  —  in  this  one, 
loosest  is  best.  But  take  it  from  one  who  knows 
more  about  it  than  he  wants  U)  —  loose  connections 
arc  common  in  your  PET,  and  you  can  usually  fix 
them  yourself.  © 


QUALITY  ACCOUNTING  SOFTWARE 
for  the  CBM  COMPUTER 


THE  GENERAL  LEDGER  SYSTEM       $  1 50.00 

All  entries  are  made  via  formatted,  fill  in  the  blanks, 
screens.  There  is  a  separate  check  stub  format  disburse- 
ments entry  screen  and  eight  digit  account  numbers  to 
allow  sub  coding  as  required.  Up  to  fifty  user  designaied 
journals  are  available.  All  data  is  verified  on  input  with 
balance  enforced.  All  journals  are  available  for  print  at 
any  point  in  the  accounting  cycle.  Any  printout  may  be 
printed  by  department.  The  general  ledger  prints: 
balance  forward,  full  detail  of  each  transaction,  total 
credits,  total  debits,  and  end  balance  for  each  account. 
Available  reports  includejournals,  disbursements 
register,  current  trial  balance,  audit  trial  balance,  budget 
trial  balance,  income  statement,  balance  sheet,  cash 
flow  analysis,  and  comparison  of  budget  vs.  actual 
amounts  for  year  to  date,  or  the  current  period. 

FUND  ACCOUNTING  SYSTEM  S200.00 

The  perfect  accounting  system  for  the  municipal  utility 
district,  and  the  small  oty  or  school  district.  The  system 
includes  all  features  of  the  general  ledger  system  with 
the  added  ability  of  printing  all  reports,  and  the  general 


ledger,  by  fund  as  well  as  by  department, 

CLIENT  ACCOUNTING  SYSTEM         $200.00 

The  accounting  tool  kit  for  the  public  accountant.  This 
system  includes  all  features  of  the  general  ledger  system 
with  the  addition  of  a  payroll  check  stub  formatted 
screen  for  payroll  check  input.  Also  included  are:  a 
payroll  disbursement  register,  a  1 099  register,  941 
reports,  and  W-2's, 

INTERLOCKING  MODULES 

The  following  modules  are  available  for  any  of  the 
general  ledger  based  systems: 

Accounts  Payable 

Accounts  Receivable 

Payroll 

Job  Cost  Payroll 

Utility  Billing  System 
Accounting  software  may  be  reviewed  at  your  dealer,  or 
via  mail.  Full  catalog,  demo  disc,  sample  operations  man- 
ual, (please  specify  which  system),  and  a  S20.  credit  cou- 
pon —  only  S20.00 

DEALERSI  Please  Write  for  Dealers  Pack 


S  75.00 
S  75.00 
S  75.00 
S  100.00 
SI  00.00 


Expanded  Sodware  Catalog  Free  on  Requesi 

BASIC  SOFTWARE  SERVICE 

P.O.  BOX  1 8 1 ,  LA  PORTE,  TX.,  7757 1 
Phone  Area  Code  713/470-1857 


ASERT  yourself . . .  with  CFI's  new  Database  Retrieval  System 


WHO  CAN  USE  ASERT? 


libraries 

personnel  departments 

dating  services 


to 


schools 

employment  agencies 

accountants 


ANY  BUSINESS  THAT  KEEPS  RECORDS  CAN  USE  ASERT  TO: 


Create  up  to  21  fields  per  record 
Restructure  fields  at  any  time 
Sort  on  any  field  at  any  time 
Use  FREE-TEXT  area  for  comments 
Create  up  to  90  searctiwords 


Searcli  &  retrieve  on  any  combination  of  90  searchwords 

Search  with  MUST  HAVE,  MAY  NOT  HAVE  and  OPTIONAL  operators 

Print  out  fiardcopy  including  labels 

Output  to  any  word  processor 

Compile  summary  statistics 


•  Maintain  1900  records  per  disk  with  "virtual"  5K  record  length 

ASERT  —  Aid  for  Search  &  Retrieval  of  Text  —  $495  compfele 

For  the  8032  CBM  and  8050  disk  drive  —  Commodore  Approved  Software 


OTHER  CFI  SOFTWARE 

Federal  Income  Tax  Preparation  System* 

Personal  Tax  Calculator* 

Emergency  Control  Program* 

VIC  Animation  Tutorial 

•Distributed  for  CFI  under  the  Commodore  label 


ALL  CFI  SOFTWARE  AVAILABLE 

from  your  local  Commodore  dealer 
or  direct  from  CFI 


CFI 


computer  solutions,  875  West  End  Ave..  New  York    NY  lOO^R 
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Realtime 
Clock  On  Your 
Pet  Screen 


Mark  L.  Robinson 


Editor's  Note:  In  the  version  of  Mr.  Rohinson's  clock 
routine  for  4.0  BASIC,  the  code  has  been  moved  up  38 
(decimal)  from  the  Upgrade  version  of  Program  1.  Add  a 
value  of  38  to  his  POKEs  and  refhences  for  the  4.0 
version.  — RTM 


How  many  times  have  you  sat  down  at  your  com- 
puter to  fiddle  around  for  a  few  minutes,  returning 
to  the  real  world  hours  (or  days)  later.  This  is  not 
always  a  problem  and  I  don't  mind  being  splattered 
with  cold  suppers,  missing  parties,  or  aggravating 
my  wife.  But  one  night,  I  had  some  free  moments 
to  ponder  the  problem  of  losing  track  of  time. 
Wouldn't  it  be  great,  I  thought,  if  I  could  always 
have  the  correct  time  on  the  screen. 

I  knew  that  my  PET  had  a  1/60  second  counter 
which  is  updated  during  the  internal  interrupt 
cycle  and  some  routines  to  print  out  the  time.  I 
started  to  study  the  memory  map  in  Osborne's 
PET/CBM  Personal  Computer  Guide  and  ibund 
the  following  items:  jiffy  memory,  clock  correction 
routine  and  the  location  of  the  interrupt  addresses. 

I  figured  if  I  could  revector  the  interrupt 
through  a  small  machine  language  program,  I 
could  capitalize  on  ail  three  items  -  the  jiffy  clock  to 
keep  track  of  time,  the  interrupt  addresses  to 
return  to  the  correct  location  and  the  clock  correc- 
tion routine  to  make  up  for  the  lost  time  of  my 
program,  if  necessary. 

Some  other  investigation  :»howed  thai  the 
routines  that  print  the  TIME$  use  a  lot  of  pro- 
cessing time  and  interact  with  memory  locations 
that  Basic  uses.  I  figured  it  would  be  best  to  handle 
it  completely  as  a  separate  little  program.  Then, 
the  more  I  thought  about  it,  I  realized  that  once 
the  time  was  set,  I  could  follow  it  with  a  simple 
series  of  little  counters  rather  than  keep  having  to 
do  long  divisions.  This  also  has  the  advantage  of 
being  able  to  jump  back  to  the!  normal  program 
whenever  there  is  no  carry  up  to  the  next  most 
significant  clock  digit.  This  saves  over  50  percent 
of  the  time  penalty  of  the  screen  clock. 

To  initialize  the  clock  and  load  the  machine 
language  program,  I  wrote  a  small  BASIC  program. 
Ynn  ran  follow  the  exnlanations  in  the  fiowchart 


and  the  symbolic  listing  of  the  machine  language 
program  along  with  the  listing  of  the  BASIC 
program.  The  machine  language  program  is  short 
enough  to  load  with  pokes  rather  than  entering  it 
using  the  machine  language  monitor.  You  can 
enter  and  run  this  as  a  normal  basic  program  and, 
while  the  clock  is  running,  you  can  use  most  BASIC 
programs.  There  is  a  small  time  penalty  to  use  this 
while  running  BASIC,  but  if  you  are  programming 
or  game  playing,  it  is  not  critical. 

Incidentally,  since  the  program  is  synchronized 
with  the  jiffy  counter,  you  are  automatically  using 
the  PET's  internal  correction  routine.  On  a  three 
hour  run  against  a  stop  watch,  the  PET  gained  two 
seconds  (so  much  for  my  stop  watch).  Two  words 
of  caution  when  you  are  writing  programs:  first,  il 
you  hit  retin-n  on  the  line  the  time  is  on  it  will  i:)e 
entered  in  the  listing  and,  second,  if  you  have  to 
load  a  program  from  the  cassette,  turn  the  clock 
off  (POKE  144,46:POKE  145,230),  load  the  pro- 
gram, and  start  the  clock  again  (POKE 
144,74:POKE  145,3).  To  reset  the  clock  poke  the 
correct  time  digits  to  locations  8.^.^-838. 


DEFINITIONS 


Symbolic  Listing 
Real  Time  on  Screen 


LOTB  =  Least  significant  time  bit — 

(Jiffy  Counter) 
TLOC I  Temporary  holding  location 
TL0C2  '  '  ' 

of  priorjiffy  count 
BASE  1-7  Base  of  count,  lOorS 
IMAGE  1-7  Location  of  time  in  memory 
SCT  1-7  Screen  locations  of  time 


INITIALIZE 
LDA  LOTB 
ADC  #05 
STA  TL0C2 
LDA  #Slart 
STA  IRQ  Low 

START 
LDA#LOTB 
STA  TLOC  1 
CMPTL0C2 
ADC  #05 
SBC  TLOC 2 
ADCTLOCI 
STA  TL0C2 
INCIMAGE,7 
LDX#07 

COUNTER 

LDA  IMAGE.X 

CMPBASE.X 

BNE  UPDATE  INIT 

LDA  #00 

STAIMAGE.X 

DEX 

BEQUPDATEINIT 

INCIMAGE,X 
IMP COUNTER 


Initialize  prior  count  set  i(  ahead 
to  next .  1  second.  Note  1 

Revector  interrupt  to  start 


Check  jiffies  see  if  we've  reached 
next.l  sec 

Ves-set  TL0C2  for  next .  1  sec,  make  sure 
that  if  more  than  6  jiffs 
occurred  we  do  not  add  too  much 

Increase .  1  sec  memory  location  by  I 
Initialize  counter  routine 


Check  (o  see  If  we've  reached  limit 
of  base  which  produces  a  carry 
No  —  thcngo  to  Update  Init 
Yes — .placeO  tndigit  position 

Go  to  next  number  in  sequence 

If  we  have  done  all  7  digits  go  to  screen 

update 

Increment  next  digit  by  I  (result  of  carry) 

Co  back  and  check  this  digit  for  carrv 


SYS8010 


for 

801 0  or 

TNW2000 


Software 

by 

MICROFEX 

fits  in  3.5K 


VIC-MAN 

eats  dots  and  monsters 
in  maze $14.95 


VIC-20 


ViC-ROiDS 

shoot  at  asteroids  as  they 
float  in  space ...  $1 4.95 


ROM  based  terminal 
package  for  CBM  8000 
with  8010  orTNW2000 

SYS8010  ROM $49.95 

OR 

FREE  with  purchase 
of  8010  modern! 

S010  modem $279.00 

PRIVATE  I 

Eliminates  data  errors 

when  using  a  modern  with 

an  extension  line 

$11.95 


Pet  Bulletin 
Board  System 

start  a  bulletin  board  with 
your  16K  Pet  or  CBM. 
Use  4040,  8050  or  2031 
drives.  See  it  in  operation 
al  (414)  282-81 18. 

See  Message  Number  3. 

PBBS  software 
$49.95 


We  also  carry  and  demo 

the  entire  Commodore  and 

Jim-Pack  lines 

of  equipment. 

Send  cfieck  or  money  order 
with  order.  Allow  S5.00  for 

shipping  and  handling. 

PETTED  microsystem 

4265  W.  Loomis 
Milwaukee.  Wl  53221 

under  the  "Shell"  sign 
at  1-894  &  Loomis  Rd. 
(414)282-4181 

PETTED 

VISA  &  MASTERCHARGG 
ACCEPTED 


JUST  PLUG  IT  IN 

•   No  soldering  •  No  messy  wires 

SOFTWARE 
SELECTABLE 

1 .  Software  selecl  one  of  two 
operating  systems. 
(BASIC  2.0 /BASIC  4.0) 

2.  Software  select  utility  ROMs 
at  conflicting  addresses. 


$125 


00 


(U.S.) 


(Si  50,00  Canadian) 

Add  S3.00  shipping  to  all 

points  outside  Canada. 

Master  Charge  and    w 
VISA  accepted.       ^ 


BATTERIES 
inCLUDED 


For  24  Pin  ROM  Machines  Only. 


Village  by  tfie  Grange 
71  McCaul  Street 
Toronto,  Ontario 
Canada  M5T  2X1 
(416)596-1405 
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c 


first  entrv 


5 


load  &  set  jiff 
^count  ahead  lo  next\ 
1  sec.  modify  IRQ/ 
vector 


c 


subsequent 
entries 


t> 


Y_ 


load  &  compare 

jiffies  to 
next  .1  second 


increment  .1  sec. 
counter  find  out  how- 
many  more  Jiffs  than 
6  load  &  set  jiff  count 
ahead  again 


increment  next 
digit 


TV 


replace  screen  with 
7  new  time  digits 
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UPDATE INIT 

LDX#07 

UPDATE 

LDA  IMAGE.X 

ADC  #$30 

STA  SCT,X 

DEX 

BNE  UPDATE 

LDA  #3A 

STASCT.O 

JMPIRQ 


Initialize  the  screen  update  routine 

Load  time  digit 

Convert  to  PET  number  code 

Store  on  screen 

Have  we  done  7  digits? — no  go  back 

to  update 

Yes  —  load  and  store  colon  on  screen 

Return  to  PET  IRQ  routine 


1016    DATA0, 0,0, 0,0,0 


Note  I:    The  reason  that  live  is  added  to  ihejifTy 
count  and  not  six  (to  get  tlie  next  6/60  or  .  I  sec)  is 
that  we  are  incrementing  when  the  prior  count 
location  is  less  than  tlie  jiffy  count.  IFche  increment 
occurred  on  equality  tlien  you  would  add  six.  Ihe 
reason  for  this  is  that  I  do  not  know  if  the  jiffy 
count  can  coiuit  two  sonielimes  in  which  case  the 
equality  would  not  occur  for  up  to  12.8  seconds  — 
when  the  same  binar\  digit  again  occurred.  This  is 
also  the  reason  tlie  program  checks  for  more  tlian 
six  ctnmts. 

Program  1:  Upgrade  Version 

5  REM    REAL    TIME    ON    PET    SCREEN 

6  REM    C    M.    ROBINSON    1980 

7  REM    OK    FOR    PERSONAL    USE 
10    FORA    =    1    TO    100 

20    READ    B 

30    POKE    825+A,B 

4  0    NEXT 

100    PRINT" {CLEAR}  HHMMSS" 

110    INPUT"TIME"; A$ 

120    TIS=A$ 

130    F0RA=1    TO    6 

140    D=VALCMID$ (A$,A,1) ) 

150    POKE832+A,D 

160    NEXT 

200    P0KE144,74:P0KE145,3 

250    NEW 

1000  DATA10,10,6,10,6,10 

1001  DATA10, 0,0, 0,0,0 

1002  DATA0,0,87,90,165,143 

1003  DATA105,5,141,73,3,169 

1004  DATA85,133,144,165,143,141 

1005  DATA72,3,205,73,3,48 

1006  DATA38,105,5,237,73,3 

1007  DATA109,72,3,141,73,3 

1008  DATA238,71,3,162,7,189 

1009  DATA64,3,221,57,3,48 

1010  DATA14,169,0,157,64,3 

1011  DATA202,240,6,254,64,3 

1012  DATA76,111,3,162,7,189 

1013  DATA64,3,105,48,157,31 

1014  DATA128,202,208,245,169,58 

1015  DATA141,31,128,76,46,230 


HHMMSS" 


Program  2:  4.0  Version 

10    FORA=1TO100 

20    READB 

30    POKE863+A,B 

40    NEXT 

100    PRINT" {CLEAR} 

110    INPUT"TIME"; A$ 

120    TI$=A$ 

130    F0RA=1T06 

140    D=VAL(MID$ (A$,A,1)  ) 

150    POKE870+A,D 

160    NEXT 

170    POKE144,112:POKE145,3 

180    NEW 

8  64    DATA    10,    10, 


10 


6,    10,    6, 

8  70    DATA    10,    0,    0,    0,    0,    0 

876    DATA    0,    0,    87,    90,    165,    143 
882    DATA    105,    5,    141,    111,    3,    169 
888    DATA    123,    133,    144,    165,    143,    1 

41 
894    DATA    110,    3,    205,    111,    3,    48 
900    DATA    38,    105,    5,    237,    111,    3 
906    DATA    109,    110,    3,    141,    111,    3 
912    DATA    238,    109,    3,    162,    7,    189 
918    DATA    102,    3,    221,    95,    3,    48 
924    DATA    14,    169,    0,    157,    102,    3 
930    DATA    202,    240,    6,    254,    102,    3 
936    DATA    76,    149,    3,    162,    7,    189 
942    DATA    102,     3,     105,    48,     157,    31 
948    DATA    128,    202,    208,    245,    169,    5 

8 
954    DATA    141,    31,    128,    76,    85,    228 

9  60    DATA    0,    0,0, 0,0, 0  © 
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Tape  Load  Test 
And  Head 
Alignment 

Louis  F.  Sander 
Pittsburgh,  PA 


This  article  shows  how  to  prepare  and  use  a  special 
test  tape  for  tlie  cassette  recorder  of  any  PET  or 
CBM.  When  the  tape  is  LOADed,  its  contents 
appear  on  the  screen,  allowing  the  user  to  see  any 
tape  errors  as  they  occur.  The  tape  error  display  is  a 
sensitive  indicator  of  the  overall  quality  of  the  tape 
reading  process,  and  one  which  can  be  used  in 
curing  such  mysterious  and  aggravating  problems 
as  defective  tapes  and  dirty  or  magnetized  heads. 
The  lest  tape  can  also  be  used  as  a  working  standard 
for  head  alignment. 

Making  The  Load  Test  Tape 

The  fust  step  in  creating  youi  tape  is  to  enter  and 
SAVE  the  "Test  Tape  Maker"  program  that  appears 
later  in  the  article.  Then  RUN  it  and  follow  the 
instructions  on  the  screen,  but  be  sure  you  under- 
stand the  material  in  this  section  first. 

The  instructions  ask  you  to  use  your  Machine 
Language  Monitor.  Don't  worry  if  you've  never 
used  it  before  —  it'.s  easy.  If  you  have  an  older  PET 
with  Original  ROMs,  LOAD  your  monitor  from 
tape  and  RLJN  it,  being  careful  not  to  lose  the 
"Test  Tape  Maker"  inslructi(^ns  from  the  screen. 
With  any  other  ROMs,  you  have  a  built-in  monitor. 
Acdvate  it  by  entering  SYS  1024. 

Once  the  monitor  is  rtmning,  it  will  prompt 
you  with  a  dot.  Mount  a  fully  rewoimd  tape,  and 
save  the  Isi  pass  program  by  entering  the  indicated 
hne  exactly  as  it  appears  in  the  "Test  Tape  Maker" 
instructions.  Then  rewind  the  tape  again,  and 
prepare  to  do  something  uiuisual  —  you  are  going 
to  record  a  new  header  on  top  of  the  one  already 
on  the  tape,  but  you're  going  to  leave  the  rest  of 
the  tape  imciiangcd!  You  will  do  it  by  initialing 
another  machine  language  SAVE,  this  time  hitting 
STOP  as  soon  as  the  header  has  been  recorded  on 
the  tape.  Knowing  when  to  hit  STOP  is  the  tricky 
part,  but  the  following  paragraphs  will  teach  you 
the  trick. 

If  you  can  hear  your  tapes  as  they  save,  your 
task  is  easy.  Some  C;B2  ampliners  amplify  tape 
soimds,  too,  and  you're  in  luck  if  yoins  works  this 
way.  If  it  doesn't,  just  connect  your  amplifier  tem- 


porarily to  pin  eight  of  the  user  port  connector, 
which  is  a  convenient  pickup  point  for  the  Tape 
Write  signal.  When  you  initiate  yoin^  save,  you'll 
hear  about  ten  seconds  of  leader  tone,  followed  by 
three  seconds  of  buzz,  followed  by  two  more  seconds 
of  leader  and  a  lot  more  buzz.  The  three  .seconds 
of  buzz  is  the  tape  header,  so  you'll  want  to  hit 
STOP  the  instant  you  start  hearing  the  second  section 
of  leader  tone. 

Even  if  you  have  no  way  of  listening  to  yoiu- 
SAVEs,  you  can  tell  when  to  hit  STOP  in  making 
this  tape.  First,  SAVE  any  program  into  a  fully 
rewound  tape.  Then  fully  rewind  it  again  and 
LOAD  it,  using  a  stopwatch  to  time  the  interval 
between  pressing  PLAY  and  seeing  the  FOUND 
message  on  the  screen.  Then,  when  recording 
LOAD  TEST,  wait  exactly  this  length  of  lime  be- 
tween pressing  PLAY  &:  RECORD  and  hilling 
STOP.  On  my  PET,  this  is  just  over  13  seconds, 
and  it  should  be  the  same  on  yours,  but  you  should 
use  a  stopwatch  to  be  sure. 

Now  that  you  know  when  to  hit  S  TOP,  let's  go 
back  to  "Test  Tape  Maker."  Use  the  Monitor  to 
save  LOAD  TEST  onto  the  rewound  1st  pass  tape, 
making  the  exact  entries  appearing  on  your  .screen. 
Press  PLAY,  and  as  soon  as  the  header  has  been 
recorded  (the  right  mimber  of  seconds,  or  the 
appearance  of  the  second  leader  lone),  hit  STOP. 
The  STOP  key  on  the  computer  is  preferable  to 
the  one  on  the  recorder,  but  either  one  will  work. 
The  timing  of  this  move  is  critical  to  a  fraction  of  a 
second,  so  use  yoiu"  fastest  fmger. 

As  soon  as  you  hit  S  TOP,  your  tape  is  fmished. 
To  be  sine  vou  have  a  good  one,  rewind  it  and 
LOAD  it.  If  all  is  well,  you  will  see  the  FOUND 
LOAD  TEST  and  LOADING  messages;  then  your 
screen  will  begin  to  fdl  with  solid  green  (or  white) 
squares.  Once  the  screen  is  full,  these  will  be  re- 
placed one-by-one  with  a  full  screen  of  colons,  then 
a  screen  of  shaded  squares,  then  one  of  minus 
signs.  Finally,  an  OK  will  print  at  the  bottom  of 
your  screen,  and  after  al)out  30  seconds,  a  READY 
message  will  appear  somewhere  on  screen.  No 
other  characters  should  appear  at  anv  lime.  The 
newer  machines  with  dynamic  RAMs  will  not  show 
the  last  two  .screens,  and  80  column  machines  will 
combine  the  fust  Iwo  on  one  screen.  If  you  cannot 
get  the  perfect  "LOAD"  described  above,  cilhcr 
you  have  made  a  defective  tape,  or  you  have  a 
problem  with  yoiu-  recorder.  Clean  and  demag- 
netize your  heads',  and  Iry  a  few  more  loads.  If 
you  still  don't  achieve  perfection,  try  making  a  new 
LOAD  TEST  tape  —  you  may  ha\'e  hit  SLOP  too 
soon  or  loo  late,  or  you  may  be  working  with  a 
defective  cassette. 

When  you  have  a  tape  that  loads  ]3erfectly  at 
least  once,  load  it  se\eial  more  limes  in  succession. 


PETTERM 

INTEILIGENT 
TERMINAL 


PETTERM  I 
PETTERM  II 

PETTERM  III 


Turn  your  PET  into  an  iriTslligant 
tarminai  with  on*  of  our  terminal 
packags*.  ThB»»  are  complats  at- 
sambled  hardwara  and  software 
packagat.  All  includa  lina  edJTing/ 
rasand,  raoaat  key,  jhift  lock,  out- 
put to  CBM  printer,  and  more  .  .  . 
Oellvarsd  on  PET  cauene  with 
manuali. 


All  faaturn  abova $75.00 

All    faatura*  of   I,  plu>  local   text  editor 
with  down-loading  capobiiitv   ■    ■    $90.00 

All    faatura*   of   il.   plut  80/132   column 
scrolling   window   for  viawing  formatted 
outputs  wider  than  4Q  columnt. 
S100.00 


forth 


for  PET/CBM 


FORTH  is  a  new  concept  in  programming,  with 
the  speed  of  compilers  and  interactive  ease 
of  BASIC.  Programs  become  a  part  of  FORTH 
extending  thepower  of  FORTH  and  your  PET . 

8050,4040  disk,  cassette   all  PET-CBtVfs  16k+ 

Stortec  fig- FORTH  w  edifor  aiiembler  S35 

Personal  Hooting  pointi  ilringii  jouree  S  75 

ProUiJionol      turnkey  development/data  bote        $259 


CBM/PET  INTERFACES 


1903  Rio  Qr«nct* 

Aus-tin,  Ttxas 

?e793 


1-512-477-2287 


P.O.  lo«  9403 

Austin, T*xas 

78712 


DEALERS  INQUIRE 


RS-232  SERIAL  PRINTER  INTERFACE -addressable - 
baud  rates  to  9600  -  switch  selectable  upper/lower, 
lower.upper  case  -works  with  WORDPRO.  BASIC  and 
other  software  -  includes  case  and  power  supply. 

MODEL -ADA1 450     149,00 

CENTRONICS/NEC  PARALLEL  INTERFACE  -  address- 
able -  high  speed  -  switch  selectable  upper/lower, 
lower/upper  case  -works  with  WORDPRO,  BASIC  and 
other  software  -  has  Centronics  36  pin  ribbon  connector 
at  end  of  cable. 

MODEL -ADA1 600     129.00 

CENTRONICS  730/737  PARALLEL  INTERFACE  -  as 
above  but  with  Centronics  card  edge  connector  at  end 
of  cable. 

MODEL -ADA730     129.00 

COMMUNICATIONS  INTERFACE  WITH  SERIAL  AND 
PARALLEL  PORTS  -  addressable  -  software  driven  - 
true  ASCII  conversion  -  selectable  reversal  of  upper- 
lower  case  -  baud  rates  to  9600  -  half  or  full  duplex  -  X- 
ON,  X-OFF  -  selectable  carriage  return  delay  -  32  cfiar- 
acter  buffer  -  Centronics  compatible  —  much  more. 

MODEL -SADI     295.00 

ANALOG  TO  DIGITAL  CONVERTER-  16  channels- 0 
to  5.1 2  volt  input  voltage  range  -  resolution  is  20  milli- 
volts per  count  -conversion  time  is  less  than  1 00  micro- 
seconds per  channel. 

MODEL -PETSET1     295.00 

REMOTE  CONTROLLER  WITH  CLOCK  CALENDAR 
-  controls  up  to  256  devices  using  the  BSR  XI 0  remote 
control  receivers  -  8  digital  inputs,  TTL  levels  or  switch 
closure  —  8  digital  outputs,  TTL  levels. 

MODEL -PETSET2     295,00 

All  prices  are  in  US  dolfars  for  120VAC. 

Prices  on  220  VAC  slightly  higtier. 

Allow  $5,00  shipping  &  handling,  foreign  orders 

add  1 0%  for  AIR  postage, 

Connecticut  residents  add  7'/?%  sales  tax. 

All  prices  and  specilicalions  subject  to  change  without  notice. 

Our  30  day  rnoney  back  trial  period  applies 

MASTER  CHARGE,VISA  accepted, 

MENTION  THIS  MAGAZINE  WITH  YOUR  ORDER 

AND  DEDUCT  5%  FROfwl  TOTAL, 

IN  CANADA  order  from:  Batteries  Included,  Ltd..  71  McCaul 

Street.  F6  Toronlo.  Canada  M5T2X1.  (416)596-1405, 

IN  THE  USA  order  from  your  local  dealer  or  direct;  Connecticut 

microcomputer.  Inc.  34  Del  Mar  Drive,  Brookfield,  CT  06804 

(203)775-4595, 

Dealer  inquiries  invited. 


Connecticut  microcomputer,  Inc. 

34  Del  Mar  Drive.  Brookfield,  CT  06804 
203  775-4595  TWX   710  456-0052 
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You  should  get  perfect  or  neai  -perfect  results 
every  time.  Anything  otiier  thiiii  smooth  screen 
lining,  with  no  unusual  characrers,  is  an  indication 
of  an  imperfect  load.  H  you  fail  to  achieve  perfec- 
tion, refer  lo  the  material  in  the  ncxi  section.  Other- 
wi.se,  consider  yoin-  lest  tape  ready  ['oi*  use.  Mark  it 
with  the  date  it  was  made,  and  set  it  aside  in  a  safe 
place.  If  you  want  a  .second  copy,  use  "Test  Tape 
Maker"  to  create  one,  since  there  is  no  way  to  cop)- 
a  completed  tape.  It's  a  good  it^ea  to  put  a  copy  of 
"'l>st  Tape  Maker"  inniutliately  after  LOAD  TEST 
on  your  tape,  so  you  will  have  nnh  of  them  whe- 
never you  need  iheni. 

Using  The  Test  Tape 

.\'ow,  wiienever  you  luive  trou  lie  LOADing  a  tape, 
you  can  evaluate  the  situation  hy  loading  LOAD 
TEST.  If  the  screen  fills  properly,  you  know  that 
yoiu-  PET  worked  perfectly  during  the  LOAD. 
Tlie  trouble  is  piobably  with  yoiu-  tape  —  it  may  be 
defective,  or  it  may  have  been  jnade  on  a  recorder 
whose  head  is  not  aligned  with  yours.  Read  the 
Head  Alignment  section  below. 

If  your  screen  doesn't  fill  properly,  there  may 
be  a  problem  with  yoiu-  machine,  and  vou  can  use 
the  screen  display  to  evaluate  it.  Every  inipro|X'r  or 
misplaced  character  on  the  screen  repiesents  a 
mishandled  I)yte.  By  using  the  second  program 
copy  recorded  on  every  tape,  PET  can  automatically 
correct  up  lo  31  of  these.  LOAJD  TEST,  by  the 
way,  lets  you  see  this  as  it  happens,  when  "proper" 
characters  appear  on  the  screen  in  place  of  the 
"bad"  ones  during  the  30  seconds  just  before  the 
READY  message.  Normally,  vou  should  ha\'e  very 
few,  if  any,  mishandled  bytes.  The  more  you  have, 
the  greater  your  problem.  If  ybu  have  more  than  a 
very  few,  even  tliough  PET  can  correct  them, 
something  is  awry  with  your  niachine's  LOAD 
process,  and  corrective  action  is  called  for. 

The  first  corrective  action,  of  course,  is  to 
clean  and  demagnetize  your  tape  heads'.  The 
second  is  to  clean  the  contacts  on  the  connector 
and  the  ciicuil  board  whcie  ) cmr  recorder  plugs 
into  your  computer.  If  these  steps  fail  to  improve 
your  situation,  try  a  head  alignment.  If  that  also 
fails,  see  your  serviceman. 

Head  Alignment 

Eor  a  tape  to  load  properly,  your  PETs  read/write 
liead  must  be  precisely  aligned  with  the  magnetic 
field  on  the  tape.  The  tape's  field  is,  of  course, 
perfectly  aligned  with  the  head  of  the  recorder 
that  made  it.  A  small  amount  of  misalignment 
between  tape  and  read  head  often  shows  up  as 
mishandled  bytes,  a  moderate  amount  as  a  ?LOAD 
ERROR,  and  a  large  amount  ^  a  complete  failure 

to  read  the  tape. 

\f;c-ilirTiTni*>tTf  r;in  firriir  with  one  of  \<)ur  own 


tapes  if  your  machine's  alignment  has  changed 
since  you  made  the  tape.  It  also  occurs  if  a  tape  you 
are  trying  lo  read  was  recorded  on  a  machine 
whose  head  is  out  of  line  with  yours.  Imperfect 
aligtmient  between  two  PETs  is  c|uite  connnon,  and 
is  often  the  cau.se  of  inability  to  load  other  people's 
tapes. 

You  can  use  yoiu-  LOAD  TEST  tape  lo  bring 
any  recorder's  head  into  alignment  with  the  head 
that  made  LOAD  TEST.  Adjustment  procedines 
have  been  piililished  elsewhere''.  Once  you  know 
how  to  make  the  adjustment,  just  load  your  test 
tape  into  the  appropriate  machine  and  adjust  its 
head  for  perfect  screen  jjatterns.  There  is  no  need 
for  any  PEEKs  to  conlirm  the  success  of  the  LOAD, 
since  you  can  see  every  mishandled  byte  right  on 
the  screen  itself.  You  can  even  use  LOAD  "lEST  to 
adjust  the  head  iv/iile  l/w  tape  is  loading,  since  it  gives 
you  20-40  seconds  of  real-time  feedback  on  the 
quality  of  yoin  LOAD. 

Always  remember  that  you  are  adjusting  the 
read  head  to  the  tape  that  it  is  reading.  li  the  rec- 
order which  made  it  was  misaligned  from  "stan- 
dard," yoiU"  test  tape  will  be  mfsaligned  as  well. 
Nevertheless,  you  should  be  able  lo  get  (in\  recorder 
to  read  it.  Now  that  \(>n  know  ho\\-  to  make  and  use 
a  "Load  Tesl"  tape,  vo»  need  read  no  ftulhei.  If 
you're  interested  in  how  and  why  it  works,  read  on. 

Theory  Of  Operation:  Screen  Images 

Let  us  consider  what  is  recorded  on  the  Load  Test 
tape.  By  a  series  of  POKEs,  "Test  Tape  Maker" 
created  a  machine  language  "jirograin"  of  1024 
"square,"  1024  colons,  1024  shaded  squared,  997 
ininus  signs,  a  space,  an  'O"  and  a  'K'.  all  in  memory 
locations  276«  to  6839,  (OADO-  lABH  hex).  When 
you  saved  that  material  as  1st  pass,  you  made  a 
tape  whose  header  instructed  PET  to  load  it  into 
those  locations\  When  you  rewoimd  the  tape  and 
did  the  second  "computus  interruptus"'  SAVE,  you 
recorded  a  new  header  over  the  olfl  one,  but  left 
the  remaining  malerial  intact.  The  new  header 
asks  PET  to  load  that  material  into  memory  loca- 
tions 32768  -  36839,  (8000  -  8FE8  hex),  wliich  are 
very  interesting  locations. 

Experienced  PET  owners  know  that  "screen 
memory"  occupies  the  1000  locations  between 
32768  and  33767.  POKEs  to  iliose  locations,  (such 
as  POKE  33000,42),  cause  characters  to  appear 
instantaneously  on  the  screen.  "Load  Test"  uses  a 
Ics.s-well-knowu  fad  about  screen  memory:  that 
POKEs  to  the  screen  memory  locations /;/»,v  1024, 
(and  on  .some  machines  2048  or  3072),  will  also  put 
characters  on  the  screen.  Clear  your  .screen  and 
POKE  (33000  -I-  1024),  42  to  see  it  for  yourself. 
This  multiple  POKEabitity  exists  bccau.se  of  a 
neculiaritv  in  PET's  address  decoding  scheme; 
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Commodore  3.0/4.0/2.1 
DOS  Source  Code! 

complete  annotated  source  code  for  3.0  ROMs,  a.o  ROMs 
and  2.1  DOS  (40ilO-,8050-disk)  now  available.  All  entry 
points,  routine/variable  names.  Info  on  routine  operation, 
register  contents,  etc.  Included.  1.0  source  code  comes 
with  J.O  correspondence  codes  so  vou  can  change  3.0 
machine-language  programs  to  4.0  and  vice  versa. 
Hardcopy  only.  $129.  each.  All  5(5.0,4.0,2.1  DOS)  for 
1310,00.  Source  files  on  diskette  on  special  order. 

Software/Firmware 


•  EXTRAMON  extended 
monitor  In  2KEPR0M  for 
any  slot,  3.0/4.0  ROMs, 
plus  hardcopv  documen- 
tation. S19.95 

•  DISK  MONITOR'  •  reads 
T/s  from  disk  to  screen 
at  0.21  seconds/Dlk. 
Allows  editing  like  the 
resident  monitor,  up- 
dates disk,  traces 
links, etc. 


FASTI  51.1  Kbytes/sec. 

J49.95 

BULLETPROOF!'  -  full- 
screen Input  routine. 
Uses  machine-language 
to  get  user  Input,  places 
It  In  a  user-defined 
variable.  Text  on  screen 
outside  fields  impossible 
to  disturb.  Documented 
source  code  incl.  with 
disk.  129.95 


%Wim<i^^ 


Authorized 
dealer  for 
RPL°  compilers 


1S24  N.w.  nn  Ave.,  Ft.  uudartaie.  fl  sun  soi)  sis-i5si 


X 


PET/CBM 

Saa0/3000/4000  Series 

not  using  a  CRT,  or  dispisy  controiier^  cinip 

3275.00* 


Select  either 
BO  X  S5  or  40  x  SS 


On  Tine 
Built-in 
Display 


From  the  keyboard  or  program 

Displays  the  full,  original   character   set 

Available  from  your  local  dealer  or: 
EXECOIVI  CORP. 

1301  Polaris  Ave. 
Racine,  NAZI  53404 
Ph.  -414-B32--1004 

♦  Plus  installation  cinarge  of  S7S.OD 

Avaiiabte  only  for  Basic  3,0  S  Basic  A.O 
PETS  CBM™a 
tpadennarl<  of  Commodore  Business  Machines 


there  really  i.sii'l  any  memory  up  llicrc.  The-se 
second,  third,  and  foLirth  addresses  lor  each  screen 
position  are  sometimes  called  "images"  of  screen 
memory. 

A  litde  rencclion  on  the  above  paragraphs  will 
reveal  that  locations  32768  through  ;^()839  include 
the  screen  memory  plus  its  images,  and  that  LOAD- 
ing  a  program  there  will  actually  put  the  program 
material  onto  the  screen  up  to  four  limes  in  succes- 
sion. I'here  we  can  .see  the  LOAD,  and  anv  errors, 
vvith  oin-  own  two  eagle  eyes. 


References 

1.  ■"(k-iiiiigdu-  Mosi  l-'i-(im  \'inu-  I'F.l Cit.ssi-tic-  Dec  k,"  COM- 
PUTE!, #  I  (t.  Muirli.  1 98  I .  page  12. 

2.  "DcU-cliiii.;  LniidiiifT  Problems  atui  Cdnei  liiiir  .■Vlittiiineiu  on 
Your  I'Kl.- COMPUTE!  #8, Januarv  19HI,  paj^r  1  14. 

3.  "All  .About  I.OAningl'KTCas.scttos,"  COMPUTE!  # If.. 
.SfpH-nibtT,  I'.mi,  pafTf  \29. 


100  PRINT" {02  DOWN} TEST  TAPE  MAKER  ~ 

-  WORKING  -  (25  SECONDS)" 
110  FORI^27r,8T03791  :  POKE  I  ,  lf^0:NEXT 


120  FORI=3792T04815:POKEI ,58:NEXT 
130  FORr-4  816TO58  39:POKEI,102:NEXT 
14  0  PORI  =  584  0TO68  36:POKEI,4':.  :NEXT 
150  POKE  I ,32:POKEI  +  l,15:POKEI+2,ll 
160  PRINT" {CLEARlACTIVATE  THE  ML  MO 

MITOR,  THEN  MOUNT" 
170  PRINT"A  FULLY  REWOUND  TAPE  AND  " 

EMTER:" 
180  IFPEEK (50003) =0THEN310 
190  PRINT".  S"CHRS (34) "1ST  PASS"CHR 

$ (34) " ,01 ,0AD0,1AB8" 
200  PRINT"THEN  REWIND  AND  ENTER:" 
210  PRINT".  S"CHR$ (34) "LOAD  TEST"CH 

RS  (34)  ",01  ,8000,8FE8" 
220  PRINT" {REVl HIT  STOP  AS  SOON  AS  ~ 

THE  HEADER  HAS  BEEM" 
230  PRINT" [REVlRECORDED.  (SEE  ARTIC 

LE  FOR  DETAILS) .{UP} ": END 
300  REM  **  INSTR  FOR  ORIGINAL  ROMS 
310  PRINT".    S  01, 1ST  PASS,0AD0,1A 

B8" 
320  PRINT"THEN  REWIND  AND  ENTER:" 
330  PRINT". S  01, LOAD  TEST , 8000 , 8FE 8 

340  GOTO220  t 
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MICROMON 

An  Enhanced  Machine 
Language  Monitor 


R.  Arthur  Cochrane 
Beech  Island,  SC 


Editor's  note:  Micromon  is  for  Upgrade  and  4.0  BASICs, 
ail  memoij  sizes,  all  keyboards  and  is  in  the  public  domain. 
We  present  it  here  because  many  readers  live  where  there 
are  no  computer  clubs  to  permit  the  exchange  of  public 
domain  programs.  If  you  have  enough  memoiy,  you  can 
add  the  additional  commands  of"Micro7non  Plus"  as 
well.  "Plus"  is  from  $5B00  to  $5F48  and  you  will  want 
to  move  Micromon  from  $1000  up  to  $6000. 

There  is  quite  a  bit  of  typing  here  so  we've  provided 
two  checksum  programs  which  will  find  and  flag  any 
errors.  If  you  are  unfamiliar  with  machine  language 
programming,  see  the  instructions  for  typing  in  "Super- 
man" in  last  month's  COMPUTE!,  page  134.  —  RTM 


Background 

For  those  who  may  not  know  what  Micromon  is,  I 
will  start  with  a  little  background.  Micromon  started 
as  Extramon  which  is  an  extended  machine 
language  monitor  for  the  TIM  monitor  in  the 
PET.  Extramon  was  originally  written  by  Bill  Seiler. 
It  is  for  Upgrade  BASIC  and  has  the  following 
commands; 

A  —  A  simple  one  line  assembler. 

B  —  Set  a  break  point. 

C  —  Compare  two  ranges  of  memory  and 
print  the  addresses  of  any  differences. 

D  —  Disassemble  a  range  of  memory. 

F  —  Fill  a  range  of  memory  with  a  byte. 

H  —  Hunt  a  range  of  memory  for  a  certain 
HEX  or  ASCII  pattern  and  print  the  addresses 
where  they  occur. 

I  —  Do  a  memory  dump  or  a  range  of  memory 
by  printing  the  HEX  and  ASCII  values. 

N  —  New  Locate  a  machine  language  program 
by  adding  an  offset  to  the  three  byte  instruc- 
tions. 

Q  —  Start  execution  of  a  machine  language 
program  and  stop  execution  when  the  break 
point  is  reached. 

T  —  Transfer  a  range  of  memory  to  another 
part  of  memory. 


W —  Single  step  execution  of  a  machine  lan- 
guage program. 

Extramon  loads  into  the  address  range  $1000 
to  $  1 7FF,  but  the  T  and  N  commands  can  be  used 
to  relocate  Extramon  to  another  part  of  memory. 

Micromon  is  an  improved  version  of  Extramon 
and  is  also  by  Bill  Seiler.  Micromon  has  the  same 
commands  as  Extramon  plus  those  of  the  TI M 
monitor  and  works  on  Upgrade  BASIC  atid  BASIC 
4.0.  It  works  on  both  BASICs  because  only  4  ROM 
routines  are  used,  two  of  these  routines  arc  in  the 
jump  table  at  the  lop  of  memory  and  the  other  two 
used  by  Micromon  are  found  by  checking  a  location 
to  determine  the  BASIC.  The  ability  to  use  the  up 
and  down  cursor  control  keys  to  scroll  the  memory 
dump  and  disassembler  is  added. 

Improvements 

Now  Micromon  has  been  improved  by  the  addition 
of  more  instructions  to  make  it  a  full  4K  program. 
The  following  instructions  have  been  added: 

E —  Kill  Micromon  by  restoring  the  TIM 
break  vector  and  IRQ  vector  and  retiuii  to 
BASIC. 

K —  Kill  Micromon  by  restoring  the  TIM 
break  vector  and  IRQ  vector  and  do  a  BRK  to 
the  'FIM  monitor. 

O  —  Calculate  a  branch  instruction  offset 
given  a  starting  and  target  address. 
Z  —  Change  to  the  opposite  character  set  from 
the  one  currently  in  use. 

$  —  Print  the  decimal  value,  the  ASCII  values 
for  the  two  bytes,  and  the  binary  value  for  an 
input  HEX  value, 

#  —  Print  the  HEX  value,  the  ASCII  values 
for  the  two  bytes,  and  the  binary  value  for  an 
input  decimal  value. 

%  —  Print  the  HEX  value,  the  decimal  value, 
and  the  ASCII  values  for  the  two  bytes  for  an 
input  binary  value. 

"  —  Print  the  HEX  value,  the  decimal  value, 
and  the  binary  value  for  an  input  ASCII  value. 
+  —  Add  two  HEX  ninnbers. 

Subtract  two  HEX  numbers. 

Sc  —  Print  the  checksum  for  a  range  of 
memory. 

An  additional  module  (Micromon  Plus)  to 
work  with  Micromon  is  also  available.  This  module 
is  about  an  additional  1 K  of  program  and  it  has  the 
following  commands: 

I  —  Set  form  feeds  and  a  heading  lor  disas- 
semblies and  memory  dump  printouts. 

P  —  Switch  output  to  a  printer  for  hard  copy 
disassemblies  and  memory  dumps. 


Ttie  SM-KIT  Is  a  collection o1  machine  language  firmware  programming  and  test  aids  lor 
BASIC  programmers.  SM-KIT  Is  a  4K  ROM  (twice  the  normal  capacity)  which  you 
simply  Insert  In  a  Single  ROM  socket  on  any  BASIC  4  CBM/PET-either  80  column  or  40 
column.  Includes  both  programming  aids  and  disk  handling  commands. 

ERROR  DETECTION:  the  SM-KIT  automatically  indicates  the  ermneous  line  and 

statement  for  any  BASIC  program  error. 

LINE  NUMBERING:  the  SM-KIT  automatically  numbers  BASIC  statements  until  you 

turn  the  function  off. 

SCREEN  OUTPUT;  the  commands  FIND,  DUMP.  TRACE  and  DIRECTORY  display  on 

the  CRT  while  you  hold  the  RETURN  key  (display  pauses  when  the  key  Is  released). 

Continuous  output  Is  selected  with  shift-lock. 

OUTPUT  CONTROL  to  DISK  or  PRINTER:  in  addition  to  displaying  on  the  CRT,  you  can 

direct  output  to  either  disk  or  printer. 

HARDCOPY  allows  screen  displays  to  tie  either  printed  or  stored  on  disk. 

FIND,  searcties  all  or  any  part  of  a  program  for  text  or  command  strings  or  variable 

names.  Either  exact  search  or  wild  card  search  supported. 

RENUMBEfl:  the  SM-KIT  can  renumber  all  or  any  part  of  a  program.  The  selective 

renumbering  allows  you  to  move  blocks  of  code  within  your  program. 

VARIABLE  DtJMP  displays  the  contents  of  floating  point,  integer,  and  string  variables 

(both  simple  and  array).  Can  display  all  variables  or  any  selected  variables. 

TRACE,  SM-KtT  can  trace  program  execution  either  continuously  or  step  by  step 

starting  with  any  line  number.  Selected  program  vahables  can  be  displayed  while 

tracing. 

DISK  COM  MAN  DS:  as  in  DOS  Support  (Universal  Wedge),  the  "shorlhand"  versions  of 

disk  commands  may  be  used  for  displaying  disk  directory,  iniiializing,  copying, 

scratching  files,  load  and  run,  etc, 

LOAD:  SM-KIT  can  load  all  or  part  of  BASIC  or  machine  language  programs.  It  can 

append  to  a  program  in  memory,  overwrite  any  part  of  a  program,  load  starting  witti  arty 

absolute  memory  location,  and  load  without  changing  variable  pointers, 

MERGE:  allows  merging  all  or  any  part  of  a  program  on  disk  with  a  program  in  memory. 

SAVE  and  VERIFY:  SM-KIT  provides  one  step  program  save  and  verification.  It  also 

allows  you  to  save  any  part  of  a  program,  or  any  address  range. 


SM-KIT 

for  Commodore  Computers 


A  Programming  Productivity  Tool 


ONLY 
$40 


A  4K  ROM  with  both 
programming  and  disk 
handling  aids. 


Developed  by  (and  available  in  Europe  from)  SM  Softwareverbund-Microcomputer  GmbH,  SctierbaumsSrasse  29,  8000  Munchen  83,  Germarty 


252  Bethlehem  Pike 
Colmar,  PA  18915 


215-822-7727 


A  B  Computers 


WRITE  FOfl  CATALOG. 

.  » mdet  lor  sriippiiig  We  wy  tMl.irKe  o<  UPS  surl,ite  Lri,iiqf  s 
1)1!  jli  piepaid  aaei<.  Puces  iisled  ,»(■  on  c.ish  discixiiif  bdsis  Regiii.ir 
prices  slightly  hignei 


PIE-C 


PET/CBM  *  IEEE-488 
TO  PARALLEL  PRINTERS 
By  LemData  Products      p 


P.l.E.-C  MEANS-Professional  design,  Indispensible  features,  Excellent  quality  and  Cost  effectiveness   You 
can  t  buy  a  better  parallel  interface  for  your  PET/CBM.  cuc^uveness.  you 

Our  P.I.E.-C  will  interface  your  PET/CBM  through  the  lEEE-488  bus  to 

the  r^EC  Spinwriter  the  C.  Itoh  Starwriter,  printers  by  Centronics,  Epson,  Anadex   Escon  Products   the 

^P^^CRM  ^"'f''^*'^'  ^r^\^''  ^<*®0'  Columbia,  Md.  21044  Phane  (301)  730-3257 

PET/CBM  are  trademarl<s  of  Commodore  Business  Machines  ,r7    i     r  •      , 

^ (Dealer  Inquiries  Invited) 
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J  —  Print  the  address  at  which  a  file  loads. 

Y  —  Load  a  file  starting  at  a  specific  address 
and  not  the  load  address  in  the  file. 

>  or  (S  —  The  DOS  commands  for  reading  the 
disk  error  channel,  sending  commands  to  the 
disk,  or  displaying  the  disk  directory. 

Micfomon  is  very  useful  for  debugging  ma- 
chine language  programs.  The  disassembler  allows 
the  code  to  be  examined  and  the  single  step  com- 
mand allows  following  the  execution  of  code  to 
spot  bugs.  The  Transfer  and  New  Locate  com- 
mands allow  code  to  be  relocated  to  another  part 
oi  memory  without  the  need  for  reassembly.  Micro- 
mon  is  a  must  for  any  PET  machine  language 
programmer. 

There  are  several  extended  monitors  available 
for  the  PET.  Supermon  is  one  example.  Most  of 
the  other  monitors  have  some  of  the  same  com- 
mands as  Micromon  and  maybe  a  few  others.  One 
of  the  problems  with  these  monitors  is  that  there 
are  different  versions  for  Upgrade  BASIC  and 
BASIC  4.0.  Micromon  will  work,  as  is,  on  either 
BASIC.  It  does  not  woik  on  Original  BASIC  though 
it  might  be  possible  lo  modify  it.  There  is  a  version 
of  Supermon  for  each  of  the  three  B  ASICs  if  a 
super  monitor  is  needed  for  Original  BASIC. 

Because  the  VIC-20  has  Upgrade  Basic  ii  will 
be  possible  to  modily  .Micromon  for  \'IC  use, 
giving  it  a  powerful  machine  language  monitor. 
The  modification  will  involve  checking  the  subrou- 
tine calls  and  modifying  the  scroll  for  the  screen 
size  of  the  VIC.  If  anyone  is  successful  in  this  mod- 
ification they  should  be  sure  to  publish  the  results 
for  others.  Because  the  full  Micromon  is  a  4K 
program,  it  would  be  a  good  program  for  pro- 
gramming into  a  \TC^  plug-in  program  cartridge. 

Micromon  is  free  (so  is  Supermon),  but  where 
do  you  get  it?  A  PE  I"  user  group  is  one  source.  For 
those  who  would  like  source  code,  Micromon  source 
code  in  Carl  Moscr's  MAE  assembler  format  is 
available.  Micromon  can  be  assembled  and  burned 
into  an  EPROM  and  plugged  into  an  empty  socket 
in  the  PET  so  Micromon  is  available  with  a  SYS 
and  does  not  have  to  be  loaded  each  time  the  PET 
is  reset  or  powered  up. 

I  hope  that  you  will  pass  Micromon  on  to  your 
friends.  This  program  is  in  the  public  domain  and 
should  he  passed  aroimd  freely.  If  anvone  finds 
bugs  or  has  comments  please  conlaci  me  about 
them. 

1  would  like  to  thank  James  Strasma  for  all  the 
information  which  he  pro\ided  me  for  this  work 
on  Micromon. 

Note  To  Other  6502  Users 

Because  Micromon  uses  only  foin-  ROM  routines 
(input  a  character,  output  a  character,  load  a  pro- 


gram, and  save  a  program)  and  a  few  zero  page 
locations  (IRQ  vector,  BRK  vector,  and  screen  line 
pointers)  it  may  be  possible  for  Apple,  Atari,  or 
other  6502  users  to  modify  Micromon  Ibr  their 
machine.  If  someone  is  successful  at  this  be  sure  to 
pass  the  information  on  to  others. 

Micromon  Instructlorts 
SIMPLE  ASSEMBLER 

.A  2000  A9  12     LDA#$12 
.A  2002  9D  00  80  STA  $8000,X 
.A  2005  DEX:GARBAGE 

In  the  above  example,  the  user  started  assembly  at 
2000  HEX.  The  first  instruction  was  load  a  register 
with  immediate  12  HEX.  In  the  second  line  the 
user  did  not  need  to  type  the  A  and  address.  The 
simple  assembler  retypes  the  last  entered  line  and 
prompts  with  the  next  address.  To  exit  the  as- 
sembler, type  a  return  after  the  address  prompt. 
Syntax  is  the  same  as  the  Disassembler  output.  A 
colon  (:)  can  be  used  to  terminate  a  line. 

BREAK  SET 

.B   lOOOOOFF 

The  example  sets  a  break  at  1000  HEX  on  the  FF 
HEX  occurrence  of  the  instruction  at  1000.  Break 
set  is  used  with  the  QUICK  TRACE  command.  A 
BREAK  SET  with  count  blank  stops  at  the  first 
occurrence  of  the  break  address. 

COMPARE  MEMORY 

.C  1000  2000  cooo 

Compares  memory  from  HEX  1000  to  HEX  2000 
to  memory  beginning  at  HEX  COOO.  Compare  will 
print  the  locations  of  the  miequal  bytes. 

DISASSEMBLER 

.D  2000  3000 

.,  2000  A9  12     LDA#$12 
.,  2002  9D  00  80  STA  S8000,X 
„  2005  AA     TAX 

Disassembles  from  2000  to  3000.  The  three  bytes 
following  the  address  may  be  modified.  Use  the 
CRSR  KEYS  to  move  to  and  modify  the  bytes.  Hit 
return  and  the  bytes  in  memory  will  be  changed. 
MICROMON  will  then  disassemble  that  line  again. 

Disassembly  can  be  done  under  the  control  of 
the  cursor.  To  disassemble  one  at  a  time  from 
$1000. 

.D  1000 
If  the  cursor  is  on  the  last  line,  one  instruction  can 
be  disassembled  for  each  pressing  of  the  cursor 
down  key.  If  it  is  held  down,  the  key  will  repeat 
and  continuous  disassembly  will  occm-.  Disassembly 
can  even  be  in  reverse!  If  the  screen  is  full  of  a 
disassembly  listing,  place  the  cursor  at  the  top  line 
of  the  screen  and  press  the  cursor  up  key. 
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EXIT  MICROMON 

.E 

Combine  the  killing  of  MICROMON  and  exit  to 
BASIC. 

FILL  MEMORY 

.F   1000  1100  FF 

Fills  the  memory  from  1000  HEX  to  11 00  HEX 
with  the  byte  FF  HEX. 

GO  RUN 

.G 

Go  to  the  address  in  llie  PC  Register  display  and 
begin  run  code.  All  the  registers  will  be  replaced 
with  the  displayed  values. 

.G  1000 
Go  to  address  1000  HEX  and  begin  running  code. 
HUNT  MEMORY 

.H   COOO  DOOO  'READ 

Hunt  thru  memory  from  COOO  HEX  to  DOOO  HEX 
for  the  ASCII  string  "read"  and  print  the  address 
where  it  is  found.  Maximum  ol  32  characters  may 
be  used. 

.H  COOO  DOOO  20  D2  FF 

Hunt  memory  from  COOO  HEX  lo  DOOO  HEX  for 
the  sequence  of  bytes  20  D2  FF  and  print  the  ad- 
dress. A  maximum  of  32  bytes  may  be  used.  Hunt 
can  be  stopped  with  the  STOP  key. 

KILL  MICROMON 

.K 

Restore  the  Break  vector  and  IRQ  that  was  saved 
before  MICROMON  was  called  and  break  into  the 
TIM  monitor.  A  return  to  MK^ROMON  can  be 
done  with  a  Go  to  the  value  in  tlie  PC  register. 

LOAD 

.L"RAMTEST",08 

Load  tlie  program  named  RAM  TEST  from  the 
disk.  Note  for  cassette  users:  To  load  or  save  to  cassette. 
Kill  MICROMON  with  the  K  command  to  lelurn 
to  the  TIM  monitor.  Then  use  tlie  TIM  monitor  L 
and  S  conunands  to  load  and  save  to  the  ca.ssettes. 
This  has  to  be  done  because  of  the  repeat  keys  of 
MICROMON.  BASIC  4.0  users  then  can  return  to 
MICROMON  with  a  Go  command  to  the  PC  value 
init  BASIC  2.0  users  should  return  lo  BASIC  then 
SYS  to  Micromon  because  the  TIM  overwrites  die 
IRQ  value  for  loads  and  saves  with  a  filename. 

MEMORY  DISPLAY 

.M  0000  0008 

.:  0000  30  31  32  33  34  35  36  37  1234567 
.:  0008  38  41  42  43  44  45  46  47  89ABCDE 

Display  memory  from.  0000  HEX  to  0008  in  HEX 


and  ASCII.  The  bytes  following  the  address  may 
be  modified  by  editing  and  then  typing  a 
RETURN. 

Memory  display  can  also  be  done  with  the 
cursor  control  keys. 

NEW  LOCATER 

.N   1000  17FF  6000  1000  IFFF 
.N   IFBO  1 FFF  6000  1000  IFFF  W 

The  first  line  fixes  all  three  byte  instructions  in  the 
range  1000  HEX  to  IFFF  HEX  by  adding  6000 
HEX  offset  to  the  bytes  following  the  instruction. 
New  Locater  will  not  adjust  any  instruction  outside 
of  the  1000  HEX  to  IFFF  HEX  range.  The  second 
line  adjusts  Word  values  in  the  same  i-ange  as  the 
first  line.  New  Locater  stops  and  disassembles  on 
any  bad  op  code. 

CALCULATE  BRANCH  OFFSET 
.O  033A033AFE 

Calculate  the  offset  for  branch  instructions.  The 
first  address  is  the  starling  address  and  the  second 
address  is  the  target  address.  The  offset  is  then 
displayed. 

QUICK  TRACE 

•Q 

,Q  1000 

The  first  example  begins  trace  at  the  address  in  the 
PC  of  the  register  display.  The  second  begins  at 
1000  HEX.  Each  instruction  is  executed  as  in  the 
WALK  cominand,  but  no  disassembly  is  shown. 
The  Break  Address  is  checked  for  the  break  on 
Nth  occinrence.  The  execution  may  be  stopped  by 
pressing  the  STOP  and  =  (left  arrow  on  business) 
keys  at  the  same  time. 

REGISTER  DISPLAY 

.R 

PC  IRQ  SR  AC  XR  YR  SF 
.:  0000  E455  01  02  03  04  05 

Displays  the  register  values  saved  when  MIC^RO- 
MON  was  entered.  The  values  mav  be  changed 
with  the  edit  followed  by  a  RE  I  URN. 

SAVE 

.S  "l:PROGRAM  NAME",08,0800,OC80 

Save  to  disk  drive  #1  memory  from  0800  HEX  up 

to,  hut  not  i)ic!uili>ig,  0C8O  HEX  and  name  it  I'RO- 
CiR.AM  NAME.  Sec  note  in  LO.\D  command  for 
cassette  users. 

TRANSFER  MEMORY 

.T   1000  1100  5000 

Transfer  memory  in  the  range  1000  HEX  to  1  100 
HEX  and  start  storing  it  at  address  ,")000  HEX. 
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WALK  CODE 
.W 

Single  step  starting  at  address  in  register  PC. 
.W  1000 

Single  step  starting  at  address  1000  HEX.  Walk 
will  cause  a  single  step  to  execute  and  will  disas- 
semble the  next  instruction.  Stop  key  stops  walking. 
The  J  key  finishes  a  siiiiroutine  that  is  walking  then 
continues  with  the  walk. 

EXIT  TO  BASIC 

.X 

Return  to  BASIC  READY  mode.  The  stack  value 
saved  when  entered  will  be  restored.  Care  should 
be  taken  that  this  value  is  the  same  as  when  the 
MONITOR  was  entered.  A  CLR  in  BASIC:  will  fix 
any  stack  problenis.  Do  not  X  io  BASICS  then  return 
to  MICROMON  via  a  SYS  to  the  cold  start  address. 
Return  via  a  SYS  to  a  BRK  (SYS  1024)  or  SYS  to 
the  Warm  start  of  MICROMON  (Warm  start  = 
Cold  start  +  3)  An  X  and  cold  start  will  write  over 
the  TIM  break  vector  that  was  saved. 

CHANGE  CHARACTER  SETS 

-Z 

Change  from  uppercase/graphics  to  lower/  upper- 
case mode  or  vice  versa. 

HEX  CONVERSION 

.$4142  16706  A  B  0100  0001  0100  0010 

A  HEX  number  is  input  and  the  decimal  value,  the 
ASCII  for  the  two  bytes,  and  the  binary  values  are 
returned.  The  ASCUI  control  values  are  returned 
in  reverse. 

HEX  conversion  can  also  be  scrolled  with  the 
cmsor  control  keys. 

DECIMAL  CONVERSION 

.#16706  7142  A  B  0100  0001  0100  0010 
A  decimal  number  is  input  and  the  HEX  value,  the 
ASCII  for  the  two  bytes,  and  the  binary  values  are 
returned. 

BINARY  CONVERSION 

.7f0100000101000010  4142  16706  A  B 

A  binarv  number  is  input  and  the  HEX  value,  the 
decimal  number,  and  the  ASCII  values  are 
returned. 

ASCII  CONVERSION 

."A  41  65  0100  0001 
An  ASCII  character  is  inpul  and  the  HEX  value, 
decimal  value,  and  binary  values  are  returned. 
Because  of  the  quote,  the  control  characters  can  be 
determined  also. 


ADDITION 

.+  1111  2222  3333 

The  two  HEX  numbers  input  are  added,  and  the 
sum  displayed. 

SUBTRACTION 

.-3333  11112222 

The  seccjnd  number  is  subtracted  from  the  first 
number  and  the  difference  displayed. 

CHECKSUM 

.&  AOOO  AFFF  67E2 

The  chccksiun  between  tlie  two  addresses  is  calcu- 
lated and  displayed. 

MICROMON  INSTRUCTIONS: 

A  SIMPLE  ASSEMBLE 

B   BREAK  SET 

C  COMPARE  MEMORY 

D   DISASSEMBLER 

E  EXIT  MICROMON 

F  FILL  MEMORY 

G  GO  RUN 

H  HUNT  MEMORY 

K  KILL  MICROMON 

L  LOAD 

M  MEMORY  DISPLAY 

N  NEWLOCATER 

O  CALCULATE  BRANCH 

Q  QUICK  TRACE 

R  REGISTER  DISPLAY 

5  SAVE 

T  TRANSFER  MEMORY 

W  WALK  CODE 

X  EXIT  TO  BASIC 

Z  CHANGE  CHARACTER  SETS 

$  HEX  CONVERSION 

#  DECIMAL  CONVERSION 

%  BINARY  CONVERSION 

"  ASCII  CONVERSION 

-1-    ADDITION 

-  SUBTRACTION 

6  CHECKSUM 

MICROMON  also  has  repeat  for  all  keys. 

MICROMON  is  executed  by  the  following: 
SYS  4096  as  listed  in  Program  2  where  it  resides  in 
$1000to$IFFF. 

For  S0;V2,  make  ihe  following  changes  for 
MKIROMON  operation.  In  location  the  X  stands 
for  the  start  of  MICROMON.  Values  in  HEX. 

Location      Old  Value      New  Value 


X3E7 

08 

10 

To  display  16  instead 

X3EC 

08 

10 

of  8  bytes. 

X3F6 

08 

10 

X427 

08 

10 

XDA3 

08 

10 

XCFC 

28 

50 

To  Fix  scroll. 

XD7B 

28 

50 

XE16 

83 

87 

XE20 

28 

50 

XE24 

CO 

80 

Januory,  1962.  Issue  20 

XE26 

04 

08 

XE37 

27 

4F 

XE46 

28 

50 

X681 

24 

00     Toprint  all  characters 
in  Walk  command. 
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Micromon  Plus  Instructions 

PRINTING  DISASSEMBLER 
.(Shift)  D  1000  IFFF 

The  same  as  the  Disassembler  but  no  .,  printed 
before  each  line.  Also  the  ASCII  values  for  the 
bytes  are  output  at  the  end  of  the  line. 

FORM  FEED  SET 

.1 

Sets  a  form  feed  for  printout.  Gives  57  printed  lines 
per  page.  Works  with  the  Shift  l^  and  Shift  M 
commands. 

.1  "Heading" 

Sets  form  feed  with  a  message  to  be  printed  al  the 
top  of  each  page. 

.IX 
Cancels  form  feed. 
PRINT  LOAD  ADDRESS 

J  "File  name" 

Read  the  load  address  of  the  file  and  print  i(  in  hex. 
Device  number  8  is  used. 

KILL  MICROMON  ADDITIONS 

.(Shift)  K 

Kill  MICROMON  and  its  additions  and  BRK  to  the 
TIM  monitor.  This  is  the  same  as  the  unshiflcd  K 
connnand  except  now  a  G  command  will  reinitialize 
MICROMON  and  the  additions, 

LOAD  FROM  DISK 

.(Shift)  L  "filename" 

This  is  the  .same  as  the  normal  load  command  except 
that  the  disk  (device  #8)  is  ii.sed  as  the  default,  not 
the  cassette. 

PRINTING  MEMORY  DUMP 

.(Shift)  MFOOO  FIDO 

The  same  as  the  normal  Memor\  tlunip,  bul  does 
not  print  the  .:  and  prints  out  16  hex  bytes  and  the 
ASCII  for  them. 

PRINT  SWITCHER 

.P 

If  the  output  is  to  the  CRT  then  switch  tiie  output  to 
the  printer  (device  #4).  If  the  output  is  not  the  CRT 
then  clear  the  output  device  and  restore  the  output 
to  the  CRT. 

.P06 
Make  device  #6  the  output  device  if  the  current  out- 


put is  the  CRT. 

SEND  TO  PROM  PROGRAMMER 

.U  06  7000  7FFF 

This  command  will  send  out  bytes  to  a  PROM  pro- 
grammer on  liic  IEEE  bus.  The  first  byte  is  the  de- 
vice number  and  the  two  addresses  are  the  range  of 
memory  to  output.  A  CHRS(2)  is  sent  llrsl  to  start 
the  programmer.  This  is  Ibllowed  b)'  the  memory 
bytes  as  ASCII  characters  separated  by  spaces.  After 
all  bvtcs  have  bcensent,aCHR$(8)  isseiU  tostop  the 
programmer.  MICROMON  then  does  a  checksmn 
on  the  range  to  compare  against  the  programmer 
checksmn.  Although  this  is  for  a  particular  pro- 
grammer, it  coulfl  he  modified  for  others. 

SPECIFY  LOAD  ADDRESS 

.Y  7000  "Filename" 

This  connnand  allows  a  file  to  be  loaded  starting  at 
the  address  you  specify  and  nol  the  load  address  it 
would  normally  load  into.  The  disk  (device  #8)  is 
used  for  loading. 

TEXT  FLIP  FOR  8032  &  FAT  40's 

.(Shift)  2 

Tills  is  for  8032  and  Fat  40's  to  go  from  Text  to 
Graphics  mode  or  vice  versa. 

DOS  SUPPORT 

.(f(  or.> 

1  his  reads  the  error  chamicl  from  disk  device 
number  8. 

.(<!  disk  command  or  .>  disk  command 

This  sends  tlie  disk  command  to  disk  device 
number  8. 

.C"$Oor  .>$0 

This  reads  the  directorv  from  disk  device  nimiber 
8.  The  SI>AC:f:  RAR  will  hold  the  tiisplay  and  any 
other  key  will  start  it  again  and  the  STOP  key  will 
return  to  command  niode. 

CONTROL  CHARACTERS 

.(Up  arrow)G 

This  command  will  print  the  control  chaiacter  of 
the  .A^SCII  character  input. 

Examples  of  controls: 

g  Ring  bell 

i  Tab  set  and  clear 

M  Insert  line 

n  Text  mode 

N  Graphics  mode 

q  Cursor  down 

Q  Cursor  up 

s  Home  cursor 

S  Clear  screen 

u  Delete  line 

V  Erase  end 

V  Erase  begin 
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MICROMON  ADDITIONAL  INSTRUCTIONS 

1068 

86 

02 

8D 

A2 

02 

58 

00 

38 

(Shift)  D  PRINTING  DISASSEMBLER 

1070 

AD 

7B 

02 

E9 

01 

8D 

7B 

02 

I   HEADING  AND  FORM  FEED  CONTROL 

1078 

AD 

7A 

02 

E9 

00 

8D 

7A 

02 

J   PRINT  LOAD  ADDRESS 

(Shift)  K  KILL  MICROMON  ADDITIONS 

(Shift)  L  LOAD  FROM  DISK 

1080 

20 

55 

19 

A2 

42 

A9 

2A 

20 

(Shift)  M  PRINT  MEMORY  DISPLAY 

1088 

29 

18 

A9 

52 

D0 

23 

A9 

3F 

P  PRINTER  SWITCHING 

1090 

20 

09 

10 

20 

55 

19 

A9 

2E 

U  SEND  TO  PROM  PROGRAMMER 

1098 

20 

09 

10 

A9 

00 

8D 

94 

02 

Y  SPECIFY  LOAD  ADDRESS 

10A0 

80 

A2 

02 

A2 

FF 

9A 

20 

A  4 

(Shift)  Z  TEXT/GRAPHICS  FLIP 

10A8 

18 

C9 

2E 

F0 

F9 

C9 

20 

F0 

>   DOS  SUPPORT  COMMANDS 

1080 

F5 

A2 

ID 

DD 

92 

IF 

D0 

13 

Cm    DOS  SUPPORT  COMMANDS 

10B8 

8D 

87 

02 

8A 

0A 

AA 

BD 

80 

(Up  arrow)  CONTROL  CHARACTERS 

10C0 

IF 

85 

FB 

BD 

Bl 

IF 

85 

FC 

10C8 

6C 
02 

FB 
A2 

00 
02 

CA 
D0 

10 
02 

E5 
A2 

6C 

00 

E3 

—        10D0 

B4 

Program  1 . 

10D8 

FB 

D0 

09 

B4 

FC 

D0 

03 

EE 

10E0 

94 

02 

D6 

FC 

D6 

FB 

60 

A9 

10    DATA    15463, 

14894, 

14290, 

11897,12 

10E8 

00 

8D 

8C 

02 

20 

4F 

12 

A2 

453,13919, 

14116, 

11715, 

1257 

10F0 

09 

20 

52 

19 

CA 

D0 

FA 

60 

5,14571 

10F8 

A2 

02 

B5 

FA 

48 

BD 

91 

02 

20    DATA    13693, 

11853, 

12903, 

14513,12 

137,15006, 

12654, 

13291, 

1243 

6,13899 

1100 

95 

FA 

68 

9D 

91 

02 

CA 

D0 

30    DATA    15366, 

9999,11834,13512,128 

1108 

Fl 

60 

AD 

92 

02 

AC 

93 

02 

92,14475,15149,14896,157  82 

1110 

4C 

17 

11 

A5 

FD 

A4 

FE 

38 

,9511 

1118 

E5 

FB 

8D 

91 

02 

98 

E5 

FC 

40    DATA    12171, 

8985 

1120 

A8 

0D 

91 

02 

60 

A9 

00 

F0 

100    Q=4096 

1128 

02 

A9 

01 

8D 

95 

02 

20 

E6 

110    FOR    BLOCK= 

ITO 

32 

1130 

17 

20 

55 

19 

20 

13 

11 

20 

120    FOR    BYTE=0TO127 

1138 

3C 

18 

90 

IB 

20 

0A 

11 

B0 

130    X=PEEK (Q+BYTE) :CK=CK+X 

1140 

03 

4C 

C5 

11 

20 

7F 

11 

E6 

140    NEXT    BYTE 

1148 

FD 

D0 

02 

E6 

FE 

20 

3B 

19 

150    READ    SUM 

1150 

AC 

94 

02 

D0 

45 

F0 

E5 

20 

160    IF    SUM    <> 

CK 

THEN    PRINT"    ERROR 

1158 

0A 

11 

18 

AD 

91 

02 

65 

FD 

IN    BLOCK    # 

"BLOCK 

:GOTO170 

1160 

85 

FD 

98 

65 

FE 

85 

FE 

20 

165    PRINT" 

BLOCK" 

1168 

F8 

10 

20 

7F 

11 

20 

0A 

11 

BLOCK"     IS 

CORRECT 

1170 

B0 

53 

20 

Dl 

10 

20 

D5 

10 

170    CK=0:Q=Q+128 

1178 

AC 

94 

02 

D0 

ID 

F0 

EB 

A2 

180    NEXT    BLOCK 

~       1180 

00 

Al 

FB 

AC 

95 

02 

F0 

02 

Program  2. 

1188 
1190 

81 
18 

FD 
20 

CI 
52 

FD 
19 

F0 
20 

0B 
AE 

20 
18 

13 

F0 

1000    4C    0C    10 

4C 

6F 

10 

4C 

CF 

1198 

01 

60 

4C 

93 

10 

20 

01 

18 

1008    FF    4C    D2 

FP 

78 

A5 

92 

A6 

11A0 

20 

0B 

18 

20 

A4 

18 

20 

6F 

1010    93    8D    E5 

02 

8E 

E6 

02 

AD 

11A8 

18 

90 

17 

8D 

39 

02 

AE 

94 

,f^      tV      ^bi      %^                    ^       ^J*                    ^      ^~                     ^^      ^^ 

1018    F6    IF   AE 

F7 

IF 

BD 

E3 

02 

11B0 

02 

D0 

12 

20 

13 

11 

90 

0D 

1020    8E    E4    02 

AD 

F0 

IF 

AE 

Fl 

11B8 

AD 

89 

02 

81 

FB 

20 

3B 

19 

1028    IF    85    92 

86 

93 

A5 

90 

A6 

11C0 

D0 

EC 

4C 

8E 

10 

4C 

93 

10 

^^    l^    z:^   ^^            ^ta    fc             ^^    ^            -^ 

1030    91    CD    EE 

IF 

D0 

05 

EC 

EF 

11C8 

20 

01 

18 

20 

0B 

18 

20 

A4 

^,  tj  ^j  *j        ^   ^»        '^'^  ^^        ^^^ 

1038    IF    F0    10 

8D 

9E 

02 

BE 

9F 

11D0 

18 

A2 

00 

20 

A4 

18 

C9 

27 

^L     L/     -^    \J                T^     ^                  ^       B-r                ^—     — 

1040    02    AD    EE 

IF 

AE 

EF 

IF 

85 

11D8 

D0 

14 

20 

A4 

18 

9D 

A3 

02 

1.     \J    ^I     1^                L^      Cur              *     *  **'               *^    ^^ 

1048    90    86    91 
1050    IF    E0    80 
1058    35    85    30 
1060    84    02    8D 

AD 
B0 
86 
85 

EC 
08 
31 
02 

IF 
85 
A9 
A9 

AE 
34 
10 

00 

ED 
86 
8D 
8D 

11E0 
llEB 

11F0 
11F8 

E8 
E0 
02 
02 

20 
20 
20 
E8 

06 
D0 
77 
20 

10 
Fl 
18 
06 

C9 
F0 
90 
10 

0D 
IC 
CC 
C9 

F0 
8E 
9D 
0D 

22 
97 

A3 

F0 
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1200  09  20  6F  18  90  BC  E0  20 

1208  D0  EC  8E  88  02  20  55  19 

1210  A2  00  A0  00  Bl  FB  DD  A3 

1218  02  D0  0A  C8  E8  EC  88  02 

1220  D0  F2  20  BE  11  20  3B  19 

1228  AC  94  02  D0  05  20  13  11 

1230  B0  DE  4C  93  10  20  39  14 

1238  20  13  11  90  0D  A0  2C  20 

1240  E7  10  20  AS  12  20  AE  18 

1248  D0  EE  20  B3  15  D0  E3  20 

1250  47  19  20  13  18  20  52  19 

1258  20  0E  IE  48  20  0B  13  68 

1260  20  22  13  A2  06  E0  03  D0 

1268  14  AC  8B  02  F0  0F  AD  96 

1270  02  C9  E8  Bl  FB  B0  ID  20 

1278  Al  12  88  00  Fl  0E  96  02 


1280  90  0E  BD  E9  IE  20  AD  15 

1288  BD  EF  IE  F0  03  20  AD  15 

1290  CA  D0  D2  60  20  B7  12  AA 

1298  E8  D0  01  C8  98  20  Al  12 

12A0  8A  3E  88  02  20  lA  18  AE 

12A8  88  02  60  AD  8B  02  20  B6 

12B0  12  85  FB  84  FC  60  38  A4 

12B8  FC  AA  10  01'  88  65  FB  90 

12C0  01  C8  60  A8  4A  90  0B  4A 

12C8  B0  17  C9  22  F0  13  29  07 

12D0  09  80  4A  AA  BD  98  IE  B0 

12D8  04  4A  4A  4A  4A  29  0F  D0 

12E0  04  A0  80  A9  00  AA  BD  DC 

12E8  IE  BD  96  02  29  03  BD  8B 

12F0  02  98  29  8F  AA  98  A0  03 

12F8  E0  8A  F0  0B  4A  90  08  4A 


1300  4A  09  20  88  D0  FA  C8  88 
1308  D0  F2  60  Bl  FB  20  Al  12 
1310  A2  01  20  Fl  10  CC  8B  02 
1318  C8  90  F0  A2  03  C0  03  90 
1320  Fl  60  A8  B9  F6  IE  8D  92 
1328  02  89  36  IF  8D  93  02  A9 
1330  00  A0  05  0E  93  02  2E  92 
1338  02  2A  88  D0  F6  69  3F  20 
1340  09  10  CA  D0  EA  4C  52  19 
1348  20  01  18  A9  03  20  AC  13 
1350  A0  2C  4C  50  15  BD  05  01 
1358  CD  F8  IF  D0  0B  BD  06  01 
1360  CD  F9  IF  D0  03  20  07  18 
13G8  A5  S7  CD  83  02  F0  BA  8D 
1370  83  02  A9  10  80  84  02  D0 
1378  24  C9  FF  F0  20  AD  84  02 


1380  F0-05  CE  84  02  00  16  CE 
1388  85  02  00  11  A9  02  8D  85 
1390  02  A5  9E  D0  08  A9  00  85 


1398  97  A9  02  85  A8  AD  F3  IF 

13A0  48  AD  F2  IF  48  08  48  48 

13A8  48  6C  9E  02  80  89  02  48 

13B0  20  A4  18  20  19  19  00  F8 

13B8  68  49  FF  4C  AE  12  20  39 

13C0  14  AE  94  02  00  00  20  13 

13C3  11  90  08  20  D6  13  20  AE 

13D0  18  D0  EE  4C  4A  12  20  55 

13D8  19  A2  2E  A9  3A  20  29  18 

13E0  20  52  19  20  13  18  A9  0B 

13E8  20  03  19  A9  08  20  B9  13 

13F0  A9  12  20  09  10  A0  08  A2 

13F8  00  Al  FB  29  7F  C9  20  B0 


1400  02  A9  2E  20  09  10  C9  22 

1408  F0  04  C9  62  00  0A  A9  14 

1410  20  09  10  A9  22  20  09  10 

1418  20  3B  19  88  00  OB  A9  92 

1420  4C  09  10  20  01  18  A9  08 

142B  20  AC  13  20  B3  15  20  D6 

1430  13  A9  3A  8D  6F  02  4C  5C 

1438  15  20  01  18  85  FD  86  FE 

1440  20  06  10  C9  0D  F0  03  20 

1448  06  18  4C  55  19  20  4C  18 

1450  85  FD  86  FE  A2  00  8E  A4 

1458  02  20  A4  18  C9  20  F0  F4 

1460  90  80  02  E8  E0  03  00  Fl 

1468  CA  30  14  BD  BD  02  38  E9 

1470  3F  A0  05  4A  6E  A4  02  6E 

1478  A3  02  88  D0  F6  F0  E9  A2 


1480  02  20  06  10  C9  00  F0  22 
1488  C9  3A  F0  IE  C9  20  F0  Fl 
1490  20  A4  15  B0  0F  20  84  18 
1498  A4  FB  84  FC  85  FB  A9  30 
14A0  9D  A3  02  E8  9D  A3  02  E8 
14A8  00  D7  8E  92  02  A2  00  8E 
14B0  94  02  A2  00  8E  89  02  AD 
14B8  94  02  20  C3  12  AE  96  02 
14C0  BE  93  02  AA  BD  36  IF  20 
14C8  84  15  BD  F6  IE  20  84  15 
1400  A2  06  E0  03  D0  14  AC  8B 
1408  02  F0  0F  AD  96  02  C9  E8 
14E0  A9  30  B0  IE  20  81  15  88 
14E8  00  Fl  0E  96  02  90  0E  BD 
14F0  E9  IE  20  84  15  BO  EF  IE 
14F8  F0  03  20  84  15  CA  D0  02 


1500  F0  06  20  81  15  20  81  15 

1508  AD  92  02  CD  89  02  F0  03 

1510  4C  91  15  20  3C  18  AC  8B 

1518  02  F0  2E  AD  93  02  C9  9D 

1520  00  IF  20  13  11  90  0A  98 

1528  D0  6F  AE  91  02  30  6A  10 
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1530  08  C8  D0  65  AE  91  02  10 


8A 


o  B  02  Df? 


1540  03  B9  FC  00  91  FB  88  D0 

.1548  F8  AD  94  02  91  FB  A0  41 

1550  8C  6F  02  20  83  15  20  E7 

1558  10  20  AB  12  A9  20  8D  70 

1560  02  BD  75  02  A5  FC  20  B8 

1568  15  8E  71  02  8D  72  02  A5 

1570  FB  20  B8  15  8E  73  02  8D 

1578  74  02  A9  07  85  9E  4C  93 


1580  10  20  84  15  8E  88  02  AE 

1588  89  02  DD  A3  02  F0  0D  68 

1590  68  EE  94  02  F0  03  4C  B2 

1598  14  4C  8E  10  E8  8E  89  02 

15A0  AE  88  02  60  C9  30  90  03 

15A8  C9  47  60  38  60  CD  8C  02 

15B0  D0  03  60  A9  91  4C  09  10 

15B8  48  4A  4A  4A  4A  20  32  18 

15C0  AA  68  29  0F  4C  32  18  8D 

15C8  7D  02  08  68  29  EF  BD  7C 

15D0  02  8E  7E  02  8C  7F  02  68 

15D8  18  69  01  8D  7B  02  68  69 

15E0  00  8D  7A  02  A9  80  8D  86 

15E8  02  D0  21  AD  13  E8  10  03 

15F0  4C  55  13  D8  68  8D  7F  02 

15F8  68  8D  7E  02  68  8D  7D  02 


1600  68  8D  7C  02  68  8D  7B  02 

1608  68  8D  7A  02  A5  90  8D  82 

1610  02  A5  91  8D  81  02  BA  8E 

1618  80  02  20  D7  18  AD  12  E8 

1620  58  AD  7C  02  29  10  F0  03 

1628  4C  6F  10  2C  86  02  50  IF 

1630  AD  7A  02  CD  99  02  D0  6D 

1638  AD  7B  02  CD  98  02  D0  65 

1640  AD  9C  02  D0  5D  AD  9D  02 

1648  D0  55  A9  80  8D  86  02  30 

1650  14  4E  86  02  90  D2  AE  80 

1658  02  9A  AD  F5  IF  48  AD  F4 

1660  IF  48  4C  IF  17  20  55  19 

1668  20  30  19  BD  89  02  A0  00 

1670  20  08  19  AD  78  02  AE  7A 

1678  02  85  FB  86  FC  20  52  19 


1680  A9  24  8D  8C  02  20  52  12 

1688  20  E4  FF  F0  FB  C9  03  D0 

1690  03  4C  93  10  C9  4A  D0  56 

1698  A9  01  8D  86  02  D0  4F  CE 

16A0  9D  02  CE  9C  02  AD  12  E8 

16A8  C9  EE  F0  04  C9  6F  D0  3E 

16B0  A2  53  40  85  10  A9  00  F0 

16B8  12  AD  9A  02  AE  9B  02  8D 

16C0  9C  02  8E  9D  02  A9  40  D0 


16C8  02  A9  80  8D  86  02  20  06 

16D0  10  C9  0D  F0  11  C9  20  D0 

16D8  5C  20  60  18  20  FC  18  20 

16E0  06  10  C9  0D  00  4F  20  55 

16E8  19  AD  86  02  F0  22  78  A9 

16F0  A0  8D  4E  E8  CE  13  E8  2C 

16F8  12  E8  AD  F0  IF  AE  Fl  IF 


1700  8D  82  02  8E  81  02  A9  3B 

1708  A2  00  3D  48  E8  8E  49  E8 

1710  AE  80  02  9A  78  AD  81  02 

1718  85  91  AD  82  02  85  90  AD 

1720  7A  02  48  AD  7B  02  48  AD 

1728  7C  02  48  AD  7D  02  AE  7E 

1730  02  AC  7F  02  40  4C  8E  10 

1738  20  4C  18  8D  98  02  8E  99 

1740  02  A9  00  8D  9A  02  8D  9B 

1748  02  20  5D  18  8D  9A  02  8E 

1750  98  02  4C  93  10  20  E6  17 

1758  8D  A0  02  8E  Al  02  20  5D 

1760  18  8D  8D  02  8E  8E  02  20 

1768  5D  18  SD  8F  02  8E  90  02 

1770  20  06  10  C9  0D  F0  0A  20 

1778  06  10  C9  57  D0  03  EE  BC 


1780  02  20  3C  18  AE  94  02  D0 

1788  18  20  0A  11  90  13  AC  8C 

1790  02  D0  lA  Bl  FB  20  C3  12 

1798  AA  BD  F6  IE  D0  06  20  E7 

17A0  10  4C  93  10  AC  88  02  C0 

17A8  02  D0  33  F0  03  8C  88  02 

1780  88  38  81  FB  AA  ED  8D  02 

1788  C8  Bl  F8  ED  8E  02  90  IE 

17C0  88  AD  8F  02  Fl  FB  C8  AD 

17C8  90  02  Fl  FB  90  10  88  18 

17D0  8A  6D  A0  02  91  FB  C8  Bl 

17D8  FB  6D  Al  02  91  FB  20  3B 

17E0  19  88  10  FA  30  9E  20  4C 

17E8  18  85  FD  86  FE  20  5D  18 

17F0  8D  92  02  8E  93  02  20  A4 

17F8  18  20  60  18  85  FB  86  FC 


1800  60  20  4C  18  80  F6  20  60 
1808  18  80  03  20  5D  18  85  FD 
1810  86  FE  60  A5  FC  20  lA  18 
1818  A5  FB  48  4A  4A  4A  4A  20 
1820  32  18  AA  68  29  0F  20  32 
1828  18  48  8A  20  09  10  68  4C 
1830  09  10  18  69  F6  90  02  69 
1838  06  69  3A  60  A2  02  B5  FA 
1840  48  B5  FC  95  FA  68  95  FC 
1848  CA  D0  F3  60  A9  00  8D  97 
1850  02  20  A4  18  C9  20  F0  F9 
1858  20  84  18  B0  08  20  A4  18 
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1860  20  6F  18  90  07  AA  20  6F 

1868  18  90  01  60  4C  8E  10  A9 

1870  00  8D  97  02  20  A4  18  C9 

1878  20  D0  09  20  A4  18  C9  20 


1880  D0  0F  18  60  20  99  18  0A 

1888  0A  0A  0A  8D  97  02  20  A4 

1890  18  20  99  18  0D  97  02  38 

1898  60  C9  3A  08  29  0F  28  90 

18A0  02  69  08  60  20  06  10  C9 

18AB  0D  D0  F8  4C  93  10  A5  9B 

18B0  C9  EF  D0  07  08  20  CC  FF 

18B8  85  9E  28  60  20  C6  18  AD 

18C0  13  E8  6A  90  F7  60  20  AE 

18C8  18  D0  0B  20  D7  18  A9  03 

18D0  85  80  A9  00  85  AF  60  08 

18D8  78  AD  40  E8  09  10  BD  40 

18E0  E8  A9  7F  8D  4E  E8  A9  3C 

18E8  8D  11  E8  A9  3D  8D  13  E8 

18F0  AD  EE  IF  85  90  AD  EF  IF 

18F8  85  91  28  60  8D  7B  02  8E 


1900  7A  02  60  8D  89  02  A0  00 

1908  20  52  19  Bl  FB  20  lA  18 

1910  20  3B  19  CE  89  02  D0  F0 

1918  60  20  6F  18  90  0B  A2  00 

1920  81  FB  CI  FB  F0  03  4C  8E 

1928  10  20  3B  19  CE  89  02  60 

1930  A9  7C  85  FB  A9  02  85  FC 

1938  A9  05  60  E6  FB  D0  07  E6 

1940  FC  D0  03  EE  94  02  60  98 

1948  48  20  55  19  68  A2  2E  20 

1950  29  18  A9  20  2C  A9  0D  4C 

1958  09  10  A2  00  BD  76  IF  20 

1960  09  10  E8  E0  IC  D0  F5  A0 

1968  3B  20  47  19  AD  7A  02  20 

1970  lA  18  AD  7B  02  20  lA  18 

1978  20  52  19  AD  81  02  20  lA 


1980  18  AD  82  02  20  lA  18  20 
1988  30  19  20  03  19  4C  93  10 
1990  4C  8E  10  20  4C  18  20  FC 
1998  18  20  5D  18  8D  82  02  8E 
19A0  81  02  20  30  19  8D  89  02 
19A8  20  A4  18  20  19  19  D0  F8 
19B0  F0  DB  20  60  IC  AE  80  02 
19B8  9A  6C  94  00  4C  8E  10  A0 
19C0  01  84  D4  88  84  Dl  84  96 
19C8  84  9D  A9  02  85  DB  A9  A3 
19D0  85  DA  20  06  10  C9  20  F0 
19D8  F9  C9  0D  F0  lA  C9  22  D0 
19E0  DB  20  06  10  C9  22  F0  36 
19E8  C9  0D  F0  0B  91  DA  E6  Dl 
19F0  C8  C0  10  F0  C7  D0  EA  AD 


19F8  87  02  C9  4C  D0  El  AD  00 


1A00  C0  C9  40  D0  06  20  22  F3 

1A08  4C  12  lA  C9  4C  D0  AD  20 

1A10  56  F3  20  BC  18  A5  96  29 

1A18  10  D0  El  4C  93  10  20  06 

1A20  10  C9  0D  F0  D2  C9  2C  D0 

1A28  F0  20  6F  18  29  0F  F0  C3 

1A30  C9  03  F0  FA  85  D4  20  06 

1A38  10  C9  0D  F0  BA  C9  2C  D0 

1A40  E6  20  F9  17  20  06  10  C9 

1A48  2C  D0  F4  20  60  18  85  C9 

1A50  86  CA  20  06  10  C9  20  F0 

1A58  F9  C9  0D  D0  EC  AD  87  02 

1A60  C9  53  D0  F7  AD  00  C0  C9 

1A68  40  D0  06  20  A4  F6  4C  93 

iA70  10  C9  4C  D0  D4  20  E3  F6 

1A78  4C  93  10  20  01  18  20  3B 


1A80  19  20  3B  19  20  0B  18  20 
1A88  52  19  20  13  11  90  0A  98 
1A90  D0  15  AD  91  02  30  10  10 
1A98  08  C8  D0  0B  AD  91  02  10 
1AA0  06  20  lA  18  4C  93  10  4C 
1AA8  8E  10  20  01  18  20  C0  lA 
1AB0  4C  93  10  20  55  19  A2  2E 
lAb8  A9  24  20  29  18  20  13  18 
1AC0  20  2F  IB  20  E6  lA  20  52 
1AC8  19  20  CC  lA  20  CF  lA  20 
1AD0  52  19  A2  04  A9  30  18  0E 
1AD8  92  02  2E  93  02  69  00  20 
1AE0  09  10  CA  D0  EF  60  A5  FC 
1AE8  A6  FB  80  93  02  8E  92  02 
1AF0  20  52  19  A5  FC  20  FA  lA 
1AF8  A5  FB  AA  20  52  19  8A  29 


1B00  7F  C9  20  08  B0  0A  A9  12 
1B08  20  09  10  8A  18  69  40  AA 
1B10  8A  20  09  10  C9  22  F0  04 
1B18  C9  62  D0  0A  A9  14  20  09 
1B20  10  A9  22  20  09  10  28  B0 
1B28  05  A9  92  20  09  10  60  20 
1B30  52  19  A6  FB  A5  FC  AC  00 
1B38  C0  C0  40  D0  03  4C  D9  DC 
1B40  C0  4C  D0  03  4C  83  CF  4C 
1B48  8E  10  20  5B  IB  B0  F8  20 
1B50  52  19  20  13  18  20  C3  lA 
1B58  4C  93  10  A2  04  A9  00  85 
1B60  FC  20  17  IC  20  83  IB  85 
1B68  FB  20  78  IB  20  92  IB  CA 
1B70  D0  F7  08  20  52  19  28  60 
1B78  20  06  10  C9  0D  F0  0F  C9 


1B80  20  F0  0B  C9  30  90  C0  C9 
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1B88  3A  B0  BC  29  0F  60  68  68 

1B90  18  60  85  FE  A5  FC  48  A5 

1898  FB  48  06  FB  26  FC  06  FB 

1BA0  26  FC  68  65  FB  85  FB  68 

IBAB  65  FC  85  FC  06  FB  26  FC 

1BB0  A5  FE  65  FB  85  FB  A9  00 

1BB8  65  FC  85  FC  60  20  17  IC 

1BC0  8D  93  02  48  48  20  52  19 

1BC8  20  52  19  68  20  lA  18  20 

1BD0  52  19  68  AA  A9  00  20  36 

1BD8  IB  20  52  19  20  CC  lA  4C 

1BE0  93  10  20  F4  IB  20  52  19 

1BE8  20  13  18  20  2F  IB  20  E6 

1BF0  lA  4C  93  10  A2  0F  A9  00 

1BF8  85  FB  85  FC  20  17  IC  20 


1C00  83  IB  20  11  IC  20  78  IB 

1C08  20  11  IC  CA  D0  F7  4C  52 

1C10  19  4A  26  FB  26  FC  60  20 

1C18  A4  18  C9  20  F0  F9  60  A9 

1C20  02  4D  4C  E8  8D  4C  E8  4C 

1C2B  93  10  20  0B  18  4C  F6  17 

1C30  20  2A  IC  18  A5  FB  65  FD 

1C38  85  FB  A5  FC  65  FE  85  FC 

1C40  4C  50  IC  20  2A  IC  20  13 

1C48  11  84  FC  AD  91  02  85  FB 

1C50  20  52  19  20  13  18  4C  93 

1C58  10  20  50  IC  00  6C  EC  IF 

1C60  78  AD  E5  02  AE  E6  02  85 

1C68  92  86  93  AD  9E  02  AE  9F 

1C70  02  85  90  86  91  58  60  20 

1C78  2A  IC  20  3C  18  20  52  19 


1C80  A0  00  8C  92  02  8C  93  02 
1C88  20  13  11  90  10  AD  94  02 
1C90  D0  18  A0  00  18  Bl  FB  6D 
1C98  92  02  8D  92  02  98  6D  93 
1CA0  02  8D  93  02  20  3B  19  4C 
1CA8  88  IC  AD  93  02  20  lA  18 
1CB0  AD  92  02  20  lA  18  4C  93 
1CB8  10  AD  A2  02  D0  04  A5  9E 
1CC0  D0  06  68  A8  68  AA  68  40 
1CC8  AD  6F  02  C9  11  D0  7D  A5 
1CD0  D8  C9  18  D0  ED  A5  C4  85 
1CD8  FD  A5  C5  85  FE  A9  19  8D 
1CE0  9C  02  A0  01  20  BC  IE  C9 
1CE8  3A  F0  lA  C9  2C  F0  16  C9 
1CF0  24  F0  12  CE  9C  02  F0  CA 
1CF8  38  A5  FD  E9  28  85  FD  B0 


1D00  El  C6  FE  D0  DD  8D  87  02 

1D08  20  45  IE  B0  B5  AD  87  02 

1D10  C9  3A  D0  11  18  A5  FB  69 

1D18  08  85  FB  90  02  E6  FC  20 


1D20  D6  13  4C  39  ID  C9  24  F0 

1D28  lA  20  0E  IE  20  AB  12  A9 

1D30  00  8D  8C  02  A0  2C  20  4F 

1D38  12  A9  00  85  9E  4C  4A  12 

1D40  4C  C2  IC  20  3B  19  20  B3 

1D48  lA  4C  39  ID  C9  91  D0  F0 

1D50  A5  D8  D0  EC  A5  C4  85  FD 

1D58  A5  C5  85  FE  A9  19  8D  9C 

1D60  02  A0  01  20  8C  IE  C9  3A 

1D68  F0  lA  C9  2C  F0  16  C9  24 

1D70  F0  12  CE  9C  02  F0  15  18 

1D78  A5  FD  69  28  85  FD  90  El 


1D00  El  C6  FE  D0  DD  8D  87  02 

1D08  20  45  IE  B0  B5  AD  87  02 

1D10  C9  3A  D0  11  18  A5  FB  69 

1D18  08  85  FB  90  02  E6  FC  20 

1D20  D6  13  4C  39  ID  C9  24  F0 

1D28  lA  20  0E  IE  20  AB  12  A9 

1D30  00  8D  8C  02  A0  2C  20  4F 

1D38  12  A9  00  85  9E  4C  4A  12 

1D40  4C  C2  IC  20  3B  19  20  B3 

1D48  lA  4C  39  ID  C9  91  D0  F0 

1D50  AS  D8  D0  EC  A5  C4  85  FD 

1D58  A5  C5  85  FE  A9  19  8D  9C 

1D60  02  A0  01  20  8C  IE  C9  3A 

1D68  F0  lA  C9  2C  F0  16  C9  24 

1D70  F0  12  CE  9C  02  F0  15  18 

1D78  A5  FD  69  28  85  FD  90  El 


1D80  E6  FE  D0  DD  8D  87  02  20 

1D88  45  IE  90  03  4C  C2  IC  AD 

1D90  87  02  C9  3A  F0  06  C9  24 

1D98  F0  ID  D0  27  20  15  IE  38 

1DA0  A5  FB  E9  08  85  FB  B0  02 

1DA8  C6  FC  20  D9  13  A9  00  85 

1DB0  9E  20  40  IE  4C  96  10  20 

1DB8  15  IE  20  D5  10  20  B6  lA 

1DC0  4C  AD  ID  20  15  IE  A5  FB 

1DC8  A6  FC  85  FD  86  FE  A9  10 

1DD0  8D  9C  02  38  A5  FD  ED  9C 

1DD8  02  85  FB  A5  FE  E9  00  85 

1DE0  FC  20  0E  IE  20  AB  12  20 

IDEB  13  11  F0  07  B0  F3  CE  9C 

1DF0  02  D0  E0  EE  8B  02  AD  8B 

1DF8  02  20  B9  13  A2  00  Al  FB 


1E00  8E  8C  02  A9  2C  20  4D  19 

1E08  20  52  12  4C  AD  ID  A2  00 

1E10  Al  FB  4C  C3  12  A9  83  85 

1E18  C8  85  FE  A9  00  85  C7  A9 

1E20  28  85  FD  A0  C0  A2  04  88 

1E28  Bl  C7  91  FD  98  D0  F8  C6 

1E30  C8  C6  FE  CA  D0  Fl  A2  27 
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1E38 

A9 

20 

9D 

00 

80 

CA 

10 

FA 

1E40 

A9 

13 

4C 

09 

10 

C0 

28 

D0 

1E48 

02 

38 

60 

20 

8C 

IE 

C9 

20 

1E50 

F0 

F3 

88 

20 

75 

IE 

AA 

20 

1E58 

75 

IE 

85 

FB 

86 

FC 

A9 

FF 

IE60 

BD 

A2 

02 

85 

A7 

A5 

AA 

F0 

lEb8 

0A 

AS 

A9 

a4 

Cb 

91 

C4 

A9 

1E70 

00 

85 

AA 

18 

60 

20 

8C 

IE 

LE78 

20 

99 

18 

0A 

0A 

0A 

0A 

8D 

1E80    97    02    20    8C    IE    20    99    18 


1E88 

0D 

97 

02 

60 

Bl 

FD 

C8 

29 

1E90 

7F 

C9 

20 

80 

02 

09 

40 

60 

1E98 

40 

02 

45 

03 

D0 

08 

40 

09 

1EA0 

30 

22 

45 

33 

D0 

08 

40 

09 

1EA8 

40 

02 

45 

33 

D0 

08 

40 

09 

1EB0 

40 

02 

45 

B3 

D0 

08 

40 

09 

1EB8 

00 

22 

44 

33 

D0 

8C 

44 

00 

1EC0 

11 

22 

44 

33 

D0 

8C 

44 

9A 

lECB 

10 

22 

44 

33 

D0 

08 

40 

09 

1ED0 

10 

22 

44 

33 

D0 

08 

40 

09 

1ED8 

62 

13 

78 

A9 

00 

21 

81 

82 

1EE0 

00 

00 

59 

4D 

91 

92 

86 

4A 

1EE8 

85 

9D 

2C 

29 

2C 

23 

28 

24 

1EF0 

59 

00 

58 

24 

24 

00 

IC 

8A 

coMPirrei 

1FD0 

48 

13 

23 

14 

93 

19 

AA 

lA 

1FD8 

4A 

IB 

BD 

IB 

30 

IC 

43 

IC 

1FE0 

7B 

lA 

IF 

IC 

59 

IC 

E2 

IB 

1FE8 

77 

IC 

B2 

19 

00 

10 

55 

13 

1FF0 

EB 

15 

B9 

IC 

C6 

15 

8E 

10 
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1FF8    BC    18    30    35    32    37    38    31 


Program  3. 


DATA  15965,14778,13059,14282,14 

416,17693,12979,12903,1767 

6,21760 
DATA  14416,17693,12979,12903 

Q=23296 

FOR  BL0CK=1T08 

FOR  BYTE=0TO127 

X=PEEK (Q+BYTE) : CK=CK+X 

NEXT  BYTE 

READ  SUM 

IF  SUM  <>  CK  THEN  PRINT"  ERROR 

IN  BLOCK  #"BLOCK:GOTO170 


1EF8  IC  23  5D  8B  IB  Al  9D  8A 


20 

100 

110 

120 

130 

140 

150 

160 

165 

170 
180 
190 


PRINT" 

BLOCK"  IS  CORRECT 

CK=0:Q=Q+128 

NEXT  BLOCK 

PRINT"ANY  REMAINING 

E  EITHER  WITHIN  THE 


BLOCK" 


PROBLEMS 
FINAL" 


AR 


1F00    ID    23    9D    8B    ID    Al    00    29 


1F08 

19 

AE 

69 

A8 

19 

23 

24 

53 

1F10 

IB 

23 

24 

53 

19 

Al 

00 

lA 

1F18 

5B 

5B 

A5 

69 

24 

24 

AE 

AE 

1F20 

A8 

AD 

29 

00 

7C 

00 

15 

9C 

1F28 

6D 

9C 

A5 

69 

29 

53 

84 

13 

1F30 

34 

11 

A5 

69 

23 

A0 

D8 

62 

1F38 

5A 

48 

26 

62 

94 

88 

54 

44 

1F40 

C8 

54 

68 

44 

E8 

94 

00 

B4 

1F48 

08 

84 

74 

B4 

28 

6E 

74 

F4 

1F50 

CC 

4A 

72 

F2 

A4 

8A 

00 

AA 

1F58 

A2 

A2 

74 

74 

74 

72 

44 

68 

1F60 

B2 

32 

B2 

00 

22 

00 

lA 

lA 

1F68 

26 

26 

72 

72 

88 

C8 

C4 

CA 

1F70 

26 

48 

44 

44 

A2 

C8 

0D 

20 

1F78 

20 

20 

20 

50 

43 

20 

20 

49 

1F80 

52 

51 

20 

20 

53 

52 

20 

41 

1F88 

43 

20 

58 

52 

20 

59 

52 

20 

1F90 

53 

50 

41 

42 

43 

44 

46 

47 

1F98 

48 

4C 

4D 

4E 

51 

52 

53 

54 

1FA0 

57 

58 

2C 

3A 

3B 

24 

23 

22 

1FA8 

2B 

2D 

4F 

5A 

4B 

25 

26 

45 

1FB0 

4D 

14 

38 

17 

2  5 

11 

35 

12 

1FB8 

9D 

11 

B5 

16 

C8 

11 

BF 

19 

1FC0 

BE 

13 

55 

17 

B9 

16 

5A 

19 

1FC8 

BF 

19 

29 

11 

C9 

16 

B5 

19 

200    PRINT"SHORT    BLOCK    OR    WITHIN    DAT 
A    STATEMENTS    IN    THIS    PROGR 
AM." 


Program  4. 


5B00 

78 

A5 

90 

A6 

91 

CD 

EE 

6F 

5B08 

D0 

05 

EC 

EF 

6F 

F0 

30 

8D 

5B10 

9E 

02 

8E 

9F 

02 

AD 

EE 

6F 

5B18 

AE 

EF 

6F 

85 

90 

86 

91 

A5 

5B20 

92 

A6 

93 

8D 

E5 

02 

8E 

E6 

5B28 

02 

AD 

3C 

5F 

AE 

3D 

5F 

BD 

5B30 

E3 

02 

8E 

E4 

02 

AD 

F0 

6F 

5B38 

AE 

Fl 

6F 

85 

92 

86 

93 

AD 

5B40 

3E 

5F 

AE 

3F 

5F 

E0 

80 

B0 

5B48 

08 

85 

34 

86 

35 

85 

30 

86 

5B50 

31 

A9 

10 

BD 

84 

02 

8D 

85 

5B58 

02 

A9 

00 

8D 

86 

02 

8D 

A2 

5B60 

02 

8D 

E7 

02 

8D 

E8 

02 

58 

5B68 

00 

A2 

0C 

DD 

15 

5F 

D0 

13 

5B70 

8D 

87 

02 

8A 

0A 

AA 

BD 

22 

5B78 

5F 

85 

FB 

BD 

23 

5F 

85 

FC 

5B80 

6C 

FB 

00 

CA 

10 

E5 

4C 

8E 

5B88 

60 

20 

39 

64 

20 

13 

61 

90 

5B90 

17 

20 

EF 

60 

BE 

8C 

02 

20 

172 


COMPUTE! 
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5B98  52  62  20  AB  58  20  AB  62 

5BA0  20  93  5C  20  AE  68  D0  E4 

5BA8  4C  9B  60  A2  IE  20  Fl  60 

5BB0  A0  00  Bl  FB  20  60  5C  CC 

5BB8  8B  02  C8  90  F5  60  AS  B0 

5BC0  C9  03  D0  19  20  06  60  AA 

5BC8  A9  04  E0  0D  F0  09  20  6F 

5BD0  68  29  IF  C9  04  90  AF  20 

5BD8  E3  58  4C  98  60  20  CC  FF 

5BE0  4C  93  60  85  B0  85  D4  20 

5BE8  09  5C  AE  00  C0  E0  40  D0 

5BF0  0B  20  BA  F0  20  2D  Fl  A5 

5BF8  96  D0  E2  60  E0  4C  D0  5D 


5C00  20  D5  F0  20  48  Fl  4C  F7 

5C08  58  A9  00  85  96  8D  FC  03 

5C10  85  0D  8D  E8  02  60  20  39 

5C1B  64  AE  94  02  D0  10  20  13 

5C20  61  90  0B  20  31  5C  20  93 

5C28  5C  20  AE  68  D0  EB  4C  A8 

5C30  5B  A2  05  20  Fl  60  20  13 

5C38  68  A2  02  20  Fl  60  A9  10 

5C40  20  03  69  A9  10  20  B9  63 

5C48  A2  04  20  Fl  60  A0  10  A2 

5C50  00  Al  FB  20  60  5C  20  3B 

5C58  69  88  D0  F5  60  4C  8E  60 

5C60  29  7F  C9  20  B0  02  A9  20 

5C68  4C  09  60  20  06  60  C9  0D 

5C70  F0  19  C9  20  D0  03  20  17 

5C78  6C  C9  58  F0  50  20  71  5D 


5C80  8E  E8  02  A2  02  20  A7  5C 

5C88  4C  98  60  A2  04  20  CI  5C 
5C90  4C  98  60  20  55  69  AE  E7 
5C98  02  F0  31  CE  E7  02  D0  2C 
5CA0  AE  EB  02  F0  lA  A2  06  20 
5CA8  CI  5C  A2  14  20  Fl  60  BD 
5C80  A3  02  20  09  60  E8  EC  E8 
5CB8  02  D0  F4  A2  03  D0  02  A2 
5CC0  09  20  55  69  CA  D0  FA  A9 
5CC8  39  8D  E7  02  60  A9  00  BD 
5CD0  E7  02  8D  EB  02  4C  9B  60 
5CD8  20  09  5C  20  CC  FF  20  06 
5CE0  60  C9  0D  F0  16  C9  24  F0 
5CE8  24  48  20  9E  5D  58  20  09 
5CF0  60  20  06  60  C9  00  D0  F6 
5CF8  4C  DD  5B  20  52  69  20  C5 


5D00  5D  20  06  60  C9  0D  F0  F0 

5D08  20  09  60  D0  F4  A2  00  20 

5D10  82  5D  20  88  5D  20  55  69 

5D18  20  55  69  A0  03  D0  02  A0 

5020  02  84  Dl  A9  08  85  AF  20 

5D28  06  60  AA  A4  96  D0  36  20 

5D30  06  60  A4  96  00  2F  C6  Dl 


5D38  00  ED  20  36  6B  20  52  69 

5D40  20  06  60  F0  05  20  09  60 

5D48  00  F6  20  55  69  A9  00  85 

5D50  AF  20  E4  FF  F0  C9  D0  05 

5058  20  E4  FF  F0  FB  C9  20  F0 

5060  F7  C9  03  00  BA  20  12  5E 

5D68  20  55  69  4C  93  60  20  17 

5070  6C  C9  22  00  7B  A2  00  20 

5078  06  60  C9  00  F0  0C  C9  22 


5080  F0  08  90  A3  02  E8  E0  40 

5088  90  ED  60  86  Dl  A9  A3  85 

5090  OA  A9  02  85  DB  20  CC  FF 

5098  20  F3  5D  4C  C9  50  A9  08 

5DA0  85  04  85  80  AC  00  C0  C0 

50A8  40  00  08  20  BA  F0  A9  6F 

5OB0  20  28  Fl  4C  F7  5B  C0  4C 

50B8  00  36  20  D5  F0  A9  6F  20 

5OC0  43  Fl  4C  F7  58  A9  6F  85 

50C8  D3  A9  08  85  04  85  AF  AC 

5DD0  00  C0  C0  40  00  0B  20  86 

5D08  F0  A5  03  20  64  Fl  4C  F7 

5DE0  58  C0  4C  D0  08  20  02  F0 

5DE8  A5  03  20  93  Fl  4C  F7  58 

5DF0  4C  BE  60  A9  08  85  04  A9 

5DF8  60  85  03  AD  00  C0  C9  40 


5E00  00  06  20  66  F4  4C  F7  5B 

5E08  C9  4C  D0  E4  20  A5  F4  4C 

5E10  F7  58  A9  00  85  AF  AO  00 

5E18  C0  C9  40  00  03  4C  8F  F3 

5E20  C9  4C  D0  CC  4C  CE  F3  A9 

5E28  02  2C  4C  E8  08  A9  0E  28 

5E30  F0  02  09  80  20  09  60  4C 

5E38  93  60  20  09  5C  20  6E  5D 

5E40  20  8B  5D  20  06  60  8D  FB 

5E48  00  20  06  60  80  FC  00  20 

5E50  12  5E  20  52  69  A9  24  A2 

5E58  20  20  29  68  20  13  68  4C 

5E60  93  60  20  60  6C  00  6C  3E 

5E68  5F  A0  08  84  D4  A0  4C  BC 

5E70  87  02  A0  00  4C  C4  69  20 

5E78  17  6C  29  9F  4C  34  5E  4C 


5EB0  8E  60  20  A4  68  20  6F  68 
5E88  29  IF  C9  04  90  Fl  85  D4 
5E90  20  2A  6C  A5  FO  A6  FE  8D 
5E98  92  02  BE  93  02  20  3C  68 
5EA0  A5  D4  20  E3  58  A9  02  20 
5EA8  09  60  20  52  69  20  13  61 
5EB0  90  0F  AE  94  02  00  0A  Al 
5EB8  FB  20  lA  68  20  38  69  00 
5EC0  E9  A9  03  20  09  60  20  EF 
5EC8  60  20  CC  FF  20  F8  60  4C 


SED0  7D  6C  20  09  5C  20  01  68 

5ED8  20  6E  5D  86  Dl  20  04  5F 

5EE0  20  8D  5D  20  06  60  20  06 

SEES  60  A9  00  85  AF  AD  00  C0 

5EF0  C9  40  D0  06  20  52  F3  4C 

5EF8  01  5F  C9  4C  D0  81  20  8C 


5F00  F3 
5F08  40 
5F10  D0 
5F18  CD 
5F20  55 
5F28  16 
5F30  3A 
5F38  82 
5F40  31 


4C  12  6A  AD 
D0  03  4C  0A 
EA  4C  49  F4 
40  3E  DA  4A 
59  BE  5B  89 
5C  D8  5C  D3 
5E  62  5E  69 
5E  02  5E  69 
30  32  31  38 


00  C0  C9 

F4  C9  4C 

50  C4  49 

CB  CC  5E 

5B  6B  5C 

5C  27  5E 

5E  77  5E 

58  00  5B 

31  AA  AA 
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Self-Modifying 
Programs  In 
BASIC 

David  Williams 
Toranto,  Canada 


The  notion  of  a  program  which  alters  itself  as  it 
runs  raises  feelings  of  doubt  and  mistrust  in  many 
novice  computer  users.  It  seems  that  such  a  pro- 
gram would  be  doomed  to  faihne  through  some 
kind  of  lt)gical  paradox.  In  fact  this  is  not  the  case. 
Providing  that  the  part  of  the  program  which 
guides  the  modification  process  is  separate  from 
that  which  is  being  changed,  and  that  no  attempt  is 
made  to  execute  program  lines  which  are  in  the 
process  of  being  modified,  no  problems  need  arise. 
As  a  demonstration,  try  keying  in  the  following 
program.  As  you  do  so,  be  careful  not  to  include 
any  spaces  in  lines  10  or  20,  or  between  the  quote 
marks  in  line  120.  Line  20  should  consist  of  a  string 
of  exactly  twenty  tt's. 


10  GOTO100 
20  ^^^^^^^^^ 


3  0  RETURN 

100  FORI=826T0838tPOKEI,32:NEXT 

110  INPUTS? 

120  S$="GOTO200: "+S$+CHR$(13) 

130  F0RI=1T0LEN(S$) : POKE838+I, ASC (MID$ (S 

-.$,:)  )  :NEXT 
140  POKE175,2:POKE212,2:POKE5940  8, 

-.PEEKC5940  8)ANDNOT32:POKE188,0: 

-iPOKE176,2 
150    END 

200    POKEl75,0rPOKEl76,3 
210    1=0 

220    PK=PEEK(517+I) 
230    IFPK=0THEN300 
240    POKE1038+I,PK 
250    1=1+1 
260    GOTO220 

300    FORI=ITO19:POKE103  8+I,32:NEXT 
400    GOSUB20 
READY . 


When  you  have  finished  entering  the  program, 
SAVE  it  before  you  first  rim  it.  If  you  have  made 
any  typing  mistakes  it  is  possible  that  the  program 
may  destroy  itself  or  crash  the  PET  when  it  is 
run.  Having  a  copy  on  tape  could  save  you  a  lot  of 


re-typing! 

When  the  program  is  iim,  a  question  mark 
and  flashing  cur,sor  should  appear  on  the  screen. 
This  is  the  input  line  1  10.  Respond  to  this  Ijy  typing 
in  some  simple  instruction  in  BASIC,  such  as 
PRINT  2  +  3*5,  and  hit  the  return  key.  Within  the 
next  couple  of  seconds  the  number  17  (the  correct 
response  to  our  input  instruction)  should  lie  [>riiued, 
idllowed  by  the  word  READY  and  the  flashing 
cursor. 

The  output  from  this  program  is  less  inter- 
esting than  another  result,  which  can  be  .seen  by 
LISTing  tlie  program  after  it  has  run.  Line  20  will 
be  foiuid  to  have  changed  from  a  meaningless 
string  of  tt's  to: 

20  PRINT  2 +  3*5 

the  very  same  instruction  that  was  entered  while 
the  program  was  running.  In  fact  the  ir 's  were 
there  only  to  reserve  a  set  of  twenty  addresses  into 
which  the  new  line  was  POKEd.  There  are  still 
twenty  characters  in  line  20,  but  most  of  them  are 
now  blanks,  which  are  not  visible  in  the  listing  and 
do  not  cause  any  problems  when  the  line  is  executed. 
Since  the  number  of  characters  in  the  line  is  un- 
changed, the  program  can  be  run  repeatedly, 
altering  the  contents  of  this  line  each  lime. 

Maybe  you  now  think  that  the  program  is  far 
more  complicated  than  it  needs  to  be  to  achieve  ihe 
result  of  poking  the  desired  instruction  into  line 
20.  Surely  all  that  needs  to  be  done  is  to  poke  liie 
ASCII  numbers  corresponding  to  P,R,I,N,T,etc. 
into  the  20  addresses  of  the  line.  Write  your  o%vn 
program  to  do  this,  if  you  want,  but  you're  in  for  a 
disappointment.  When  your  program  is  working 
properly,  the  new  line  will  LIST  exactly  as  it  should, 
but  when  you  try  to  execute  it  you  will  get  a  SYN- 
■f  AX  ERROR.  The  proljlem  is  that  BASIC  instruc- 
tion woids  are  sU)red  in  FET's  memory  as  single 
token  characters  (the  LISTing  routine  translates 
them  back  into  English  words)  and  the  machine 
cannot  understand  lliem  except  in  token  lorm. 

Tlie  demonstration  program  not  only  enters 
the  new  line  in  correct  token  form,  it  also  tloes  so 
without  invoking  the  line  editor,  which  would 
cause  the  erasure  of  any  pre-existing  variables, 
strings,  etc.  in  memory.  To  provide  this,  enter 
"X  =  5"  in  direct  mode,  then  start  the  program 
wilhoiu  erasing  memory  by  entering  "(iOTO  10". 
Put  in  any  simple  BASIC  instruction,  such  as 
PRINT  "DONE",  when  line  1 10  asks  for  it.  When 
the  progi-am  has  finished,  enter  PRINT  X  in  direct 
mode.  The  value  5  will  be  returned,  showing  dial  it 
is  still  in  memory. 

Let's  now  look  at  the  program  to  see  how  it 
works.  The  first  few  lines  are  arranged  so  that  the 
changeable  line  is  as  near  the  start  of  the  program 
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as  possible.  This  makes  its  addresses  easy  to  find 
(e.g.  by  using  the  machine-language  monitor),  and 
also  protects  them  from  being  messed  aiound  with 
by  any  echting  of  llie  rest  of  the  program.  Lines 
100  to  130  take  the  input  instruction,  in  string 
form,  prefix  it  with  "GOTO  200",  and  then  POKF. 
it,  letter  by  letter,  into  the  second  cassette  buffer  in 
the  PE  r  starting  several  cliaracters  fiom  the  start 
of  the  buffer.  This  bufi'er  is  used  by  llie  program 
for  one  of  its  originally  intended  purpo.ses,  as  an 
input/output  device.  Line  140  contains  a  set  of 
POKEs  which  "persuade"  the  PET  that  a  second 
cassette  unit  is  present,  that  its  "Play"  key  is  pressed, 
and  that  this  is  the  device  from  wliich  it  sliould 
take  its  next  input  and  to  wliicli  it  should  make  its 
next  output,  starting  at  the  beginning  of  the  buffer. 

At  line  1 50,  an  END  instruction  is  encountered. 
This  makes  the  PET  print  READY  into  the  start  of 
the  second  cassette  buffer  and  then  to  lake  tiie 
instructions  which  are  waiting  lor  it  in  the  later 
locations  in  the  buffer.  These  are  first  translated 
into  token  form  (just  what  we  wanted!)  and  entered 
into  another  buffer,  froin  which  thev  are  later  read 
by  the  routines  which  execute  B.-XSIC  instructions. 
However,  the  first  instruction  to  be  executed  is 
GOTO  200,  which  re-slarls  the  program  and  leaves 
the  instructions  which  we  want  to  put  into  line  20, 
in  token  form,  in  the  basic  input  buffer. 

Line  200  restores  the  keyboard  as  t!ie  PET's 
input  device  and  the  screen  as  its  output  device. 
Lines  210  to  260  copy  the  desired  text  from  the 
basic  input  buffer  into  the  addres.ses  occupied  by 
line  20,  then  line  300  fills  the  remainder  of  these 
acldresses  with  blanks.  Finally,  line  400  demon- 
strates that  the  new  line  acluallv  works,  and  the 
machine  prints  the  word  REAb\'  on  the  screen  as 
the  program  ends. 

There  is  an  obvious  criticism  which  can  be 
made  of  tliis  program  as  it  stands.  Why  go  to  the 
trouble  of  copying  the  instructions  into  line  20 
when  they  could  ha\e  been  execiued  directly  from 
the  basic  input  buffer?  This  is  a  valid  criticism, 
provided  the  instructions  ate  to  be  executed  onlv 
once,  and  thai  thev  can  legally  be  performed  in 
direct  mode.  In  practical  applications  ol  this  tech- 
nique, however,  one  or  the  other  of  these  conditions 
is  often  not  true. 

So  much  for  the  mechanics  of  simple  .self- 
modifying programs.  Their  potential  usefulne.ss  is 
great.  They  represent  a  class  of  interactive  pro- 
grams wliich  allow  the  usci-  nol  only  to  supply  the 
values  of  variables  and  to  make  simple  choices,  but 
also  to  give  precise  logical  inslriic  tions  to  the  |)ro- 
gram  as  it  operates. 

Probably  the  simplest  applications  are  in  gen- 
eral mathematical  programs.  Fhesc  can  easily  be 
written  to  draw  the  graph  of  any  function,  to  Use 


an  iterative  method  to  solve  any  equation,  or  any 
similar  task.  The  program  asks  the  user  to  enter 
the  equation  he  is  interested  in,  and  then  wTites 
this  into  one  ol  its  own  lines.  Ibis  line  can  later  be 
executed  as  many  times  as  necessary  for  the  pro- 
gram to  complete  its  job. 

I  have  recently  written  a  self-modifying  pro- 
gram with  a  very  different  purpose:  to  teach  stu- 
dents how  to  set  up  computer  programs  in  the 
form  of  fiow-charls.  I  he  program  allows  a  sttident 
to  draw  a  flow-chart  on  the  PET  screen,  with  BASIC 
instructions  placed  on  the  diagram  in  the  appro- 
priate places.  When  the  diagram  is  contplete,  its 
inslriiclions  can  be  executed  without  the  student 
iiaving  to  write  a  conventional  program.  The  PET 
simply  follows  the  logic  lines  on  the  diagram.  When 
an  instruction  is  encountered,  it  is  written  into  one 
of  se\eral  moclillable  lines  in  the  tnain  program 
and  executed  appropriately. 

I  am  sure  there  are  thousands  of  other  appli- 
cations, but  I'll  leave  them  for  vou  to  discover...      © 


NEW  PET/CBM  SOFTWARE 

Let  Computer  Mat  turn  your  Pet  into  a 
Home  Arcade! 

BLAST4T  —  Its  your  ship  vs.  a  swarm  of  killer  gammaroidz.  You 
are  on  a  collision  course  and  must  destroy  them  before  they  blast 
you  into  the  next  galaxy.  Four  !eue!s  of  play.  Has  hyperspace  keys 
that  move  you  around.  Arcade  style  entertainment  at  its  finest. 
GREAT  GRAPHICS  AND  SOUND, 

Cass,  8K    $9.95 

MUNCHMAN  —  How  many  dots  can  you  cover?  It's  you  against 
the  computer  munchers  7.1P  and  ZAP.  Can  you  clear  the  maze  first 
or  will  they  get  you?  Number  keys  move  you  up,  down,  right  and 
left.  GREAT  GRAPHICS  AND  SOUND. 

Cass.  8K   $9.95 

LAZER-ATTACK  —  Its  you  against  a  barrage  of  enemy  lazers 
that  are  aimed  at  your  ammo  dumps.  Sight  in  on  the  targets  and 
score  as  many  hits  as  you  dare.  As  your  skill  increases  so  does  the 
the  difficulty  —  (10  levels  to  select).  This  is  an  arcade-style  game 
with  great  graphics  and  sound  effects.  A  must  for  your  PET,/CBM. 
Cass.  8K S9.95 

ALL  OUR  SOFTWARE  RUNS  IN  8K 

OLD-NEW  ROM       tO  CHR.  SCREEN 

WRITE  FOR  FREE  CATALOG  OF  VIC/PET  SOFTWARE 

PLEASE  ADD  $1.00  PER  ORDER  FOR  SHIPPING 

COMPUTER  MAT  •  BOX  1664C  •  LAKE  HAVASU  CITY,  AZ,  86403 
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VIC-20  Update 


TINYMON1: 

A  Simple 
Monitor  For 
TiieVIC 


Jim  Butterfield 
Toronto,  Canada 


One  of  the  things  ycni  may  miss  on  the  VIC  is  a 
Machine  Language  Monitor:  it's  not  there. 

Commodore  will  be  releasing  a  ver)'  powerful 
MLM  on  a  ptiig-in  cartridge,  and  serious  program- 
mers will  certainly  want  lo  use  ii.  But  for  occasional 
use.  a  tape-loadahle  MI.M  might  he  very  handy. 

Here's  an  early  version  thai  may  be  ol  use.  It 
should  fit  on  any  VIC,  with  or  without  extra 
memory  added;  and  it  honors  all  theconnnands 
from  ihe  huiil-in  Monitors  we  know  from  PK  F/CIBM 
usage.  One  minor  syntax  change:  the  two  addresses 
of  tlie  Memory  display  command  (.M)  should  be 
separated  bv  a  space  rather  than  a  comma. 

It's  not  really  practical  to  type  TIN^'MO\' 
directly  into  a  VIC.  D.'\  TA  statements  in  decimal 
would  take  up  more  room  than  is  available  in  small 
VICs;  and  hex  entry  would  need  an  MLM  to  be  in 
jjlace  already.  So  I've  prepared  the  program  so 
that  it  can  be  entered  on  a  PET  and  saved  on  tape. 
After  it's  been  created  once,  the  VIC  can  make  its 
own  copies.  You'll  need  a  PET  with  Upgrade  ROM 
or  4.0  ROM  to  do  the  job,  since  the  Original  ROM 
PETs  don't  have  a  Machine  Language  Monitor  and 
things  would  get  too  cf)mplicated. 

riNYMON  loads  like  a  BASIC  Program,  and 
copies  can  be  made  with  a  simple  LOAD  and  S.A.VE 
sequence  as  you  would  do  with  BASICS  When  you 
load  riNYMON  and  .say  RUN,  however,  some 
interesting  things  hapjien  ...  the  monitor  system  is 
repacked  into  the  lo|)  of  memory,  and  it  will  stay 
there  until  you  tinn  the  power  off.  You  can  .say  .X 
to  return  t()  BASK,  and  load  and  rini  BASIC  pro- 
grams, providing  they  are  not  U)o  liig.  f  INVMON 


gralxs  about  760  bytes  of  memory,  so  you  lose  a 
liiiie  space. 

Find  A  Zero 

Once  you're  back  in  BASIC,  the  question  arises: 
how  can  you  invoke  TINYMON  when  desired? 
Not  an  easy  trick,  since  memory  is  more  mobile  in 
the  VIC  than  in  the  PE  I7CBM.  The  thing  lo  do  is 
to  find  a  zero  \alue  in  niemor\  and  SYS  to  that 
location.  If  you  have  a  basic  {5K)  VIC,  SYS  4096  is 
safe.  The  sure  way  is  to  PEEK  first  and  ensure  that 
there's  a  zero  there  (location  1 0  is  often  zero). 

TINYMON  1  must  be  considered  preliminary. 
It  was  designed  with  two  major  considerations:  to 
use  minimum  space,  and  to  automatically  load  into 
any  VIC  regardless  of  the  memory  fitted.  The 
space  consideration  is  fairly  obvious:  with  3500-odd 
bytes  available  on  a  small  VIC,  you  want  to  use  up 
as  little  as  posible.  The  automatic  load  feattu'e  was 
tricky  to  implement;  VIC  may  relocate  programs 
as  it  loads.  What's  more,  the  screen  area  tends  to 
mo\e  aroimd  as  you  add  memory. 

I  scratched  my  head  over  the  .S  (Save)  com- 
mand. If  VIC  automatically  relocates  programs 
during  loading,  will  a  SAVEd  Machine  Language 
program  be  safe?  As  it  turns  out,  VIC  has  a  new 
tape  format  availal)le  -  when  a  tape  is  written,  it 
may  be  defined  as  "absolute"  and  will  not  relocate 
when  it  loads.  This  seems  the  best  compromise,  but 
it  has  one  drawback  -  the  PET/CBM  won't  load 
this  type  of  tape.  Perhaps  that's  a  design  decision 
that  will  need  to  be  revised... 

Finding  Space  In  Zero  Page 

VIC  is  desperately  short  of  zero  page  space; 
machine  language  programmers  will  have  to  cope 
with  the  shortage  as  best  they  can.  I  have  used  the 
same  locations  that  the  big  Commodore  MLM  is 
expected  to  use.  There's  a  diffeience,  however,  the 
Commodore  job  will  swap  out  selected  parts  of 
zero  page  and  put  them  back  later;  I  didn't  want  to 
give  up  the  space  tor  that  kind  of  luxury.  As  a 
result,  vou  may  be  annoyed  by  some  locations  that 
are  disturbed  by  4  INYMON 1 . 

For  those  unfamiliar  with  the  PET/CBM 
Machine  Language  Monitor,  the  commands  are: 

.R-  display  6502  registers; 

Users  can  use  screen  editing  to  type  over 
a  display  and  change  the  registers; 

.M  FFFF  TTTT  -  display  memory  (from  ..  to); 


SOFTWARE   -   HARD\A/ARE 


COMMUNICATIONS  AND 
COMPUTER  TOOLS 


•  UMI  RS232  COMMUNICATOR  INTERFACE  $49.95 
Our  RS-232  CommLnicator  Interlace  enables  the 

ViC-20  to  talk  to  most  RS232  devices. 

•  ViCTERM  A  S19.95 

Witti  the  VICTERM  A  program,  begin  telephone 
communications 

•  UMI  3K  RAM  CARTRIDGE  $39.95 

The  easiest  way  to  have  6655  bytes  ot  program 
memory  in  your  VIC- 

•  UMI  3K  HAM  EXPANDER  S79.9S 

For  programmers,  ROM  developers  anO  advanced 
users,  our  3K  HAM  EXPANDER  adds  two  ROM  slots 
and  3K  o(  RAM  memory  to  the  Commodore  VIC-20  to 
give  a  total  of  6655  bytes  of  available  user  memory.  An 
0-position  dipswiich  provides  switch  -  selectable  tsase 
address  and  single-socket  enable/disable  to  two  ROM 
socitets. 

•  UMI  SK  RAM  CARTRIDGE  $89.95 
OurSK  RAM  CAHTRIDGE  addsBK  of  user  memory  to 
theVIC-Sa 

•  UMI  SOCKETED  8K  RAM/ROM  BOARD  $29.95 
Our  8K  board  has  lour  sockets  for  mixing  and 

matching  RAMS.  ROMS,  or  EPROMS 

•  BUTI    (BASIC  PROGRAMMER'S  UTILITY  ROM)  S34.9S 
A  beauty  ot  a  ROM  that  plugs  into  CVH-0002.  our  3K 

RAM  EXPANDER,  or  CVU-00D6,  our 
RAM/ROM/EPROM  Board 

•  UMI  VIC-20  REFERENCE  CARD  $4.95 

Our  8-1/2"  by  11"  laminated  reference  card  is  packed 
with  commonly  needed  Commodore  VIC2D 
information 


PROGRAMS  FOR  THE 
COMMODORE  PET® 


*  SATELLITES  AND  METERORITES  S49.95 

Satellites  and  Meterontes  is  a  greater  challenge  than 
most  space  pilots  have  met. 

*  SKYMATH  $12.95 

DBcimal  addition  and  subtraction  witti  super  PET 
graptiicsl 
-  MATH  SERIES  DISKETTE  I  $29.95 

Pedagogically  correct  programs  SKYMATH, 
SPACEDiV.  and  LONGDIV.  on  a  5-^/4'■  Diskette  for 
Commodore  Oisk  Drives. 

.  SPACEDIV  S12.95 

Division  practice  witti  graptiics  that  hold  ttie  child's 
interest. 

*  LONGDIV  514.95 

20  problems  of  step-by-step  long  division  with  super 
graphics  and  1-mch  high  digits. 

*  SUPERHANGMAN  $16,95 
Superior  graphic  version  of  the  popular  speMing  game, 


GAMES  AND 
ENTERTAINMENT 


•  SIMON 

Your  dexterity  and  memory  are  sorely  tested  by 
SIMON. 

•  SPIDERS  OF  MARS  (CARTRIDGEJ 

You  are  a  trapped  space  fly.  lire  at  the  horde  ot 
Ivlartian  Spiders  wending  their  way  to  satisfy  their 
Lrge  to  devour  you. 

•  BLASTOIOS 

Blast  the  cruising  junit  from  space  miner's  rocl<  piles 
to  smithereens  before  li  crashes  into  you. 

•  A-MAZ-IN 

Fast  action  coior  game  for  one  or  two  players. 

•  AMOK 

The  halls  of  AMOK  are  populated  by  robots  that  obey 
one  instruction  —  Get  the  intruder! 

•  ROBOT  BLASTERS 

Only  blasts  from  your  lasers  can  breach  the 
near-rmpregnabie  rows  of  walls  circling  your  only 
means  of  escape. 
.  ASTRO  TRANSPORTER    (CARTRIDGE) 

As  Captain  your  duty  ts  to  use  your  powerful  thrustors 
to  guide  space  Oarges  to  a  soft  landing  on  Earth. 

•  3D  INVADERS     (CARTRIDGE) 

A  new  view  —  from  the  wide-angle  viewport  of  your 
movable  laser.  Tiers  of  attackers  march  back  and  forth 
above  you.  flropping  tjorribs 

•  MASTERWITS 

Try  to  deduce  the  pattern  of  four  markers,  using  6 
colors,  IvlASTERWITS  hides  from  you! 

.  KIDDIE  CHECKERS 

Checkers  for  very  small  children 

•  WALL  STREET 

Tt^e  thrill  of  stock  rriarkel  play  comes  to  fife. 

•  ALIEN  8LITZ 

Spilt  second  reactions  at  the  superhuman  9th  level  of 
ALIEN  BLITZ,  will  find  how  good  you  really  are. 


$9.95 
$59.95 

$18.95 

$1S.95 
$18.95 

S39-95 

S59.95 
$59.95 

$9.95 

$7.95 
S16.95 
S24.95 


EDUCATION 


•  SUPER  ADDITION,  SUBTRACTION, 

DON'T  FALL  $14.95 

One  cassette  contains  all  three  educationaS  games. 

•  SKYMATH  $14.95 
With  BKcellent  graphics.  SKYMATH  snoots  5-digit, 

3-place  addition  and  subtraction  problems  into 
screen  s   sky"  in  1-inch  htgh  digits. 

.  SPACEDIV  $14.95 

Division  practice  with  graphics  that  hold  the  cfiild's 
interest 

GAME  PROGRAM  CARTRIDGES  NOW 
AVAILABLE— ORDER  NOW! 


•  DEALER  INQUIRIES  INVITED 

•  ATTENTION  SOFTWARE  DEVELOPERS 

Please  contact  UMI  (or  distribution  and  top  royalties.   Cartridge  kits  available  in  quantity. 

•  MASTERCARO/VISA  Accepted 

unit:ed  microwfare 
industries,  inc. 

.3431  H' POMONA  BLVD.  .POMONA,  CA  91768.    PHONE  (714)  594-1351  .  ' 

VIC  20  and  PET  are  Rsgisiered  Trademarks  of  Commodore  Business  fysachines  ^'     ^"' 


tf>   #       united  mil 

V     .^  inHiic^ 


«0^* 


icroware 

industries  inc. 
3431  H  Pomonn  Blvd 
Pomona,  CA  giTGfl 


,  ^  y^     Please  sena  me  my  FREE  CATALOG 

(j^     /  desc(-Oing  your  Har^wait* 

.  *  <iro  5of[«vaie   Products 
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Users  can  use  screen  editing  lo  lype  over  a 
display  and  change  memory; 

-X-exit  to  BASIC; 

h  may  be  wise  lo  type  CLR  in  BASIC  af  tei" 
exiting; 

.G  AAAA  -  GOTO  (execute)  address; 

.S  "PPPP",01,FFFF,TTTT-  Save 

(prograni-iiame,  device,  from,  to); 

,L  "PPPP"  -  Load  (program-name) 

There's  a  delicate  tradeoff  between  features  and 
memory  space.  Tliere  will  undoubtedly  be  other 
small  monitors  witli  a  different  balance.  In  any 
case,  I  wrote  one  because  I  had  nothing  ...  ancl 
others  in  the  same  position  will  undoubtedly  greet 
TINYMONl  with  glad  cries. 

Program  1:  TINYMONl 

Enter  on  a  PET/CBM,  using  the  Machine  Language 
Monitor.  Do  not  try  to  RUN,  but  follow  your  entry 
with  the  checksmn  program.  Program  2. 
iMrsl,  make  the  following  change: 

■      ^^Oi?S   ?ii   94    13  yif^    !■"■   8;-;    1";   ?u-; 
Now,  enter  TINYMONl: 


04 0y  yy   13  04  64  00  39  £2  93 

5403  11    11    12  id  Id  Id  23  54 

8416  49  4e   59  4d  4f  4e   23  39 

3413  31   04   be  33  99  22    11  2S 

3423  4a  49   4d  28  42  55  54  54 

3423  45  52   46  49  45  4o   44  22 

3433  03  4c   34  73  33  9e   23  c2 

3440  ,90   c;2   23  34  34  29   s.s.  38 

j/l'T.'^li";!  '.^1  ,'      IJy      29  33  i-Ji-J  hl'y     S 'B,  f='3, 

!cl4-_i3  ■=«.-_'     ui-iJi     C'-J  ^.i^  --f.-J  lit:'     O-J  ^O 
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06  bS 
SfcoQ 
0SqS 


eO  16 


tu  !.5^:  TT 
-i-T  60  23 


VI H 


;.i 


d2.  -ff 

u-:!y  db  fd 

GC:  fd  89 

fly  23  99 
68  4o 


i--* 


_..j  yu  yy  2l' 

a5  yi  2y  CO  fd 

f  S"  y  y  'i^  !-j  t'  f  f  €■ 

fd  @0  20  fe  fd  00  85  91 

'i€   yy  09  29  93  fe  98  85 

y6e3  1^20  S3  f e  99  d9  f b  f^9 

0of9  ea  29  bd  fd  99  aS  95  35 

OSfS  le  29  S3  fe  99  d9  fb  f8 

9799  do  29  cf  ff  cS  9d  f9  9? 

9798  29  bd  fd  90  85  91  S5  99 

8719  99  a6  96  9a.   a5  99  99  48 

9713  a5  9i  43  a5  92  43  b5   93 

9729  a.b  94  a4  95  49  78  a6  96 

9723  9a  6o  92  o9  4c  4b  fd  99 

87:39  a9  91  84  ba  34  b9  S;3  34 

9733  b7  34  99  84  33  33  82  85 


9749  fjc  33   4f 

8743  o9  28  f8  f3  c 


b 


••_!   tJt.l 


|-:'-l 


Lii.q 


fH 


8758  o9  22  d0  d9  29  of  ff  c9 

9753  22  -f-9  26  c3   9d  f9  9b  91 

9769  bb  eb  b7  c8  c9  18  fS  o5 
9763  d9  ea  a5  lo  c9  4c  dS  e2 

9770  33  80  90  29  d5  ff  28  53 
9773  fe  99  a5  98  29  19  d9  f8 
8789  4c:  59  fd  89  28  cf  ff  c9 
97:i"i!  9i:J  f9  t'2  c9  2o  d9  f9  29 
0799  0d  fe  89  29  8f  f0  d3  o9 
97Si8  03  f9  f.H.  £-5  ba  29  of-  ff 
97a9  c9  9d  fu  ca.  c9  2  c  d3  e6 
97.a3  29  bd  fd  £10  28  cf  ff  c9 
97b9  2c  d0  f4  29  fe  fd  89  85 
y7bo  3/?  36  af  20  cf  ff  c9  29 
87o0  f9  fy  o9  9d  d9  ec  a5  Ic 
97g8  o9  53  d9  f8  29  b2  fe  89 
87d9  33  91  35  b9  29  S2  f6  4o 
97d3  58  fd  99  9d  29  29  29  59 
97e9  43  29  29  53  52  29  41  43 
97e8  29  58  52  29  59  52  29  53 
37 f  9  50  4d  52  58  47  3a  3;j  4c 
87f3  53  36  fd  89  b7  fe  98  23 
9300  ff  00  82  ff  89  f4  fe  99 
0308  el  fe  99  2d  ff  99  2d  ff 
9319  08  lb  fd  09  98  99  99  99 

Whew!  riNVMOX  1  (o,-  the  VIC:  is  now  en- 
tered. Check  it  wiih  the  Ibllowiiig  program: 

Program  2:  A  Checking  Program 

Type  liie  following  clirct  l  line  on  ilic  screen  of 
yoin  PF/r/CBM: 

forj=I024to207lstep8:t  =  0:fork==jtoj  +  7:t  =  t  +  peek 
(k):next;?t;:next 


You  should  see  the  following  numbers  appear  on 
the  screen  of  your  PET.  (Micck  them  carefully. 
Kach  one  represents  one  line  of  entry,  starting  at 
0400  hexadecimal.  If  any  of  these  totals  is  wrong, 
you've  entered  the  line  incoiiectly. 

The  numbers  in  brackets  appearing  to  the 
right  won't  appear  on  your  .screen;  they  are  there 
to  liclp  vol!  locate  an  incorrect  line. 

When  you  are  satisfied  that  the  program  is 
entered  correctly,  SAVE  it  to  cassette  tape.  It  may 
now  be  loaded  into  your  VICl 

462  255  506  399  575  541  592  511        (0400) 

769  620  756  780  802  910  886  853 

801  784  876  840  835  1383  753  0 

1422  589  816  720  584  680  535  576 

944  972  1130  845  876  1357  1010  1188    (0500) 

1311  852  898  1109  1125  897  809  1021 

1340  1078  1005  1212  905  902  770   1239 

762  1133  1388  652  659  629  1072  803 

748  150  617  413  1020  1030  1057  818     (0600) 

944  844  705  831  939  1072  639  1033 

943  824  1137  970  929  1149  1395  940 

654  840  807  926  706  1146  1015  1146 

1175  742  563  645  695  860  1064  1042     (0700) 

1235  1202  1355  922  1445  1346  789  1068 

1104  1204  975   1306  1339   1169  1168  1210 

1340  1204  972  522  460  520  591  942 

1010  1079  280  (0800) 

C.DJiynj^hKP  I'M! 

JiiiiBunnfifhl  d 


80/40  COLUMN  ALIEN  INVADERS 
♦  2<?.  S'5 
Exactly  duphcates  the  fitotit  vttit    qiM.      Enjoy    hourt 
chillenging  fuii.     For  CnHodilrt  Coiputers    nit))    Rtleise    4 
BASIC,  either  40  or  80  Coluin  Screens 


<rf 


COMMODORE       VIC       SOFTWARE 
Ouility  Soltvire  iihich    incorporatts    eicitinq    Sound,     Color, 
Eraphics  ind  Anniiition.      Shoo  ofi  til  a<  thi  liny  fleets    ind 
capabilities  of  your  co«{)uttr. 


Lunar  Lander 

Mrap 

treat:  out 

Blackjack 

Ponq 

Slots 

Alien  Raiders 

Elotbi  Away 


tioie  Finwcf 
Nath  Drill 
Hangian 
Tthtii 
Dthtllo 
Target  Itam 
Shootinq  Sillery 
Capture 


All  of  the  above  art  (triced  at  tf.fS  or  seltct    any    three    (or 

127.50.     Please  Ui  ilM  and  specify  the  DOS    release    if     you 

t(!5h  dtsit  based  softnare,  ,,     .    „    ^ 

5    J  r^rr  i    l         .  MastefCarij 

bend  SflSt  to  be  included  on  our  (ailing  Int.         and  VISA 

Add  ,50  shipping  and  handling.      Thank  You.  Accepted 


r-1  I  CFiO 

2905  forti  O'Call  Ct, 
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VIC  Color  Tips 


Charles  Brannon 
Editorial  Assistant 


Users  of  other  computers,  such  as  the  ATARI  or 
Apple,  will  find  the  VIC  harder  to  use  for  color 
graphics  because  there  are  no  dedicated  statements 
for  controlling  these  featines.  First  lime  users  will 
not  know  the  difference,  but  this  article  should 
make  things  easier.  Before  we  begin,  it  should  be 
noted  that  there  will  soon  be  available  a  V'lC^  Super 
Expander  Cartridge  that  will  add  special  sound 
and  graphics  commands  to  BASIC,  as  well  as  adding 
3K  of  mcniorv. 

"Poking"  Graphics 

The  only  command  that  can  be  used  for  graphics 
besides  PRINT  is  POKE.  POKE  places  a  number 
into  a  memory  location.  Its  formal  is  POKE  A,B. 
A  is  the  memory  location,  and  B  is  the  value  to  be 
placed  there,  zero  to  255.  Some  spots  in  memory 
can  control  Input/Output  chips,  such  as  the  Video 
Interface  Chip  inside  of  the  VIC.  Location  36879 
is  the  control  register  for  liackgroimd  and  border 
colors.  To  get  each  combination,  you  place  a 
number  from  zero  to  235  into  36879,  as  previously 
mentioned.  For  any  particular  combiiration,  yoti 
can  look  up  the  colors  in  the  table  at  the  end  of  this 
article  (Table  2).  There  is  an  easier  way,  however, 
at  least  from  a  programming  standpoint. 

An  Easier  Way 

The  DEF  FN  command  allows  the  programmer  to 
design  his  own  function.  The  VIC  has,  for  example, 
the  standard  INT  function.  INT{X)  will  give  you 
the  whole-number  value  of  the  arginncnt  X  by 
dropping  the  fractional  portion.  It  does  not  roimd 
X.  To  provide  a  i~ounding-up  function,  wc  can  use 
the  DEF  FN  conunand.  To  round  dollar  and  cents 
amounts,  the  statement  DEF  FNR(V)=  IN  F 
(V*  100 +  .5)/ 100  is  executed  at  the  start  of  the 
program.  After  that,  FNR(X)  will  give  you  the 
rounded  version  of  X,  or  any  value  in  parentheses. 
PRINT  FNR(3.14L5927)  will  retmii  3.14,  while 
PRINT  FNR(50().076)  will  give  500. 0«  The  R  after 
the  FN  is  a  label  to  remind  you  what  the  fiuiction 
does.  Here  R  stands  for  Round.  These  Vdbch  have 
the  same  format  as  numerical  variable  names. 
What  we  want  to  do  is  to  devise  a  formula 
which  will  give  us  the  light  number  from  the  table 
for  each  color,  one  U)  sixteen.  We  will  give  the 
background  color  from  one  to  sixteen  through  the 
FN  routine,  and  it  will  give  us  the  number  rearlv 


for  POKEing.  To  get  any  background  color  from 
any  of  the  sixteen  possible  colors,  just  multiply  the 
color  number  by  16  and  then  subtract  eight.  We 
can  code  this  as  DEF  FNC;{V)  =  V*  16-8.  Remember, 
V  is  just  a  dummy  variable  used  to  define  the  rela- 
tionship of  the  argument  (what  we  give  the  routine) 
in  the  formula.  Next  we  use  a  little  shorthand.  The 
number  36879  (the  color  control)  is  a  little  hard  to 
remember,  and  it  does  not  look  nnich  different 
than  an)  other  memory  location.  We  will  make  it 
easier  to  remember  (make  it  mitemoitic)  by  making 
it  a  variable,  SCREEN  =  36879.  Now  we  can  calf 
forth  any  of  our  sixteen  colors  with  the  statement; 
POKE  SCREEN,  FNC  (color),  where  color  is  the 
number  from  one  to  sixteen.  This  almost  looks  like 
a  real  graphics  command. 

Adding  Border  Colors 

What  about  the  border  colors?  In  adtlitioii  to  the 
background,  you  can  have  eight  border  colors, 
numbered  from  zero  to  seven.  'Fhis  is  one  less  than 
the  corresponding  number  on  the  color  keys 
(CTRI.-6  would  be  5),  Now  just  take  this  number 
and  add  it  to  the  number  that  you  POKE  inl(j 
SCREEN.  Now  we  just  use:  POKE  SCREEN, 
FNC{color)  +  border,  where  bordi'r  is  the  border 
color,  zero  to  seven.  If  you  don't  use  border  colors, 
or  don't  add  anything  to  FN(-(color),  then  the 
border  will  be  black. 

Remember  that  if  the  background  is  the  same 
color  as  the  text,  the  cursor  will  become  invisible.  If 
vou  need  to.  set  things  straight  with  POKE  36879,27 
or  hold  down  RUN/STOP  ;md  press  RES  I  ORE 
to  reset. 

Fhe  little  program  at  the  end  of  this  article 
demonstrates  what  I've  been  talking  about  by 
displaying  all  the  combinations  of  screen  and  border 
colors.  It's  simple  to  figure  out  so  look  it  over,  and 
get  to  work  on  your  VlCllorious  applit  ations! 


Table  1.  Screen/Border  Colors 
Screen 


1 

Black 

2 

White 

3 

Red 

4 
5 
6 

Cyan 

Purple 

Green 

7 

Blue 

8 

Yellow 

9 

10 

11 

Orange 
Light  Orange 
Pink 

12 
13 
14 
15 
16 

Light  Cyan 
Light  Purple 
Light  Green 
Light  Blue 
Light  Yellow 

Border 

0   Black 
White 
Red 
Cyan 
Purple 
Green 
Blue 
Yellow 
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100  REM  *  ANOTHER  RAINBOW  * 

110  DEF  FNC(V)=V*16-8 

120  SCREEN=36879 

130  FOR  BK=1  TO  16 

140  PRINT  " {CLEAR} {WHT} "; 

150  IF  BK>1  THEN  PRINT  "{BLK}" 

160    PRINT  "SCREEN"; BK 

170    FOR  BD=0  TO  7 

180    POKE  SCREEN, FNC(BK)+BD 

190    PRINT, "BORDER";BD 

200    FOR  W=l  TO  500:NEXT  W 

210   NEXT  BD 

220  NEXT  BK 

230  POKE  SCREEN, 27 

240    END 


Table  2.  POKE  Values 

BACKGROUND  # 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 


0 


BORDER 
3    4    5 


8 

24 

40 

56 

72 

88 

104 

120 

136 

152 

168 

184 

200 

216 

232 

248 


9 

25 

41 

57 

73 

89 

105 

121 

137 

153 

169 

185 

201 

217 

233 

249 


10 
26 
42 
58 

74 
90 
106 
122 
138 
154 
170 
186 
202 
218 
234 
250 


11 
27 
43 
59 

75 
91 
107 
123 
139 
155 
171 
187 
203 
219 
235 
251 


12 

28 

44 

60 

76 

92 

108 

124 

140 

156 

172 

188 

204 

220 

236 

252 


13 

29 

45 

61 

77 

93 

109 

125 

141 

157 

173 

189 

205 

221 

237 

253 


14 

30 

46 

62 

78 

94 

110 

126 

142 

158 

174 

190 

206 

222 

238 

254 


15 

31 

47 

63 

79 

95 

111 

127 

143 

159 

175 

191 

207 

223 

239 

255 


VIC  Memory  Map  Above 

Page  Zero 


Jim  Butterfield 
Toronto,  Conoda 


Editor's  Note:  Next  month  we'll  have  a  VIC  zero  page  map  and  Jim's  comments  on  the  VIC's  memory.  —  RTM 


0100- 

-103E 

256- 

-318 

0100- 

-01FF 

256- 

-511 

0200- 

-0258 

512- 

-600 

0259- 

-0262 

601- 

-610 

0263- 

■  026C 

611- 

-620 

026D- 

-0276 

621- 

-630 

0277- 

-0280 

631- 

-640 

0285 

645 

0286 

646 

0287 

647 

0288 

648 

0289 

649 

028A 

650 

028B 

651 

028C 

652 

028D 

65^ 

028E 

654 

028F- 

0290 

655- 

656 

0291 

657 

0292 

658 

0293 

659 

0294 

660 

Tape  error  log 

Processor  stack  area 

Basic  input  buffer 

Logical  file  table 

Device  #  table 

Sec  Adds  table 

Keybd  buffer 

Serial  bus  timeout  flag 

Current  color  code 

Color  under  cursor 

Screen  memory  page 

Max  size  of  keybd  buffer 

Repeat  all  keys 

Repeat  speed  counter 

Repeat  delay  counter 

Keyboard  Shift/Control  flag 

Last  shift  pattern 

Keyboard  table  settup  pointer 

Keymode  (Kattacanna) 

Ozscroll  enable 

VIC  chip  control 

VIC  chip  command 
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0295-0296        661-662  Bit    timing 

0297  663  RS-232    status 

0298  664  #   bits    to   send 
0299-029A        665  RS-232    speed/code 
029B                   667  RS232    receive   pointer 
029C                    668  RS232    input    pointer 
029D                   669  RS232    transmit    pointer 
029E                    670  RS232    output    pointer 
029F-02AO        671-672  IRQ   save    during    tape    I/O 
0300-0301        768-769  Error    message   link 
0302-0303        770-771  Basic   warm    start   link 
0304-0305        772-773  Crunch   Basic    tokens   link 
O306-O307        774-775  Print    tokens   link 
O3O8-O309        776-777  Start    new  Basic   code   link 
O3OA-O3OB        778-779  Get    arithmetic   element   link 
0314-0315        788-789  Hardware    interrupt;    vector    (EABF) 
O3I6-O317        790-791  Break   interrupt    vector  (FED2) 
0318-0319        792-793  NMI   interrupt    vector               (FEAD) 
O3IA-O3IB        794-795  OPEN    vector                                      (F40A) 
O3IC-03ID        796-797  CLOSE   vector                                (F34A) 
O3IE-O3IF        798-799  Set-input   vector                        (F2C7) 
0320-0321         800-801  Set-output   vector                      (F309) 
0322-0323        802-803  Restore   I/O  vector                    (F3F3) 
0324-0325        804-805  INPUT   vector                                  (F20E) 
0326-0327        806-807  Output   vector                              (F27A) 
0328-0329        808-809  Test-STOP   vector                        (F770) 
032A-032B        810-811  GET   vector                                        (F1F5) 
032C-032D        812-813  Abort    I/O  vector                         (F3EF) 
032E-032F        814-815  USR   vector                                        (FED2) 
0330-0331         816-817  LOAD    link 

0332-0333        818-819  SAVE   link 

033C-03FB        828-1019  Cassette  buffer 

0400-OFFF      1024-4095  3K   RAM   expansion   area 

1000-1FFF      4096-8191  Normal    Basic   memory 

2000-7FFF     8192-32767  Memory   expansion   area 

8OOO-8FFF   32768-36863  Character   bit   maps 

9OOO-9OOF   36864-36879  Video   Interface    Chip 

9110-912F   37136-37167  6522   Interface   Chips 

940O-95FF   37888-38399  Alternate   Colour   Nybble    area 

9600-97FF   38400-3^91  1  Main   Colour   Nybble   area 

AOOO-BFFF   40960-49151  Plug-in    ROM   area 

COOO-FFFF   49152-65535  ROM:    Basic   and    Operating   System 


Dealers  -  Reserve  your  copies  of 

COMPUTEI's  first  Atari  and  PET/CBM  books 

today,  Call  919-275-9809  for  ordering  information, 
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VIC  usage:  The  6560  V.  I.  Chip 


VIC  Usage;  The  6522-B 


S9000 

Inter- 
lace (0) 

Left  Margin 

1  =  5) 

(9001 

Top  Margin    (  =  25)                                                          | 

19002 

Sc.Adds 
b9 

#  Columni 

1  =  22) 

S9003 

bO 

#Rowi     (  = 

23) 

Double 
Char 

S9004 

Raiter  Value  In:   6S-bt 

19005 

Screen  Addreis 
b13-bl0 

Character  Address 
b13-b10 

S9006 

Ught 

Pen 
on) 

Horizontal 
Vertical 

S900T 

(optl 

S900B 

Potentiometer 
Sense  [option) 

V 

J9O09 

i900A 

A          Voice  1 

$900B 

A          Voice  2 

S900C 

^          Voice  3 

t900D 

A          Nolle 

t900E 

Multl-Colour  Mode 
(  =  01 

Sound  Amplitude 

J900F 

Screen  Background 

Fore/Back 
-Ground 

Frame 
Color 

36SM 
36865 


36866 
36867 


36868 
36869 


36872 
36872 

36874 
36874 
36875 
36876 
36877 
36878 


Values,  where  shown,  are  the  normal  default  VIC  values. 

Light  Pen  and  Potentiometer  are  Implemented  In  hardware  but  not  used 
In  ROM  programs. 


RS232in   • 

1 

Tape; 

S9120 

Joy  3: 

■  out  • 

Keyboard  Row  Select 

S9121 

Keyboard  Rotw  Input 

S9122 

DDRB(for  S9120I 

S9123 

DORA  (for  $9121) 

$9124 
S912S 
S9126 
S9127 

Tl  -L                  Cassette  tape  read; 
T1-H                        Keyboard  (interrupt) 
Tl  Latch                                  timirtg 
Tl  Latch 

S9128 
S9129 

T2-L            Serial  Bus  timeout; 
T2-H              Cassette  R/W  tlmittg 

J912A 

Shift  Register  (unused) 

S912B 

71  Control  T2C 

SR  Control  |PBLE 

PALE 

J912C 

Serial  bus  out 

Cloclt  line  out 

CA1 
ContI 

S912D 
S912E 

IRQ:    Tl 

T2 

CA1: 
Tape 

J912F 

unused  —  see  $9121                                         j 

37152 

37153 
37154 
37155 
37t56 

37157 

37158 

37159 
37160 
37161 
37162 
37163 
37164 

37165 

37166 
37167 


VIC  Usage:  The  6522-A 


$9110 

RS-232  or  Parallel  User  Port 

S9111 

unused  —  see  t9T1F 

J9112 

DDRB|forl9l10) 

S9113 

DDRA  (for  191 1  F) 

$91 14 
J9115 
S9116 
19117 

TIL                RS-Z32  Send  speed; 
Tl-H                  Tape  write  timing 
Tl  Latch 
Tl  Latch 

- 

19118 
19119 

T2-L                 RS-232 

T2-H                        Input  timing 

— 

191  lA 

Shift  Register  |  not  used)                                                               ] 

S9TIB 

Tl  Control       |    T2C              SR  Control 

PBLE 

PALE 

19I1C 

RS-232  Send                     Cbl 
cont 

Tape  motor 

CAI 
cont 

19110 
191  J  E 

NMI: 

Tl 

T2 

CBl: 

RS-Z32 

IN 

CA1: 
RSTR 
butn 

191  IF 

ATN 
out 

Tape 
sens 

JOUW»l.-b   .    . 

In; 
Serl 

In: 
Clok 

Bi 

itn       0 

1       2 

37136 
37137 
37138 
37139 
37T40 
37141 
37142 

37143 
37144 

37145 
37146 
37147 

3714S 


37149 
37150 


Dub  Scroggin 

Ft,  Walton  Beach,  FL 


"Zap!!"  is  an  exciting  and  challenging  VIC-20 
game  program  tliai  is  designed  for  up  to  .six  players 
and  Dp  to  five  roiind.s  per  player.  Kach  player  may 
select  from  any  of  five  skill  levels  and  may  change 
levels  each  round,  if  desired.  Using  keyboard 
contiols,  players  maneuver  a  block  aiound  the 
screen  and  ihrougli  a  field  of  randomly  placed  and 
color  coded  graphic  riguies.  The  object  is  to  run 
o\er  and  erase  as  many  of  these  figures  as  possible 
in  two  minutes,  but  also  to  avoid  running  into 
asterisks  and  being  zapped.  After  the  player  block 
is  moved  it  cannot  be  sloppe<I,  but  the  direction  of 
movement  may  be  changed.  The  higher  the  skill 
level,  the  faster  the  block  moves  and  the  more 
asterisks  there  are.  Flic  number  of  scoring  figures 
is  increased  also  .so  that  a  higher  score  is  possilile  too. 

The  figures  on  the  screen  count  differentiv 
unvard  the  score.  If  a  player  is  "zapped,"  he  retains 
his  score,  but  his  lime  is  over.  Players  may  run  off 
the  screen,  l)ui  may  strike  a  hidden  asterisk  if  they 
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do  so.  A  vertical  wraparound  feature  prevents 
players  from  wandering  too  far  off  the  screen.  A 
variety  of  colors,  grapliics,  and  sound  effects  add 
excitement  to  ihc  program. 

As  with  most  computer  games,  proficiency 
at  Zap!  will  take  some  practice  and  a  lot  of 
concentration. 

The  player  block  is  moved  around  the  screen 
by  the  computer  PKKKiiig  at  the  keyboard  to  de- 
termine the  value  of  the  last  control  key  pressed.  A 
direction  factor  is  then  assigned  to  the  variable  DR 
(steps  590-620).  When  moving  left,  DR  is  -1,  right 
is  1,  up  is  -22  and  down  is  22.  This  factor  is  then 
added  to  the  position  of  the  block  (B)  (step  650). 
The  old  block  is  then  era.sed  by  POKEing  it  to  32 
(blank)  and  a  new  one  is  placed  in  position  (step 
570).  This  all  happens  so  quickly  that  the  illusion 
of  motion  is  created. 

Scoring  and  zaps  are  determined  by  PEEKs  at 
the  block's  position  to  see  if  any  other  figure  is 
there  (steps  670-720}.  Depending  on  the  figure 
found  at  "PEEK  (B)",  a  score  is  assigned  and  the 
loop  continues,  or  if  the  figure  is  an  asterisk,  a 
"Zap!!"  routine  is  initiated  and  the  round  ends. 

In  each  pa.ss  through  the  loop  (steps  550-780), 
several  things  happen  or  are  checked  for.  The 
elapsed  time  is  printed  and  there  is  a  check  to  see  if 
the  time  is  up.  If  so,  the  loop  is  terminated  and  the 
roLuid  ends.  A  block  is  FOKEd  into  position  B. 
Steps  580  and  585  provide  the  vertical  wraparoiuid 
effect.  A  check  is  made  for  direction  change  input 
from  the  keyboard.  A  tone  is  sounded  based  on  the 
cmrent  direction  of  movement.  The  old  position 
of  the  block  is  erased  and  a  new  position  is  calcu- 
lated. A  check  is  made  to  see  if  any  figures  have 
been  struck.  If  so,  they  are  either  scored  or,  in  the 
case  of  an  a.sterisk,  the  loop  is  terminated.  After  a 
new  total  score  is  calculated  and  displayed,  the 
loop  begins  again. 

Steps  640  and  760  are  lime  delay  steps  to  slow 
the  block's  motion  and  to  increase  speed  as  the  skill 
level  increases.  If  a  faster  or  slower  movement  is 
desired,  these  steps  may  he  altered. 

A  number  ol  RKMarks  have  been  included  in 
the  program  listing  as  an  aid  to  understanding  it, 
but  I  recommend  that  they  not  be  typed  in  on  your 
computer.  This  program  uses  all  but  about  250 
bytes  of  standard  VI('-20  memory  and  including 
ail  the  remarks  mav  lesult  in  an  "out  of  memory" 


error, 


Good  luck  and  I  hope  you  enjoy  the  game. 


40  C=30720:TB=0:TS=0 

50  POKE36879,239 

60  CP=0:GOTO810 

70  PRINTTAB(3) "{06  DOWN}BY  DUB  SCROGGIN" 

80  REM-404  WOODROW  ST., FT.  WALTON  BEACH, 

FL  32548 
90  CP=1 
100  FORT=1TO2000:NEXTT 

PRINT" {CLEAR}" 

PRINTTAB(5) "{DOWNlDIRECTIONS" 

PRINTTAB(5) "7777777777" 

PRINT" {DOWN} YOU  WILL  HAVE  2  MIN.":PRI 

NT"TO  GET  YOUR  BEST  SCORE" 

PRINT" {YEL}MOVEMENT: " : PRINT" {DOWN }CRS 

R  DN=LEFT":PRINT"CRSR  RT=RIGHT": 

PRINT"F5=UP" 

PRINT"  F7=D0WN":PRI1^T"{  HOME}  {04  DOWN}" 


110 
120 
130 
140 

150 


160 


10  PRINT" {CLEAR}" 
20  DIM  PL(6) ,R(5) 
3  0  FORY=1TO5:FORX=1TO6:Z(X,Y)=0:NEXTX:NE 

XTY 


170 
180 
190 
200 
210 
220 
230 

240 


250 

260 

270 

280 

290 

300 

310 
320 

330 
340 
350 
3  60 
370 


380 

390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 


PRINTTAB{14) "{03  DOWN} {WHT}SCORING : " 

PRINTTAB(14) "{BLK}W=1" 

PRINTTAB(14) "{CYN}Q=2" 

PRINTTAB(14)  "{YEL}Z^=3" 

PRINTTAB(14) "{RED}S=5" 

PRINTTAB(14) " {WHT}A=10" 

PRINT" {DOWN}YOU  ARE:  {BLU}{REV}  {OFF} 

It 

PRINT" {DOWN}DON'T  HIT  A  {PUR}*{BLU}  0 

R":PRINT"yOU  WILL  GET  {PUR}ZAPPE 

D." 

PRINT" {WHT}{D0WN}PRESS  ANY  KEY  TO  STA 

RT" 

GETA$ :IFA$=""THEN26  0 

PRINT" {clear} {WHT}HOW  MANY  ROUNDS  (1- 

5)" 

INPUTRN:IFRN<10RRN>5THENPRINT"HUH?":G 

OTO270 

PRINT" {DOWN}HOW  MANY  PLAYERS" : PRINT" ( 

1-6)"; 

INPUTPN: IFPN<10RPN>6THENPRINT"HUH?":G 

OTO290 

F0RR=1T0RN 

F0RP=1T0PN:PRINT"{BLU} {D0WN}PLAYER  #" 

;P 

PRINT" {DOWN}WHAT  SKILL  LEVEL?" 

PRINT"PRESS  0,1,2,3  OR  4 "  ; 

INPUT  S 

IFS>4  ORS<0THENPRINT"HUH?":GOTO34  0 

PRINT" {CLEAR} {BLU} {REV}SCORE  TO  BEAT: 

";TB: PRINT" {REV} SKILL  LEVEL: ";SL 


PRINT" {REV}P 
FORT=1TO2000 
DEF  FN  A(L)= 
FORF=lTO40-2 
POKED, 87:POK 
F0RF=1T025:D 
POKED, 81:P0K 
FORF=lTO10+4 
POKED, 42:P0K 
FORF=1T019;D 
POKED, 90:POK 
F0RF=1T014 :D 
POKED, 83:POK 
F0RF=1T09H-S: 


LAYER  #";PB 

:NEXTT:  PRINT"  {CLEAR}  "' 

INT(RND(1)*  L  )+7702 

*S :D=FNA(483) 

ED+C,0 :NEXTF 

=FNA(483) 

ED-l-C,3:NEXTF 

*S:D=FNA(505) 

ED+C,4 :NEXTF 

=FNA(483) 

ED+C,7 :NEXTF 

=FNA{483) 

ED+C,2:NEXTF 

D=FNA(505) 


PET  BITES  VIC! 

VIC/PET  programmers:  How  would  you  like  to  be  able  to  connect  all  of  your  PET  peripherals,  through  your  PET.  toyour  VIC?  Print 
VIC  programs,  save  or  load  on  disk,  or  use  a  VIC  joystick  on  the  PET.  Basic  programs  can  call  HESCOM  subroutines  to  transfer  any 
amount  of  memory  in  either  direction  between  two  VICs,  two  PETs.  or  a  PET  and  a  VIC. 
For  example,  a3.5K  Basic  program  can  be  transferred  in  half  a  second!  Or,  you  could  use  an  existing  PET  disassembler  to  look  at 
the  VIC  ROMs  by  simply  changing  the  input  routine  to  gel  single  bytes  via  HESCOM.  Similarly,  three-voice  VIC  sound  can  be  used 
by  PET  programs.  Full  handshaking  ensures  reliability  in  block  transfers;  another  mode  allows  real-time  sampling  o(  the  user  port 
tor  applications  like  two-machine  games!  Includes  5'  cable,  machine  language  software  for  PET  and  VIC,  demo  program,  and 
documentation.  {VIC  or  8K  PET)   $49.95 


Now  also  for  the  8K  VIC 

HESEDIT:  change  22  lines  of  data  by  merely  over- 
typing and  insert,  delete,  and  even  duplicate  lines- 
all  at  once!  Scroll  forwards  or  backwards  by  any 
amount —  it's  also  easy  to  edit  files  bigger  than  your 
memory.  Why  code  a  program  to  maintain  each  file? 
Use  HESEDIT  for  mailing  lists,  notes  or  prepare 
assembler  source  for  HESBAL.  All  keys  repeat.  FAST  - 
written  in  BASIC  and  assembler.  $12.95 

6502  ASSEMBLER  PACKAGE:  HESBAL,  a  full-featured 
assembler  with  over  1200  bytes  free  {8K)  &  HESEDIT; 
for  less  than  $25!  HESBAL  is  THE  best  8K  assembler 
available:  it  uses  only  1  tape  or  disk,  yet  includes 
variable  symbol  sizes,  pseitdo-opcodes,  over  25  error 
messages  and  more  than  70  pages  of  documentation. 

$23.95 

Humon  Engineered  Softuuare 
3748  ingleuuood  Blvd.  Rooin  11 
Los  Angeles,  Colifornio  90066 


520 

530 

540 

550 

560 

570 

580 

585 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

NEW  RELEASES 

HESCOUNT  by  Jerry  Bailey,  A  totally  new  concept  in 
debugging!  Machine  language  monitoraidsdebuggingof  any 
Basic  program  by  counting  the  number  of  times  each  line  is 
executed.  Pinpoints  bottlenecks  to  help  you  improve  run 
times  up  to  50%.  Shows  code  that  was  never  executed,  and 
lets  you  verify  that  loops  and  conditional  statements  are 
working  as  expected.  (VIC  or  8K  PET)  S23.95 


HESLISTER  2.0  by  Cy  Shuster.  Now  35%  faster,  reveals 
program  structure  by  untangling  complicated  Basic  lines  and 
indenting  IF,  FOR, .NEXT  statements,  etc.  Inputs  from  disk; 
outputs  to  screen  or  printer.(8K  PET)  $15.95  (includes  disk) 

GUARANTEED  to  load  or  replaced  FREE.  Order  from  your 
dealer  or  direct  from  us.  Add  $2  postage,  Cal.  res.  -  6%  sales 
tax.  Disk  versions  -  add  S3  (disk  included). 

24  HOUR  ORDER  LINE  (M/C  OR  VISA) 
(213)  398-7259 


120-INT(TI/60) ;"{L 


POKED,6  5:POKED+C,l:NEXTF 

B=7932 

TI$="000000" 

PRINT" {HOMElTIMEi 

EFT}   " 

IFTI/60>=120THENGOTO930 

POKEB,160:POKEB+C,6 

IFB<7636THENB=8  229+B-76  3  5 

IFB>8229THENB=76  36+B-8230 

IFPEEK(19  7)=31THENH=190:DR=-1:GOTO6  30 

IFPEEK(197)=23THENH=200:DR=1:GOTO6  30 
IFPEEK (197)=55THENH=210:DR=-22jGOTO63 
0 

IFPEEK(19  7)=63THENH=220:DR=22 

POKE36878,15:POKE368  76,H 

FORT=1TO30-5*S:NEXTT 

POKEB,32:B=B+DR 

SC=0 

IFPEEK (B) =42THENGOTO790 

IFPEEK (B) =87THENSC=1 :GOTO740 

IFPEEK (B) =81THENSC=2:GOTO740 

IFPEEK (B) =90THENSC=3 :GOTO74  0 

IFPEEK (B) =B3THENSC=5:GOTO740 

IFPEEK (B) =65THENSC=10 :GOTO74  0 

GOTO760 

TS=TS+SC 

POKE36878,15:POKE36876,160+PEEK(B) 

FORT=1TO30-5*S:NEXTT 

PRINT"{HOME} {DOWN}SCORE=";TS 

GOTO550 

P0KE36878,15 

FORPI=1TO40:POKE368  76,180-PI:NEXTPI 


810 

820 
830 
840 
850 
860 
870 

880 
890 
900 
910 

920 
930 

940 
950 
960 

970 

980 
990 
1000 

1010 
1020 
1030 
1040 
1050 
1060 


&&{BLU 


PRINT"{PUR} iRIGHT} {06  DOWNJ&&&&  &&&& 

&&&S  &&  &&" 

PRINT" {RIGHT}&&&&  &&&& 

PRINT"  {RIGHT}    S, 

PRINT" {RIGHT}   & 

PRINT" {RIGHT}  & 

PRINT" {RIGHT} &&&& 

PRINT" {RIGHT}&&&& 

}" 

IFCP=0THEN70 

POKE368  78,0:POKE368  76,0 

FORT=1TO2000:NEXTT: PRINT" {CLEAR}" 

PRINT" {WHT} {DOWN} {REV}Y0U  LASTED"; INT 

(TI/60)-3; " {LEFT}  SECONDS{OFF} " 

GOTO970 

POKE36878,15:FORAC=1TO80:POKE36876,21 

0-AC:NEXTAC 

POKE368  76,0:POKE36878,0 

PRINT" {CLEAR} " 

PRINT" {HOME} {04  DOWN}  {BLU}{REV} T 

IME  IS  UP. ..." 

PRINTTAB(6) "{DOWN} {REV} {WHT} SCORE=";  T 
S 

Z(P,R)=Z(P,R-1)+TS 

IFTS>TBTHENTB=TS:SL=S:PB=P 

PRINT" {DOWN} {BLK} ROUND  # : " ; R; " { DOWN} ' 


F0RX=1T0PN 

PRINT" {YEL} PLAYER  r'jX;":"; 

NEXTX 

TS=0:DR=0:H=0: PRINT" {DOWN}" 

NEXTPiNEXTR 

END 


Z(X,R) 
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1.  COMPUTE!  #12,  pg.  94.  The  authors  suggest 
that  the  following  lines  should  be  changed  to: 

255  UG  =  GU:PR1NT 

257  IFGU  =  0  THEN  270 

290  WD  =  WI:  WF=WI:  WT  =  (12-Wl)/2 

370  IFWP4THEN300 

530  IFWT<0ORWT  =  0THEN  WT=:1:RN  =  0 

610  IFPEEK(KY>  =  251  THEN  ME  =  ME.l:  KK=  -1 

1060   IF  WD<3  THEN  PRINT  "LITTLE";:  GOTO  1200 

1120  PRINT  "CHEATER"; 

1200  PRINT  "FOO"; 


2.  COMPUTE!  #17,  pg.  112.  The  following  changes 
to  the  "Atari  Program  Library"  will  lock  all  cata- 
loged programs.  Then,  after  adding  new  programs 
to  a  disk,  only  the  unlocked  (new)  programs  need 
to  be  cataloged: 

420  IFB<3THEN?"DISKIS#";VOL$: 

XI035,#3,0,0,"D:*.*":?:?"INSERT  LIBRARY 

DISK" 
370  IF  IN$(1,1)  =  "*"  OR  DSN$  =  "DOS.SYS"  OR 

DSN$  =  "DUP.SYS"  OR  DSN$  =  "MEM.SAV"  OR 

DSN$  =  "DISK.CAT"  THEN  3 10 


3.  COMPUTE!  #17,  pg.  143.  Mr.  Swaim  has  sug- 
gested the  follow  ing  lines  as  an  alternative  way  to 
load  the  X$  array  for  business  keyboard  user  s  and 
to  correct  an  eiror  in  transcription: 

110  X$(1)  =  CHR$(164):X$(2)  =  CHR$(175):X${3)  = 

CHR${185):  X$(4)  =  CHRS(  162) 
112  X$(5)  =  CHR$(I8)+CHR$(184)  +  CHR${146): 

X$(6)  =  CHR$(18)  +  CHR$(183)  +  CHR$(I46) 
115  X$(7)  =  CHR$(18)-hCHR$(163)  +  CHR$<146): 

X$(8)  =  CHR$(18)  +  CHR$(32)  +  CHR$(  146) 


4,  COMPUTE!  #17, 

7168  in  line  120. 


pg- 


1 52.  The  correct  SYS  is 


5.  COMPUTE!  #17,  pg.  162.  Table  I  i.s  missing 

number  9,  Subtraction: 

Load  FPACl  with  subtrahend 
LDA  AL  source  address 

LDY  AH  for  minuend 

JSR  $C58F 

(Addressed  value  is  loaded  into  FPAC2,  FPACl  is  sub- 
tracted from  FPAC2  and  result  in  FPACl;  FPAC2 
unchanged.) 

Number  6  should  include  JSR  $C0D1 . 


COMPUTERS  Listing  Conventions 

Many  ])rograms  which  arc  listed  in  COMPUTEI  use 
cuisur  loiitrol  keys,  color  keys,  and  so  forth.  We  have 
cstabli-shcd  a  lislinj^ronvdilion  wliidi  we  believe 
eases  the  task  of  typing  [)r<)grams  in  accurately. 

Atari  Conventions 

For  the  Atari,  all  the  ediiiiig  and  cursor-control 
characters  are  s[>e]le(l  oiil  ami  sinionndctl  by 
brat  kels:  [CLKAR]  foi    'tleai'  sc  reen."  Oilier  t  harac- 
ters,  such  as  C  TRL-  f  (llie  "ball"  tliaracler)  will  he 
listed  as  the  "normal"  character,  but  within  brackets: 
[T].  A  series  of  identical  control  characters  will  be 
indie  ated  l)y  a  number  within  the  brackels;  [3  DOWN] 
means  lyfJC  (he  cursor-down  key  three  times;  1 12  RJ 
means  lype  C  TRL-R  twelve  times. 

Twocoiiliol  characters,  f  =  ]  and  [-]  should  be 
shifted.  Any  reverse  field  text  will  be  enclosed  within 
vertical  lines.  (Press  the  Atari  logo  key  [  JH.  ]  for  each 
vertical  line  you  see.) 

PET/CBM/VIC  Conventions 

(leiierally,  PF.  I/CillM/VlC:  programs  will  coiUalii 
bracketed  words  lor  any  special  characters;  [llOWN] 
means  the  cursor-down  key;  [3  DOWN]  means  type 
the  cursor-down  key  three  times. 

If  a  program  line  runs  over  onto  the  next  line 
down,  the  -svinbol  indicales  where  the  line  brcske 
(in  case  the  number  of  spaces  is  unclear  between 
quotes).  An  underline  means  that  that  key  is  shifted, 

8032/Fat  40  Conventions 


VIC  Conventions 


SET  WINDOW  TOP 

[SET  TOPI 

SET  WINDOW  BOTTOM 

[SET  BOT) 

SCROLL  UP 

tSCB  UP] 

SCROLL  DOWN 

[SCR  DOWN] 

INSERT  LINE 

[INST  LINE) 

DELETE  LINE 

[DEL  LINE) 

ERASE  TO  BEGIMNIMC 

[ERASE  BEG] 

ERASE  TO  END 

[ERASE  END] 

TOGGLE  TAB 

[TGL  TAB) 

TAB 

(TAB] 

ESCAPE  KEV 

(ESC) 

re  Machines 

C1.EAB  SCREEN 

[CLEAR] 

HOME  CUaSOH 

[HOME) 

CURSOR  ap 

tUPl 

CURSOR  30WH 

[DOWN] 

CURSOR  RIGHT 

iRIOHTl 

CURSOR  LEFT 

[LEFT] 

INSERT  CHARACTER 

[INST] 

DELETE  CHARACTER 

[DEL] 

REVERSE  FIELD  ON 

[RVS] 

REVERSE  FIELD  OFF 

[OFF) 

ons 

SET  COLOR  TO  BLACK 

(BLKI 

SET  COLOR  TO  WHITE 

IHBTl 

SET  COLOR  TO  RED 

(RED) 

SET  COLOR  TO  CYAN 

[CYN] 

SET  COLOR  TO  PURPLE 

[PUB] 

SET  COLOR  TO  GBEEN 

[GRN] 

SET  COLOR  TO  BLUE 

[BLU] 

SET  COLOR  TO  YELLOW 

[YEL] 

FUNCTION  ONE 

IFll 

FUNCTION  TWO 

[F2) 

FUNCTION  THREE 

IF3) 

FUNCTION  FOUR 

IF4] 

FUNCTION  FIVE 

IFS) 

FUNCTION  SIX 

[F6) 

FUNCTION  SEVEN 

[F7) 

FUNCTION  EIGHT 

[FBI 

ANY  HON- IMPLEMENTED 

FUNCTION 

miH] 

COMPUTE!  The  Resource, 


PES 
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Standard  Features: 

•  Full  power  to  PET/CBM  for  a  minimum  of 
15  minutes 

•  Installs  within  PET/CBM  cabinet 

•  No  wiring  changes  necessary 

•  Batteries  recharged  from  PET/CBM  inte- 
gral power  supply 


Specifications: 

•  Physical  Size:    5.5"  x  3.6"  x  2.4" 

•  Weight:    4  5  lbs, 

•  Time  to  reach  full  charge:    16  hours 

•  Duration  of  outputs:   Minimum  of  15  min. 

•  Voltages:     +16,   +9,  -12,  -9 

•  Battery  Life  Expectancy:    3  to  5  years 

•  Battery  On-Off  Switch 


For  Use  With: 

•  Commodore  PET/CBM  2001  and  4000  ser- 
ies  computer 

•  Commodore  PET/CBM  8000  series  com- 
puter (screen  size  will  not  be  normal  on 
battery  back-up) 

•  Commodore  C2N  Cassette  Drive 


BATTERY 

BACKUP 

SYSTEIVL 


FOR  COMMODORE  PET/CBM  COMPUTERS 


Never  again  lose  valuable  data  because  of 
power  shortages  or  line  surges.  BackPack  sup- 
plies a  minimum  of  15  minutes  reserve  power  to 
32K  of  memory,  the  video  screen  and  tape 
drive.  BackPack  fits  inside  the  PET/CBM 
cabinet  and  can  be  installed  easily  by  even  the 
novice  user.  BackPack  is  recharged  during  nor- 
mal operation  and  has  an  integral  on-off  switch. 

BackPack  comes  fully  assembled  and  tested. 
Instructions  included. 

Also  available.  Back  Pack  unit  for  Commodore 
CBM  4040  and  8052  Dual  Drive  Floppy  Disk. 


Dealer  and  distributor  inquiries  invited. 


BackPack  is  a  trademark  of  ETC  Corporation 
CBM/PET  are  trademarks  of  Commodore  Business  Machines 


Designed  and  manufactured  by: 

ELECTRONIC  TECHNOLOGY  CORPORATION 

P.O.  Box  G,  Old  N.C.  42 

Apex,  North  Carolina  27502 

Phone:  (919)362-4200  or  (919)362-5671 


Electronic  Manufacturing 

Technical  Design  and  Development 

Compute-*  System  Technology 


ELECTRONIC  TECHNOLOGY  CORPORATION 


m 
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The  Most  Exciting  Vid^o 
K   Gaines  Available  Today 
^     At  The  Lowest  Pricep 

jCipplG 

5%"  Floppy  Disks 


David's  Midnight  Magic  Red  Alert    Retail  $29.95 

Retail  $34.95     Now  $29.50  Now  $24.50  Newest  Braderbund  release 

This  pinball  game  by  Broderbund  is  Apple  Panic      Retail  $29.95 

being  offered  for  the  first  time.  Now  S23  50 

Genetic  Drift     Retail  $29.95  Now  $23.50     A  number  one  selter 

One  of  Apple's  most  popular  games  by  Broderbund.  You         by  Broderbund. 

turn  unfriendly  life  forms  inlo  friendly .  ||„sslji  Duck     Retail  $34.95 

Firebird    Retail  $29.95  No^^,  $29.50  First  time  released 

Now  $24.50  All   new  by  Nasir.  for  any  machine  —  recover  the  MX 

Piggo,  tlie  fearless  firefighter,  baliles  Missile  plans  hidden  by  foreign  agents 

the  incredible  Firebird.  -^  o  .   -i  j-in  nr 

...  .,    r.      ■.».,.„,-  Gorgon    Retail  $39.95 

Horizon  V     Retail  $34.95  „         -.__  ^„    ^,.    .,.,,, 

^"bef ';f  rr^t'b:"  f'"     1- "Sf  t  Si^reTrtl^t-  s. 
^Na\1r^!r,t'aptc'r::.ror-    -ereda,ime.warpand,Keba„.  has  , us,  begun. 
Sneakers     Retail  $29.95  Space  Eggs    Retail  $29.95 

Now  $24.50  Endless  excitement       Now  $24.50  This  number  1  seller 


ATARrAr 

514"  Floppy  Disks 


l)y  Sirius  stomping  Sneakers  and 
endless  other  creatures. 
Hadron    Retail  $34.95 


is  a  real  crack-up  from  Sirius. 

Epoch     Retail  $34.95 

Now  $29.50  A  Number  1 


Now  $29.50    Battle  in  an      seller  from  Sirius  where  your 


I^Hl 


asteroid  field  in  this  brand 
new  game  by  Sirius. 


secret  weapon  is  the 
fourlh  dimension. 


Pathrinder      Retail  $39.95     Now  $31.96 
Blast  your  way  through  the  maze  filled  with  nudear 
waste  and  radioactive  monsters  in  this  never-before  Ee- 
leased  game  by  Gebelli  Software. 

Match  Racer    Retail  $29.95     Now$23.i0 

Gebelli  Software  has  you  matching  your  wils  and  al  >ility 
against  your  racecar  opponent  in  a  showdown  of  I'acing 
skill. 

Andromeda  2    Retail  $34.95    Now  j  27.96 

First  time  ever  for  any  machine  byGebelli  Softwa  e. 
Trapped  inside  a  gigantic  living  organism  you  m  ust  find 
your  way  out  before  the  antibodies  gel  you. 

The  Software  Con  neciion 
5133  Vista  Del  Oj;<)  Way 
,  Fair  Oaks,  CA  95(28 

'  f^AIL  ORDERS:  Send  dice  1  or 

money  order  for  total  purchase  price 
plus  SI. SO  for  postage  and  Handling. 
California  residents  add  6'V  Sales  Tax . 


Charge  card  orders  may  call 
1916)  989-3174.  Suiriecl  to  slock  on 
liand.  Prices  subject  10  change. 


You  are 

the  sole  suiinving 
Naval  Commander 
of  the  Free  Space  Con- 
tederation.  The  Galac- 
tic Empire  has  overrun 
the  entire  solar  system  . 
except  foryour  remote  out- 
post on  a  moon  at  the  outer 
limits  Exploiting  the  un- 
matched ship  SHADOW  HAWKI-- 
you  prey  on  the  Empire's  mer- 
chant ileet  to  capture  enemy  mate- 
rial, which  can  be  bartered  for  better 
weaponry,  shielding,  missiles,  etc.  for  SHADOW  HAWK  1.  ™ 
But  the  Empire's  interceptors,  corvettes,  lancers,  destroyers, 
and  craisere  are  probing  the  galaxy  for  you  You  must  evade 
them  and  the  deadly  battle  stations  throughout. 
Your  skill  is  measured  by  nine  rankings,  up  to  STAH  LORD. 
Warning:  You  must  be  very,  very  good  to  reach  STAR  LORD 
rank!  Very  good  indeed! 


SHADOW 
HAWK  I™  uses 
THHEE-A-TOS  rota- 
tion, high  resolution  3-D 
graphics!  On  Apple  II*. 
.  DOS  3.3,  or  Atcnl  fiOO-,  48K 

^         with  disk  drive.  Joysticks  re- 
^^  quired.  Specify  Apple  or 

Atari  on  your  order  Games 
are  on  Dyson™    diskettes. 
Game  time:  15-30  min.  $49.95  ppd. 
VISA  &  MosteiCard  accepted. 

DEALER  INQUIRIES  ARE  WELCOME 


7561  Crater  Lake  Hwy. 
White  City.  OR  97503 
(503)  826-4640 

'Apple  n  and  Aim!  BOO  are  registered 
trademarJts,  respectively,  ol  Apple  Com- 
puter. Inc  and  Alan.  Inc. 
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New  Journal  For 
Math  And  Science 
Teachers 

A  new  periodical  for  educators 
interested  in  using  computers  to 
teach  matlicinatics  and  science  is 
The  Journal  Of  CDmputi'rs  In 
MalJwmafics  And  Srirnce  Teaching. 
Vhcjuutnal  is  published  by  the 
Association  for  computers  in 
Mathematics  and  Science 
Teaching,  a  professional  non- 
profit organization.  It  is  pub- 
lished quarterly  in  September, 
December,  March  and  June. 
ACMST  membership  is  $7.00 
per  year  and  includes  a  subscrip- 
tion lo  the Jouiiial.  Single  copy 
price  is  $2.50.  Contact  them  at 
P.O.  Box  4455,  Austin,  TX  78705. 

Dental  Computer 
Newsletter 

The  DCN  represents  an  interna- 
tional group  of  dentists,  physicians 
and  office  management  people 
who  have  interests  in  olfke  com- 
puters. Though  the  emphasis  is  on 
micro  computers,  many  members 
u.se  minis.  We  catei'  to  all  makes 
and  brand  names.  DCN  oilers 
members: 

1.  A  monthly  newsletter 

2.  Software  exchange 

3.  Achice  and  experience 

4.  Access  to  members  world  wide 

5.  Computer  inillctin  board 

1982  annual  membership 
dues  are  S  15.00.  A  little  o\er  a 
dollar  per  nionlli.  Overseas  sub- 
.scriptions  are  .|2;1.00  (US).  Mem- 
bership runs  from  January  to 
Jamiary.  If  you  join  mid  year, 
we  will  supply  you  with  the 


yeai  's  back  issues.  Checks  can  be 
sent  to: 

Dental  Computer  Newsletter 
E.J.  Neiburger  DDS— Editor 
1000  North  Ave. 
VVaukegan,  IL  00085     USA 

Orders:  You  may  order  past 
issues  starting  with  VI :  1  (Nov. 
'78)  for  $15  per  year  ...  $45  for 
all  past  issues.  Membership/ 
ecjuipmeni  listings  are  $5.00. 
Commercial  software  and  DCN 
software  exchange  lists  (24 
pages +  )  are  $4.00. 

Sue  Neiburger  RN 
Managing  Editor 

E.J.  Neiburger  DDS 
Editor/Publisher 

Please  feel  f  ree  to  call  any  Tuesday, 
Thursday,  Saturday  or  Sunday  9- 
12  noon  (CST)  (312)223-5077. 

Capital  Children's 
Museum  And 
Reston  Publishing 
Company  To 
Develop  Software 

The  Capital  Children's  Museum 
of  Washington,  DC  and  Reston 
Publishing  Company  (A  Prentice- 
Hall  Company)  are  pleased  to 
annotmce  an  agreement  to  pro 
duce  a  series  of  educational  book/ 
softwaie  packages  for  microcom- 
puters, '(lie  series  is  designed  to 
promote  a  creative,  interactive 
use  of  computers  by  children, 
parents,  and  teachers.  The  prod- 
uct will  be  implemented  initially 
on  the  Atari  800  Personal  Com- 
puter System;  design  and  testing 
are  being  managed  by  Super- 
boots,  the  software  development 
arm  of  tlic  Capital  Children's 


Museum. 

The  first  package,  entitled 
Paint,  will  be  available  in  early 
1982.  Paint  will  be  a  versatile 
educational  tool  that  will  be  suit- 
able for  use  either  in  the  home  or 
in  a  classroom  setting.  The  book 
accompanying  tlie  software  will 
be  a  guide  to  a  wide  range  of 
activities  which  parents  or  teachers 
can  u.se  to  extend  a  child's  interest 
in  computer  learning. 

Early  in  198 1 ,  Atari  made  a 
significant  donation  to  the  Capital 
C;hildren's  Museum  in  the  form 
of  30  Atari  microcomputer  .sys- 
tems, rhis  contribution  has  al- 
lowed the  Museum  to  establish  a 
computer  learning  environment 
called  Future  Center,  to  put  com- 
puter programs  in  exhibits,  and 
to  lUili/.e  other  computers  in 
Superboots.  Superboots  is  the 
software  development  lab  where 
computer  programs  are  created. 
Software  is  used  both  in  Future 
Center  and  in  exhibits  and  is 
marketed  outside  the  Museum 
through  Reston  Publishing 
Company. 

For  more  information,  con- 
tact: Bob  Evans,  Administrator, 
Superboots,  Capital  C>hildren's 
Museum,  800  Third  Street, 
N.E.,  Washington,  DC     20002 
(202)543-8600.  Nikki  Hardin, 
Editor-,  Reston  Publishing  Com- 
pany, 1 1480  Sunset  Hills  Road, 
Reston,  VA  22090  (703)437-8900. 


Artworx  Announces 
New  Atari  Software 

Arthur  M.  Walsh,  Manager  of 
Software  Products  for  Artworx 
Software  Company,  150  N.  Main 
St.,  Eairport,  New  York  14450, 
announced  the  addition  of  nine 


THE  FINEST  IN 
FANTASY  GAME  SOFTWARE 

At  Crystal  we  are  doing  our  best  to  provide  the  finest  state-of-the-art  graphic  adventure  software  in  the  world.  Our  list  of  credits  include  the  first  indoor-     jk  ■•■«■  v  1 

outdoor  graphic  adventure,  the  firs!  multi-disk  graphic  adventure,  and  now  for  the  Atari,  the  first  graphic  adventure  in  the  world  which  includes  screen     WJ^™»E  J 

scroiling  and  animation  The  era  of  the  text  adventure  and  games  which  are  simplecombinalions  of  static  graphics  and  text  is  rapidly  drawing  lo  a  close  We 

attempt  to  utilize  the  full  potential  o(  your  computer  True,  many  of  our  games  use  up  <o  48K  and  we  only  deal  in  disk  products,  but  there  are  a  lot  of  users  oul 

there  who  have  worked  hard  to  upgrade  their  systems  to  the  max  and  we  think  they  deserve  games  thai  will  give  their  computer  system  a  run  for  its  monev    ^^  —  w/disk 


•••  ADVENTURE  GAMES  ••• 

1  -THE  HOUSE  OF  USHER*  Haunted  house  type  adventure  game  with  scrolling  in  the  Atari  version.  Wander  the  creepy  hallways  of  the  three  story 
castle  based  on  Edgar  Allen  Poe's  short  story  of  the  same  name.  Written  in  graphics,  of  course,  with  animation  and  sound.  We  have  introduced  a  new  mystery 
(or  another  $100  prize.  $29  95/1  disk 

2-FANTASYLAND  2041  A.D.-  The  largest  disk  based  adventure  game  in  the  world  (that  we  know  of).  Enter  the  Hall  of  Heroes  and  prepare 
yourself  (or  the  greatest  fantasy-role- playing  game  you  will  see  for  years  to  come.  To  win  you  must  survive  Congoland.  Arabia,  King  Arthur.  Captiiin  Nemo, 
Olym  pus  (a  sea  voyage),  and  Dante's  In  femo  ( Hell  itself)  In  both  the  Atari  and  Apple  versions  it  takes  up  more  than  400,000  bytes  of  memory  and  .ises  more 
than  400  hires  screens.  The  wi  nner  of  I  he  contest  described  in  the  manual  with  this  game  will  receive  SlOOO.OOanda  bronze  trophy.  We  have  pushed  the 
award  date  forward  lo  February  1982  to  allow  more  people  to  participate  in  the  contest.  $59.95/6  disks 

3-GLAMIS  CASTLE-  Yes,  Pat  and  1  are  on  our  way  to  Britain  to  stay  in  the  dreaded  Glamis  Castle.  If  we  survive  our  real  life  adventurm,  we'll  be 
measuring  it  and  will  be  able  lo  provide  you  with  a3-D  game  based  on  this  ancient  haunted  site  where  King  Duncan  met  his  end  at  the  hands  of  Mac:beth.  Our 
good  friend,  Mark  Benioff,  after  much  research,  said  there's  a  mystery  room  that  has  never  been  found  in  this  castle  and  a  half  beast  half-man  creature  that 
guards  a  treasure  therein.  Our  stay  will  be  covered  by  the  British  media  and  we  hope  to  share  our  experience  with  you  through  the  writing  of  Ihis  game 
$49,95/2  disks 

4-BENEATH  THE  PYRAMIDS- You  are  an  archaeologist  in  1932  and  must  find  your  way  through  the  perilous  chambers  beneath  the  pyramids 
to  discover  a  golden  statue  of  the  cat  goddess  Bast  This  game  is  in  hires  graphics,  includes  sound,  your  little  man  actually  moves  through  the  come  ors  which 
you  can  see  on  the  screen.  The  monsters  are  animated  and  very  agressive.  There  is  a  new  $100  prize  for  the  first  to  solve  the  mystery;  which  is  h  toughie! 
$29.95/1  disk 

•••  SPACE  GAMES  ••• 

5-GALACTIC  QUEST- An  excellent  combination  of  Star  Trek  and  Space  Trader.  Battle  the  animated  Vegan  fighters  as  you  warp  from  galaxy  to 
galaxy  Ai  the  same  time,  you  may  land  on  and  trade  with  hundreds  of  planets  Super  hires  graphics  and  lots  of  sound.  This  has  been  one  of  our  most  popular 
games.  $29  95/1  disk 

6-SANDS  OF  MARS'  Take  an  exciting  voyage  to  the  planet  Mars  via  the  Starship  Herman.  This  game  compared  to  the  rest,  is  second  only  to 
Fanlasyland  204  i  A.  D.  It  includes  scrolling  on  the  Atari  and  hundreds  of  full  screen  graphics.  You  can  move  your  Utile  man  through  the  terrain  of  Mars:  if,  of 
course,  you  survive  the  exciting  journey  to  Mars,  which  occupies  the  whole  first  disk.  There  is  a  new  mystery  and  another  $100  prize  just  wailin<s  for  some 
clever  adventurer  out  there.  Good  luck!  $39.95/2  disks 

•  ••  WAR  GAMES  ••• 

7- WORLD  WAR  III-  You  Atari  gamers  will  have  to  see  this  in  the  Atari  version  to  believe  it!  If  your  tired  of  war  games  which  lake  1 5  minutes  a  move 
and  have  a  manual  the  size  of  a  telephone  book:  but  still  want  a  complex,  real-lime  action  war  game-lhis  is  id  It  is  designed  for  two  arm-chair  generals  which 
may  manuever  up' to  1 28  seperate  type  of  units  at  a  time.  The  game  displays  a  map  of  Iran  &  Iraq  in  the  first  scenario  and  later  on  you  will  find  yourself  moving 
nuctearsubmarincsandbaltleshlpsthroughtwo  world  wars.  This  is  not  a  boring  copy  of  a  board  based  game  but  an  original  war  game  which  takes  ,i  lot  of  skill 
and  may  take  weeks  to  play.  $29,95/1  disk 

8-WATERLOO  Il-lf  you  had  been  Napolean  would  you  have  done  a  few  things  differently?  Well  as  you  approach  this  final  battle  you  are  equipped 
with  the  same  forces,  face  the  same  opposition,  and  survey  the  same  terrain  which  he  did.  We  have  done  a  great  deal  of  research  to  make  this  liistorically 
accurate  as  well  as  extremely  complex  Even  the  angle  of  sight,  fatigue  of  the  individual  soldier,  and  his  psychological  profile  are  Included  in  ihe  calculations. 
Oh  by  the  way.  your  opposition  is  no  slouch.  You  may  find  it  more  difficult  lo  change  the  course  of  history  than  you  think!  $49,95/2  disks 

•  ••  ARCADIA  ••• 

9-LASAR  WARS-  Hires-ad  space  war  simulation.  Protect  the  earth  from  alien  invaders.  $29.95 

1 0-  LITTLE  CRYSTAL-  The  first  of  our  Ime  of  education  software,  which  will  be  completed  by  December  It  includes  a  very  fine  version  of  Hangman, 

Mr  Music:  which  transforms  Ihe  computer  into  a  piano.  Gunk-a  hilarious  shoot-em  up  game,  and  Storytime-  an  anthology  of  bedtime  stones  featuring 

Herman.  Ihe  cat,  Oscar,  the  Hamster,  and  of  course.  Little  Crystal.  $39.95 

11-lMPERlAL  WALKER- A  fine  game  pack  written  by  our  Atari  programmer.  Michael  (graphics)  Potter  Includes  the  Walker  animation  which  is 

superb.  Gunfight,  and  Lasar  Nim,  a  game  of  'how  many  robots'.  $29.95 

12-ADVENTURE  PACK-  d  4)  $112  13-SPACEOUT-(<'5  6)  $58 

14-THE  WARRIOR-  (-7-8)  $64  15-ARCADE-  («9.n)  $60 


Crystal  tras  many  other  fine  lanlasy  anrf  space  games.  For  a  copy  of  CRYSTAL  VISION  which  mc/.des  a  complete  catalog  ple.se  send 
$3.00  to  the  address  below.  .       -r  j  . i. 

Out  order  lines  arc  open  24  hrs.  a  day  7  days  a  week. 
(408)  778-2966  CRYSTAL  COMPUTER  17120  Monterey  Rd..  Morgan  Hill,  CA  95037 


48K  -  w/disk 


THE  FINEST  IN 
FANTASY  GAME  SOFTWARE 


48K  -  w/disk 


"Having  preuiewed  auerfifti/  o/your  compeUtors  'games.  lean  assure  you  thai  your  use  ofscroUingfat  exceeds  ar\i;lhing  I've  seen  for  the  Atari  and.  of  course,  for  the 
Apple.  I'm  very  impressed  by  the  dedication  and  quality  that  your  company  exhibits  b^:  virtue  of  this  demo.  "David  Sosna  —  Associate  Producer.  Universal  Pictures 
Crystal  has  done  its  best  to  become  the  Porsche  of  the  computer  gamt'  industry.  New  scrolling  techniques,  video  disk  games,  a  real-life  faiitasyland  —  our  mad  pro- 
grammers toil  onward  with  little  food  or  sleep  to  product;  some  incredible  firsts  in  the  microcomputer  world,  if  you  are  an  unappreciated  genius  and  want  to  Join  our 
staff  to  help  create  the  world  of  tomorrow  today,  give  me  a  call.  Our  m<itja/.ine  Crystaf  Vrson  will  within  the  next  month  have  a  circulation  of  80.000  and  we  look  (or 
ward  very  soon  to  producing  our  first  full  length  motion  picture  I'd  like  nyl-anlr  my  (rieiiH-i  at  Votrax  and  .Axlon  for  giving  us  the  tools  ( 128K  RAtvl  for  Atari  and  a  vocal 
text  synthesizer)  to  truly  produce  some  programming  miracles.         jf  mf  Y^jjt 

THE  CRYPT  —  One  evening  you  awiiku  at  sunset '.onndyt^raeinn  what  appi.*,irslobi' an  endless  cemetery.  Althoujjh  defenseless,  you  must  somehow  find  your 
way  out  or  pensh  from  the  hideous  assaults  of  flesh- eating  zombis-,,  r.iis.  vaiiipires.  werfwulvt's,  and  other  repulsive  monstrosities.  To  escape  you  may  have  to  des- 
cend into  the  catacombs  beneath  ihecemulery.  Ti):sgameisa  liltle  <lif|prentfronn  the  others  of  uur  seriei  because  we  use  a  lot  of  static  graphics  to  set  the  mood.  It  is 
similar  in  some  respects  (without  any  copying  intended)  to  those  of  our  friends  at  On  Line  who  produce  excellent  static  graphic  adventures.  You  must  use  all  your 
common  sense  and  a  great  deal  of  courage  to  escape  from  thisperilous  adventure  alive.  We  have  made  tt  so  nearly  impossible  that  the  first  player  to  do  it  successfully 
will  receive  a  $200.00  prize.     $49.95  2  disks    siljf  >!iff*-   .^TSBIK'"/  ^^'J^^^S,.^*^^ 

lArmfii^ie 


QUEST  FOR  POWER  by  Mark  Benioff  —  Al^mindTOB^iirtv  iWi'fllfe  adventure  and  niap-^ArtTIfttia^4egend.  Join  Galahad  as  he  leaves Camelot  in 
search  of  the  Scroll  of  Truth.  Explore  the  treachtiroui  depths  of  the  Caves  of  Somerset,  visit  the  medieval  rity  ol  l-,ssex.  Along  the  way  you  will  meet  powerful  wi^ardii 
and  greal  prophets.  The  villages  of  Sunderland  and  Leeds  dot  your  patti  Soniew.tjgfe  in  an  evil  casjij;  called  Sknhrth.  lurks  the  devil  himself,  while  the  Evil  Giant 
Gogmogo.  hungry  for  human  prey,  roains  the  forests.  In  Fantasylandtr.idilion  we:||iicl«r6eJd^Jte»egrtsK(hirfi  scrolliiiy  and  some  sensational  graphic  and  anima- 
tion sequences.  Well  worth  the  S39. 95   1  disk:  enjoyable  to  all  ages  -^t''   ,^^UKi      nv 

ir-ki<:  GALACTIC  EXPEDITION  •  *  • 

The  year  Is  3021 ,  almost  100  yt;  jrs  since  the  expedition  to  t.hH  Sands  oi  Mars  iuia  leturned.  The  Starship  Herman  now  rests  quietly  in  the  Zikon  Museum  in  New 
Brisbane.  It's  nearly  80  years  since  WtuldWar  111,  the  Ames  R>;search  Ckuuh  felebriites  it-,  ITjOiti  anniversarv.,«inclyoi.j  standattheunveiltngof  a  truly  technological 
wonder  —  the  first  ion-propelled  vessel,  -saucei -shaped  Lady  Joanne.  Us  i  lewporl  of  puii;  lii.imond.  its  huinbtefcpwKiineralds.  The  Martian  glyphs  of  the  Meshim 
and  those  of  Lemuria  have  now  been  deciplii-reif  and  it  appears  ihat  a  iTiuch  greater  rnystt-ry  is  about  to  uii^A^fca^fifliVJ  7  doors— 7  guardians  and  7  candles.  7 
strange  new  worlds  await  the  ultimate  adventuit'r  to  unlock  a  timeless  secret.  The  jwsHjp  maij^seem  ^ti|^^V^HB^>9B||^t^  ur  veteran  adventurers .  faced  with  its 
marvelous  new  technology;  this  craft  must  be  flon  ri  by  constant  monitoring  of  i(a»Jfty^dpburiiil^WBtBl3|^Maiafci-vau  are  surrounded  by  the  dickering 
heavens,  beset  by  meteor  showers  and  time-warps.  Each  uniq-jc  world  holds  on^^W^s.^ifcitock'^MBBiBgt^MAtWJmes  all  run  off  the  Main  Module 
which  also  is  a  game  unto  itself.  '^^^^^V.-   ■W'ZU^  K^M^ 

rrOm  edrtn  to  Moon  —  On  the  Moon's  dark  side  lie  enttances  to  caverns  exte.iding^ffiSiooii  s  hollowed  wfiicK  co^alns  a  timeless  secret.  Here  live  a 
race  of  burrowing  creatures,  who  have  buill  vast  earthen  cities  with  storehouses  full  of  prjcious  stones.  CJiaviiy  is  extremijly  cnlicfil  and  you  must  use  all  your  skills  to 
manually  land  your  craft.  This  first  Master  Disk  contains  the  dos  needed  to  run  addilior-.il  scenarios  Its  price  is  $39.95  and  includes  64  screens  of  Hires  graphics. 

MISrSOr  VSnUS  —  OnVenus*  ever  hot  surface  are  endless  jungles  and  swainp.s.  the  airisunhreathable  and  spacesuits  and  oxygen  mustbe  carried.  This  world 
is  esppcially  treacherous  with  all  sorts  of  loathsome  creatures  and  hardly  anyglac^^hjMoijgh  to  land  your  ship.  Beneath  the  green  seas  our  adventurer  may  find  ihe 
second  key  to  solving  the  Mystery.     $29.95  (must  have  Master  Disk  to  run)"         ■  Jf  ^.. 


PISnet  Herman  —  U  is  hard  to  tell  where  Herman's  atmosphere  endrand  thfe  surface  begins.  Much  of  this  adver-.lurc  will  have  the  feeling  of  a  starship  sub- 
marine. Navigating  around  Herman  is  very  dangerous  but  with  a  compuiei>'on  board  Lady  Joanne  it  may  be  just  possible.  This  senario  costs  S29.95  and  needs  the 
Master  to  run  _         fj:  -  "  ^— '" 

Tne  ASterOlCI  Belt  -  Every  play  something  oids.  A  comtfflatHfcif  the  bast  machine  language  sub-roatines  of  our  r>ew  Crystaloids  with  a  fast  moving 

adven  ure  game.  Penal  colonies,  lurking  pirates,  and  some  unusual  forms  ^  scavenger  life  exist  here.  It's  ditficuit  to  travel  in  the  Asteroid  Belt  without  getting  blown 
up^Perhaps  you  should  find  some  expert  help  by  rescuing  a  pilot,  who  is  also  a  sentenced  thief  or  murderer,  from  one  of  the  penal  colonies.  Thera  are  places  for 
trading  and  you  may  wish  to  indulge  yourself  with  a  visit  to  the  sensual  Pleasure  Planet.  $29.95  (needs  Maslar  Disk) 

Uranus  •  World  of  ice  _  a  freezing  place  with  nights  of  -20(1°  F  Bring  along  Thermasuits,  as  wf  I!  as  some  Laars  with  which  to  battle  the  Grungik  a  12 
toot  la)l  relative  of  Big  Foot,  fond  of  human  flesh.  Uranus  also  has  a  secret  inner  labyrinth  with  tropical  flora  and  fauna.  However,  the  King  of  the  Ice  Platiet  Norion 
Masto  ask'tom"n)  °"''''''^*'''"^'  ^'"^^^'P^P^^'^^^'iH.  ^^iapons  and  supplies,  yourslay  here  may  be  very  exciting  and  very  short.  $29.95  (needs 

JUptter  -  world  of  Dwarfs  -  How  would  it  teel  to  weigh  300  or  so  Ibs.?  a  trip  to  Jupiter  should  fill  you  in  fast.  There  is  a  particularly  interesting  red  soot 

nr.n^^»7,r  ^^7"^  M!  '"°°?-  ^''""'"^  i'?  =?'"o  ^"''3'^^''"  *"'  ^^'P'  '-^"'""3  =^°"''*  ^^^"i' '«"  V°ur  energies.  In  the  Jupiterian  atmosphere,  you  fall  fast!  Be 
prepared  to  use  10  times  the  normal  amount  of  fuel.  Better  find^the  6ih  key  quickly  before  your  fuel  and  food  are  exhausted.     $29.95  (needs  Master  Disk) 

Jv!l?£rXf,^'  ?ll^"?A"i'lf°"L.*'",^^''^  to  embark  on  this  final  portion  of  your  expedltior^  ignorant  of  what  you  mav  encounter  here  c 
excepting  that  the  7lh  world  holds  the  ultimate  key  to  winning  the  contest.  $29.95  (needs  Master  Disk) 

Tne  contest  -  to  the  Wmner  with  the  highest  score,  who  solves  Ihe  mystery  by  November  of  1982  will  go  $5000.00  in  cash.  Good  Luck! 


!  on  this  mysterious  planet, 


•  -*■•••• 


GLAMIS  CASTLE 


leaoue  with  ihp.  Hpvil  liU»H  t^^n'J^i"^  *''f"t^'!!  ^^^f"^  ^""^  T°"^'  *'?*'  ''^'"*  ''  °"^  °'  '^^  '"°='  ''^""'^''  ^''«' '"  ^rc-at  Britain ,  One  Lady  Glamis,  known  to  be  in 
generXs  of  the  Luon  Ifml  ?^^^^^  ?T '°  ^l"'" '"'  '™"=P^°P^  Sh«  finally  was  burnt  at  the  sf.ke  on  CasKe  Hill,  cursing  as  she  died  all  future 

f,rrc.tTS^^        ^^  i?u  1     °"  ^'"  J^f"' '°  ''^""*  *^'  'P""'  '""fdering  the  curious  who  stray  up  to  Castle  Hill  afliT  dark  The  cur^;  stipulated  that  each 

to  determirthXatiorof  this  «crPt^^^^^^ 


Uur  order  lines  arc  open  24  hrs.  a  day  7  days  a  week. 
(408)  778-2966  CRYSTAL  COMPUTER   17120  Monterey  Rd..  Morgan  Hill.  CA  95037       ^ 
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and  mow  * 
ATARI 

400W/16K  '  339°° 

800W/16K  *  738°° 

810  Disk  Drive  '  449°° 

830  Modem    '  159°° 

850  Interface  '  159°° 

16K  module  '    85°° 

EPSON 

MX-70 CALL 

MX-80  CALL 

MX-80F/T  CALL 

MX-100 CALL 

Graphics  kit «  3500 

Interface  cards  and  cables  available 
for  your  machine! 


We'll  meet  or  beat 
any  advertised  price. 


W/mW  HEWLETT 
ftf£l  PACKARD 

HP-85AW/16K '2595°° 

HP-125   '2995°° 

TELEVIDEO 

920C   '  729°° 

950   '  939°° 

ZENITH 

Z-19 '  725°° 

Z-89 '2150°° 

Call  for  more  great  prices  on  NEC. 
BMC.  Norihstar.  Altos.  Soroc.  Am- 
dek . . .  and  others. 

LO-BALL  COMPUTERS 

P.O.  Box  1818 
Beaverlon.  OR  97075 
APO/FPO  welcomed 

CALL  (503)  641  -021 1 

Ordering  Information:  For  fastest  ser- 
vice, send  money  order,  cashier's 
check  or  bank  wire.  Visa  and  MC 
orders,  add  3%.  Personal  checks 
accepted  (allow  mininaum  10  days  to 
clear).  Hours  9-5,  M-F. 
Call  For  Our  Free  Price  List 


new  programs  to  its  present  line 
of  software  for  home  computers. 
A!!  nine  programs  arc  available 
for  the  Atari  eoin|Hiter.  They 
include  space  games  (ENC'OUN- 
TER  AT  QUESTAR  IV.  S2S.95; 
ROCKET  RAIDERS,  SI 9.95; 
SPACE  TRAP,  $  14.95),  a  flight 
landing  simulator  (PILO  T, 
$16.95),  an  excellent  blockade 
game  (BLOCKADE,  |14.95),  two 
suspenseful  adventures  (CRAN- 
STON MANOR,  .121.95  diskette; 
THE  VAULTS  OK  ZURICH, 
$21.95),  a  text  editor  (TEX  I" 
EDITOR,  $39.95  diskette)  and  a 
"player  missile"  editor  (PM 
EDITOR,  $29.95). 

These  and  other  Ariworx 
programs  are  available  at  com- 
puter stores  or  can  be  ordered 
direcdy  from  Artworx  toll  free  at 
800-828-6573  or  716-425-2833. 


Cimarron  Releases 
File  Handling 
System  For  The 
Commodore 
Business  Computer 

Costa  Mesa,  CA  —  C:iMARRON 
CORPORATION  announced 
today  that  it  is  making  its  pro- 
prieiai)'  file  handling  svstem 
called  CM.AR  axailable  to  systems 
houses  and  letaileis  who  ai"e 
developing  business  applications 
software  for  the  Commodore  line 
of  small  business  computers. 

C^MAR  is  a  keyed  file  access 
method  that  provides  the  foim- 
dation  ior  CIMARRON'S  Legal 
Time  Accountiimg  and  Medical 
Accotuiting  packages  marketed 
by  Commodore  nationally.  CMAR 
is  compatible  with  all  present 
Commodore  disc  subsysiems  util- 
izing the  existing  disc  format.  It  is 
written  in  6502  machine  language 
and  interacts  directly  with  Com- 
niodore  Basic  4.0. 

With  its  post  "Binary  Tree" 
technologv  referred  to  as  hivrrted 
Key  File  Method,  CMAR  offeis  a 
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GALACTIC  CHASE 


Program^    far 


i\  AATARI 


"4  00/800 


G      Unless  Otherwise  Noted 


From  Spectrum  Computers 

An   all    machine  language  arcade  cjsme  that  com- 
bines challenging  play  with  groat  graphics  artd 
sound.    Insect-like      alien      ships      form      ranks 
above  you,     movin9    back    and    forth    as    they 
ready   their     assault.      Suddenly      they      start 
breaking  formation  to  swoop  down  on  you,  the 
lone  defender.     Fight   them  off  with   swift   mis 
sites   .    .    .    until   their  invisible  ray  slows  your 
missiles  down.     May     lie    played     by     I     or     2 
players,   with  two  skill  levels, 
16K    tape. ..521.95 
32K    disk...S29.95 

TRICKY  TUTORIALS 

From   Santa  Cruz  Software 

A  novel  approach  to  learning  about  the  special 

programming  functions  of  your  Atari.  Each 
TRICKY  TUTORIAL  combines  printed  informa 
tion  with  several  programs  (complete  with 
listings)  that  demonstrate  the  concept  being 
presented.  You  are  encouraged  to  modify  and 
incorporate  the  programs  in  your  own  pro- 
gramming! 

=  1        DISPLAY  LISTS 

16K  tape  or  disk... 511.95 
=2    -    HORIZONTAL  J,  VERTICAL  SCROLLING 

16K  tape  or  disk... 5111. 95 
S3   -    PACE  FLIPPING 

16K  tape  or  disk.  ..$11.55 
#1   -    BASICS  OF  ANIMATION 

16K    tape  or  disk..  .SU,95 

Also  from  Santa  Cruz  :  BOB'S  BUSINESS 
A  baker's    dozen    programs    for    business    and 
personal   applications:   amortization,    mortgage, 
savlongs,    averages,    square    feet/yards,    pay 
check,    investment,       mortgage      comparisons, 
property  expense,    bar   graphs,    decimaUhex, 
U.S. /metric,  checkbook. 
32K    tape.  .  .  111.95 


GIN  RU/WMY  3.0 

By  5.  Silverman  ffotfl  Manhattan  Software 
Using  Atari  sound  for  input  cues,  this  program 
presents  your  hand,  the  discards  and  the  com- 
put&rs  moves.  All  input  is  via  the  joystick^  and 
you  can  manipulate  (reorder)  Ih'E  cards  in 
your  hand  any  time  it's  your  turn,  Scoring  of 
both  hands  is  done  by  the  computor,  as  is  the 
overall  game  scoring.  It  makes  a  good  Cin 
Rummy  opponent     -  what  more  can  wc  say? 

32K   tape. ..SIB. 95 


ASSEMBLER 
BOOK 


By  Don  Ursem  from  Quality 

Fight  wave  upon  wave  of  Empire  warri'ors  as 
you  carry  out  STARCOM  orders  and  defend 
Starbase  Hyperion.  Very  different  fron  the  ar- 
cade-type space  games,  STARBASE  HYPERION 
is  a  complex  tactical  simulation.  You  can 
choose  from  six  levels  of  play  with  various 
scenarios  within  each  level.  Comes  with  full 
instructions  and  a  Battle  ^^anual. 
2UK  tape. ..$19. 95 
24K    disk... $22. 95 


EASTERNJRONT 


By   Don    £    Kurt  fnman 

While  ihe  ATARt  ASSEMBLER  CARTRIDGE 
comes  with  an  operating  manual,  it  assumes 
that  you  already  know  assembly  language.  If 
you're  new  to  the  Atari  or  its  6502  processor, 
this   book  is  a  must. 

The  Inmans  guide  you  through  the  rudiments 
of  this  fascinating  type  of  programing  in 
clear,  easy  steps.  Includes  full  listing  and 
description  of  6502  mnemonics  and  addressing 
modes. 

$12.95 

BULLETIN 

BOARD  2.0 

By  Skip  Potter  from  Showcase  Software 
A  complete  package  that  allows  you  lo  set  up 
your  own  computer  bulletin  board.  Full  docu- 
mentation makes  it  easy  to  define  the  special 
functions  to  best  serve  your  needs.  Requires 
Atari  400 /BOO,  BIO  disk  drive,  auto-answer 
modem,    and  a  phone  line. 

im   disk.. .559. 95 


(1941) 

By  Chris  Crawford  from  APE  *  ■  ' 
A  mapbas&d  simulation  of  Operation  Barbossa, 
the  german  invasion  of  Russia.  A  complex  and 
accurate  war  game,  EASTERN  FRONT  pits 
you,  as  German  Commander,  against  the  ter- 
rain, the  weather,  and  the  Russian  forces. 
Good  use  of  colorful  graphics  and  sound,  and 
well  written  documentation  make  this  game  a 
winner! 

16K    tape...S2G.95 
32K    disk.  ..S29.95 


mmsK 

DETECTIVE 


By  M.  Siege!  from  Datasoft 
Utility  programs  to  unlock  the  mysteries  of 
your  disk  system.  DETECTIVE  lets  you  exam- 
ine and  modify  your  disks,  sector  by  sector. 
DISKMAP  provides  a  graphic  display  of  a  disk, 
noting  which  tracks  and  sectors  contain  data 
and  which  do  not.  A  must  for  disk  drive 
OMiners. 


15K 


disk...S29.95 

SCOTT   ADAMS 


Air  Traffic 
Controiieji 


SHOOTING  GALLERY      ADVENTURES 


By  David  Mannering  from  Creative 
Wonder  if  the  air  traffic  controllers  are  really 
under  stress?  Want  to  see  what  all  the  fuss  is 
about?  This  proqram  will  give  you  a  taste  of 
what  goes  on  in  those  towers  as  you  try  to 
quide  26  aircraft  safely  through  your  air- 
space. This  advanced  version  has  five  sep- 
arate control  areas  from  which  to  choose,  as 
well  as  other  enhancements. 
16K   tape. ..S11.95 


By  Scott  Adams  from  Adventure  International 
tjntil  you've  played  an  Adventure,  you  can't 
appreciate  the  hours  of  challenge  and  fun  built 
into  each  program.  Each  tests  your  powers  of 
reason  and  deduction  as  you  attempt  to  accom- 
plish your  mission  using  the  implemtnts  you 
have,    find  or  devise.  Tape  for  24K  Atari 


From  Analoy 
A  remarkably  realistic  shooting  gallery,  com 
plete  with  carnival  music.  Use  your  joystick  to 
shoot  at  moving  owis,  rabbits,  ducks,  and 
clay  pipes.  Hit  stars  and  targets  for  more 
shots.  If  you  can  shoot  them  all,  you'll  get  a 
try  at  the  raging  bear;  if  any  ducks  fly  south, 
they'll  eat  your  bullets.  Great  family  funl 
16K    tape.. .5)5,95 


ADVENTtORELAND    519. 9S 
PIRATE'S  ADVENTURE    S19.95 
MISSION  IMPOSSIBLE    519-95 
VOODOO  CASTLE    S19.95 
THE   COUNT    519.95 
STRANGE  ODYSSEY    519.95 
MYSTERY  FUN  HOUSE    SI9.95 
PYRAMID  OF  DOOM    S19.95 
GHOST  TOWN    S19.95 


Visit  our  other  stores: 


Seven  Corner,  Center  •  Falls  Church, VA  &  W.Bell  Flora  •  660O  Security  Blvd.  •  Baltimore,  MD 


TO  ORDER  CALL  TOLL  FREE  800  424-2738 


u 


MAI  L  ORDERS:   Send  check  or  M.O.  for  total  purchase 
price,  plus  Si  .00  postage  &  handling.   D.C.  resiiients,  add 
6%  tax.   Charge  card  customers:   include  all  embossed 
information  on  card. 


For  information 
Call  t202)  363-9797 

THE^PROGRAM  STORE 

4200  Wisconsin  Avenue  NW,  Oept.  U  01  Box  9609 
Washington,  D.C.  20016 


li 
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BUSINESS  WORLD  INC. 
Information  Line  (213)  996-2252 
TOLL  FREE  MAIL  ORDER  LINES 

(BOO)  423-5886  Omside  Caiii 


HEWLETT 
PACKAPO 


HP  83 


COMPUTERS 

1^  ^  I  ill  I  computo 


■^ 


Apple  II'ISK 
Appk  U-32K 
«p»llll-W 

hp^  III  m* 
Apple  II  nlmWha 
Dos.  3.3 
kApple  II  Disli  Jl  Drive  Only 


_      Ok 
Lit) 

S1330W  >  9W0O 
UMOO 
193000 
1725,00 
391500    ™'«1 


S45.00 
525.00 


«m.oo 

»2>).0O 


HEWLETT 
PACKARD 

HP  125  Uicrocompuler 
HP  85  Microcomputer 
HP-83  MicrxDmputer 
16K  Ejp-Menory  Module 
Gnfliia  Piolter  7225 
Ptnoiulity  Mod.  Foi  72Z5 
26318  ImOJCLPrnttr; 

HvyDtj 

Opinn  02O  For  2E31B 
3  Olives  tQ  Choose 

honi  J2%2S 
9t95A  3'  Dull  Dm 
Gilplnei  Tiblel  91 !  U 
HPUCSIimLneAdvlnced 
HP  I2C  Slim  Line  Fmincill 
HP41  CVNe*  2,2 

BrlesMem 
KP41€  CiloJDtor 
Cjld  ReKler  For  41CV/C 
Prin»r  Foi  JlCVtt 
OpnalWimlfoMl  CV(C 
Qmd  3im  FqijiK 

4  Men  Modi 
Memoir  Moduto  For  IIC 
HP9T  PiO|(«ible  PimlH 
HP«I  Piofixible 

Cjiculitor 
HP-34C  Projimtile 

Scienlrfjc 

HP  3tC  Pioiiinble 
Bus.  R/F 

HP  32E  Adv.  Scienlitic 
HP-37t  Biimiss  Miml 


Lfil 

375000 
3250.00 
225000 

295.00 
2450.00 

750.00 


rrict 

tnnao 
2*75  w 
177700 

255  00 
2075.00 

U5.00 


3950  00  3250-00 

150.00  125  00 

13M.O0  112500 

eiJOOO  550000 

2O50.M  l«7l«) 

11500 

ISO.OO 


325.00 
250.00 
215-00 
3*5-00 
125.00 

9S.00 

750.00 

375-00 

150.00 

ISOOO 
55.09 
75  00 


230.00 

ie.oo 

lU.OO 

Tnoo 

97  00 

iioo 

25  00 
545  00 

295  00 

1170O 

117  00 
UOO 
57.00 


APPLE  il 
STUDENT 
SYSTEM 


■  Apple  II  Pkis  Sy5t!m-48K  RAM 
'  Disti  II  Floppy  Oist  t 

Inkrlice  (OOS  3.3) 
'  12'  Grn.  PIis.  Video  Monilor 


Special  Of  The  Month 

OUR  PRICE 

SI  399""' 


LIMITED  QUANTITIES 


HP  DISC  DRIVE    OURPHICE 
SINGLE  MASTER 
MODEL  S2902M 


SINGLE  MASTER   SlflODOO 
B2902M         I IID3 


t032'32K  10  Col  Crl 
4032-32K  40  Col  Cil 
4Dl«.15!l40ColCit 
9050  Dull  Dtt)  950K 
4040'Oull  Dist  34371 
C2H<Sjje1te  Orivt 
4022 10  Col  Printer 
1024  MiriiiimK  tilley 
25CPS  San«r*r 
CBM  IEEE  Mod» 
Voice  Syrlhesiier 
VIC  20 

PEI  to  IEEE  Cable 
^EEE  10  IEEE  Cilile 


QcorrM-nodora 


U$l 

1495  00 

1295.00 

99500 

1795.0C 

1295.00 

95.00 

795  00 

1S95.0O 

1195  00 

27900 

395.00 

299  00 

39  9S 

4995 


Our-^ 

1097  00 

M9-00 

7tt.0a 

1344.00 

9I9-I» 

77-00 

U9  0O 

1545.00 

IJW.OO 

225  00 

325-00 

255  00 

34  00 

39  00^ 


Xeroil201  51(4-  Din 
Xeroi  !202  t'  Disk 
CP/M  Ooerilioi  System 
Worfl  Processini  Soltnire 
^uper  Cjlc 


2995.00 
379SD0 

200.M 
SCO  00 
295  OC- 


Ouf  pT 

2399  00 
2WO0 
1(9  00 

429  00 
24»0Oj 


rwsu B— 

PBISONM.     VIV, 
COKPUniS   AIMO 

400  iSH  em  or  Run 

too  m  Sytes  ol  nin 
410  Prolnoi  Recorder 
310  Disk  Olive 
J25  Printer  [SO  col 

Cenlionic  7371 
!20  Piinlei  (40  col 

impxtl 
S30  Acoustic  Modem 
E50  InleriKe  Module 
Ataii  Visicalc 
t^ttri  400  16K 


Uil 

59500 

lOtO-OO 

9000 

WO  00 


^ 

fricf 

337  45 
739.00 
77  00 
457  00 


99995      IE9  00 


45000 
200  DO 
220O» 
200.00 
595  00 


lltK  IHSmUIIENTS 

ri  99f4A  Coritole  Nt.      I    .. 

Improved  \  ^7  " 

lO'CotorMonrtorMnh     X^ 

Resokjton 

32K  Memory  Ugdule 
Speech  Synltiesi^er 
Disk  MemoTy  Drive 
RF  Nodulilo' 

Telephore  Couplei  (Modem) 
Pfinlf  r  (Solrd  Sblel 


PRINTERS 


EPSON 

MX  M  FT 
MX  to  IMPACT 
MX  70  IMPACT 
MX  100 

*M*LE  SILENTYf  E 
ANADEX  3501 
NEC 

5510 

5515 

3510 

3515 

OKIDATA 

MICROLIHE  >0 

MICR01INE82 

MICROIIHES] 

PAPER  TBER 

4450  ■i*  GripliKs  795  00 

460G  witti  Griplm  1.394.00 

5G0G  Hevi  full  size  I E9S  00 

OMBL0(LEnEllQUALrTr) 

630  RI02  bi-diieclionil 

ttctors  2.965.00 

1E40K109  keybcurd 

Mctore  4  000  00 

(30  RO  Receive  On^  2  71000 

1650K  136  keyboard 
abactors 4.00O.0O 


244500 
S4SI» 

i7«oa 

1149.00 

3«00 
54900 
7(9.00 

695.00 

199.00 

1.139  00 


2.199.00 
2J5O0O 


MONITORS 


O 


BMC  Gm  Phs 12" 
HECfim.  Phs  12- 
Zenilti  12- 

LE  HON  [TOR 

•  9-  B  i  W 

■  9'  Green  Phs 

■  12-BSW 

•  12-  Green  Phs. 
"  12-Gr«oPhs. 

•  Anh  RedKlive  Scieen 
"T.V.  Grade  Sciwn 

SANTO  MOHnORS 

13"  Color  (ne»| 

hiEh  duality 
12-  Green  Phs. 
12-  6  1  * 
15-  BS  W 

9-  B  S  W  The  Best  Selleri 


Lilt 

27500 
22500 
15900 

Uil 

179.00 
1J9-00 
2M.M 
229-00 
199.00 


UtI 


Ow 
Prki 
165-00 
179  OO 
1 19.00 
Om 
PTke 
IM.OO 
165.00 
115  00 
199.00 
159.00 


Ptke 


XEROX  820 

WORD  PROCESSING  SYSTEM 
(INCLUDES  SOFTWARE) 


OUH  PRICE    --         o-r-n 
3495.00 


TERMINALS 

TELEVIOEO 

910 
912C 
92DC 
950C 


Ua 


Dm 

Pmi 


U99  00  1599.00 

950.00  «900 

99500  795  DO 

1.195.00  94900^ 


DISKETTES  sold  in  boxesof  lo"' 
(Min.  Purchase)  JlOO      ^1,1       F^ 

MICE  Kl  DBUm 

600  399 


DTSAN 

104/1  5-  SOFT  SECTOR 
104(10  =•  DBL 

DEN.  SOFT  SIC. 
3740/1  J-  SOfT  SECTOB 
3740iID  i'  DBl 

DEN-SOfT  SECTOR 

MAXELL 

MDI  S-  SOFT  SEC- 
TOR/DSL. DEN 
HD2   -  SOFT 
SECTOS/DBL.  SIDEJOBl. 

DEN- 
FDl  !-  SOFT  SEC-(DBl 

DEN. 
FOI  J-  SOfT  SEC  (DBl 

SIDE/DBL  DEN 


640 
7.25 


4.(0 
47S 


:  ALTOS  MS  1000-15       5990dd  ksooo' 


StlA»P.t4)lZI0FULl.K8Ot»32«l      CALL 
ytCPCSOOI  129500     105000 


Lilt  Price 
3  750  00  >3  050  00 
5.350.00  4.449  00 
5,450.00   532500^ 


F0«  kmi  ii"^- 


'Apple  Foriraiv 
DOS  3.3  HE  Sedon 
Apple  PILOT  (16  Sectorl 
Aiple  FORTRAN 

Ireqjires  A2BO0O6I 

116  Sector) 
Lareuase  SyslHTi  wrh 

Aopie  Pbc*I 

BPI  General  Ledier    Syslem 
BPI  Inveilory  Packafe 

Visidei 
VJSifiJfC 

Desktop  Plan  II 
MicrolaO  Database  Systerr 
Stoneware  DS  Master 
Muse  Superlexl  II 
Sottape  Magic  Window 


495-00 
395.00 
395.00 
200.00 
200.00 
200-00 
15000 
22900 
150.00 
99  00 


399.00 
31900 
31900 
159  00 
159  00 
15900 
119.00 
II8W 
U9.D0 


Qcommoclora 


Vic  TV  Uodual (19.00 

Vic  Cassette 169-00 

Vic  Disk  Drive SCaJI 

Vic  6  Pick  propin 144.00 

MSL     OUR  PRICE-St«« 
299  00  S255.D0  44.00     , 


SOFTWARE     ,--^, 

FOR  COHHOOORE     "' 

Cu  Tlw  Inlerrflatroi  Wizard 
WomcraH  10 

limtkito  Retnevaj  &  H0nL  Aid 
Dow  Jones  Por^olio  Himt. 
Pascal  Oevelopmert  Pkg 
Ebs-Aecervables.  Inventory 
Bpi-General  LedEer 
Hord  Pro  3-40  Column 
Kord  Pro  t-IO  Column 
Word  Pro  4  Plus 


list 

395.00 
395  00 
495  OD 
I49DO 
2S5.00 
750.00 
395.00 
250.00 
375.00 
450.00 


Oh 

Prict 
I2B0O 

2n.ni 

3».00 
119  00 
2I9-Da 
569.00 
3(9.00 
175-00 
259.00 
3190O 


MODEMS 


NOVATJDK  CAT  MODEM 
HOVAIIOK  DCAT 
NOVATION  APPLE«T 
HATES  kUCROMOOEM 
NArES  SHARTMODEM 


I99.0O  15000 

349.00  31000 

379.00  295  00 

27900  21900 


CALCUmTORS("~--, 
"sn  itiiil'uii 

HRIO  Paper  Feed  i  ::::::  i  49.95 
KR 12  Paper  Feed  IIV.";  54.95 
FR  100  Paper  f(«  JJIJ;  79.95 
FR-1210  Piper  Feed  i"^"cj  129.95 
P(}20  29-95 

LC7S5  12.95 

LC3165  12.95 

FX-68  ScienMi:  2995 

FI-(1  Stienbfic  1995 

FX  360OP  ScieoMc  39.95 

FI-602P  -ComBntM  Talk"  U  Memones  Pro 
inrrmini  Upper «  Lower  Otie  Dot 
Malrii  512  Step  129.95 

FX.702P  Solves  Protlems  Willi  Alplia 
Numenc  Clarrty.  jses  Basic 
ilanenlle  199.95 


TELE.  ANSW. 
DEVICES 

PM04IE  MATE 

900 

905  Remsle 

910 

920 

525  Remote 

930  Remote 

950  Rtmole 

960  Remole 


UsI 

119.95 
199.95 
15995 
199.95 
239.9S 
299.95 
339.95 
399.95 


OwPr 

K.OO 
144.00 
115.00 
144-00 
173.00 
216.00 
245.00 
2M-00. 
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Talax:  182BS: 
AninntrMICKOTZNA 


M^me  {Please  print) 

Address 

I  City 

Oty 


Make 


-Stall. 


-Zlp- 


DescrlpHon  Price      Total 


TOTAL  CROERS  _ 
TAX  If  APPLICABLE 
SHIPPING!  HANDLING 
TOIALEKCLOSEDI 


Cenlllad  ChKk  or  H.O. 
Bank  Win  Trinitor 

:^EDITCAR-D#    

•    Eip  Qate_ 


:  Alloiw  2  WHicB  civiranca  lor 
paraonat  cKiack 


VISA 
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new  level  of  efficient  disc  man- 
agement for  programs  requiring 
sophisticated  multi-key  accessing. 
CIMAR  performs  all  read,  write, 
change  and  delete  fiuictions  and 
supports  up  to  five  opened  keys 
concurrently.  Future  hard  disc 
emulations  with  an  unlimited 
number  of  secondary  keys  will 
provide  a  "big  system"  working 
environment  at  low  cost. 

With  a  random  access  speed 
gain  of  nearly  6()^c  and  a  sequen- 
tial speed  gain  of  over  45%,  even 
programs  with  heavy  posting 
routines,  sorts  and  fetches  can 
become  practical  and  manageable. 

CMAR  integrates  its  dynamic 
file  substrticttu'c  with  the  applica- 
tion program  and  Commodore 
Basic.  Since  the  file  system  is 
dynamic,  no  file  reorganization  is 
ever  required  as  in  ISAM  and 
Binary  Tree  configurations. 

CMAR  requires  less  than 
lOK  bvtes  of  memorv  and  can  be 


expanded  to  any  operational  file 
size,  limited  only  by  disc  storage 
capacitv.  Files  can  consist  ot 
2,000  to  20,()0()  keys  depending 
on  key  size.  Additionally,  two 
kinds  of  key  files  are  permitted:  a 
primary  key  and  its  associated 
data  record  both  based  on  relative 
file  format. 

CMAR  is  available  through 
CIMARRON  and  is  priced  at 
$99.00  dealer  net.  A  multiple 
quantity  discount  structure  ior 
applicatitjn  developers  is  also 
offered.  Docinnentation  only  can 
be  purchased  separately  for 
.$10.00  on  diskette  in  WordCraft 
80  format. 

OSI  Screen  Editor 

Edit  All  is  a  full  screen  editor  for 
OSI  computers  from  DMP  Sys- 
tems, 319  Hampton  Blvd.,  Ro- 
chester NY  146 1 2.  It  replaces  the 
standard  I/O  routines  to  allow 


the  user  to  edit  any  program  line 
that  is  on  the  screen.  As  editing 
takes  place,  the  line  is  dynamically 
expanded  or  contracted. 

Edit  All  supports  a  scroll 
windtnv  screen  handler  that 
allows  you  to  define  where  on  the 
screen  you  want  your  output  to 
go.  All  output  to  the  screen  is  via 
a  window  whose  length,  height 
and  width  are  all  user  changeable. 
Full  cursor  control  is  supported 
along  with  an  instant  screen 
clear.  Edit  All  works  with  OSB5D 
Basic  and  Assembler.  Price  is 
119.95  for  5'/.  disk. 

World  Book 
Encyclopedia  Now 
On  CompuServe 

Columbus,  Ohio  —  The  Compu- 
Serve Information  Service  today 
annoimced  the  signing  of  an 
agreement  with  World  Book 


Hardware 

ATARI  400  COMPUTER 

ATARI  825  PRINTER 

ATARI  850  INTERFACE  MOD. 

16KRAM 

32KRAM 

Software 

ATARI  WORD  PROCESSOR 

MISSILE  COMMAND 

ASTEROIDS 

UK  LETTER  PERFEQ 

DATASOF  TEXT  VIZARD 

VI51CALC 

Medio 

VERBATIM 
DYSAN 

We  offer  rfie  most  complere  seleoion  of  name 
brands  in  itie  counny.  Srock  items  ore  shipped  \be 
same  day.  30  day  guoronree.  Your  sotisfoction 
^_^^ and  UNlCO^W^  prices  mode  our  repurarion. 

THE  PURCHASING  SERVICE  FOR  HOME  &  BUSINESS  COMPUTERS 

1247  LINCOLN  BLVD.  SUITE  F,  SANTA  MONICA,  CA.  90401    (213)  451-6089 


'Printers 

.    - 

325.00 

EPSON  MX-80 

call  us. 

569.00 

EPSON  MX-SOF 

call  us. 

155.00 

OKIDATA  62A 

■  499.00 

69.00 

NEC  8023A 

639.00 

109.00 

IDS  PAPER  TIGER  460G 
Modems 

895.C0 

109.95 

HAYES  MICROMODEM  II 

269.00 

29.95 

HAYES  5MARTM0DEM 

119.00 

29.95 

NOVATION  AUTOCAT 

call  us. 

109.95 

99.95 

AAon  iters 

139.95 

NEC  12"  GREEN 

179.00 

NEC  13"  COLOR 

399.00 

AMDEK  1 2"  GREEN 

149.00 

24.50  /box 

ZENITH  12"  GREEN 

124.00 

17.50 /box 

^^%^?^?     ^h   A  ^  a  ■     J^0^ 

QamD== 


NEC 

Microcomputer 


PC-800IA  3!K  Computer CALL 

PCB012A  I/O  Unit  V1./3ZK  RAM CALL 

PC-80I3A  Dual  Hlnl-Duk  Drtvr  Unil CALL 

PCSOOI  Mu!tlCatdurO!i!(FDI/0&32K) CALL 

CP/M  2.2  OpeTOlIng  System  lor  NEC 129 

WordStaf  conflgurcct  for  NEC 299 

SupeiCalc  cunflaurcd  for  NEC 279 

NEC  Wordptocessor  &  Accounting  Software CALL 

Mativ  mote  soflu/ar?  packag^^  and  languages; 
{PascaL  Fortian.  Cobol.  etc)  are  available  cohfigured  for 
the  NEC  SOOIA  Computer. 
FIvAVf  call  or  write  for  a  producf  price  list. 


ATARI 
800 
16K 

$749 


A(»rt*00w/16K 349 

410  Piogram  Recorder '55 

810  DIsli  Drive ^  449 

825  60  col.  7x8  Dot  matrix  Empacl  printer 699 

822  40  coi.  Quiet  Tliermal  Printer. .  . .  , 349 

850  JnteKace  hfodule , ]  59 

Atari  16K  Katn  Module.  . , '///.'.  .69 

Axloti  Ramcram  32K  Module. ..../.['.  !i89 


Video  Monitors 

Amdek/Leedex  Video  100  12"  B&Vi  155 

Amdek  ,/Uede«  Video  1 OOG  12"  Green  Phoapher ! .' :  179 
Amdek(Hli»chi)  13-Colorw.'audlo  output,  389 

«3rJ;  l^F"^"  '''"••»>"'•  Display  JB1201IH '.CALL 

NEC  1 2" Lo-Res  Color  Display.  ..  cAl  1 

NEC  12"  H|.R„  RGB  Color  Dl.piav    , CALL 

Sanvo  9-  B&W  Display ...  igj 

Sanyo  9"  Green  Phospher  Display .  .  ca, , 

Sanso  I2-B&W  Dlaplaj,. '  ..V,   '      ^ 

Sanyo  12"  Green  Phoopher  Display      irk 

Sanyo  13"  Color  Display ' Jjg 

Zenith  12"  Green  PKospherDiipUvZVM-iii.']  .']  "J49 

ZENITH 

12" 
GREEN 


$149 


VIC20 


$259 


[appkz  computer 

T-  Authorized  Dealer 


APPLE  n  PLVS 
16K     NOW    $1025 
48K     NOW   $1089 
64K*jvow   $1199 

■48K  Apple  with  16K  Ram  Board 


\||^^ 


APPLE  DESK 
DRWES 


$439 


w /controller  and  DOS  3.3  $499 


Apple  Cards  and  Hardware 


Lnngnage  Syilem  w!  Pascal  &  BASICS 
Silenlvpe  Printer  w  .'interface  card 

Hayes  Micromodeol  II    . 

Novaliou  Apple-Cat  .......... 

Vldea  VideoteTm  SO  coluna  card 

VIdex  Keyboard  Enhancer 

Z-80  Softcard  by  Microsoft 

16  K  RamCard  by  Microsoft  . 

CPS  MaltMnnctlon  card  ....... 


.  ..379 
...349 
..299 
..339 
..269 

..lis 

..299 

.  .ie9 

.  .  189 


Software  for  the  Apple 

VIslCalc  version  3.3  . 159 

VislFile  (NEW  data  base  manager)    199 

VlaiTrcnd/VlslPlol    219 

DB  Master ]£$ 

WordStar  (Apple  BO  col.  ventoo) 249 

Dow  Jonu  Portfolio  Evalaator 45 

Apple  Poal ,,....  45 

Apple  WrKer , .  .  6S 

Dow  Jones  News  &  Quatea  Reporter i  ]  85 

Apple  Plot , £0 

Tax  Preparer 99 

Real  Estate  Anatyier 129 


16K  RAMBOARD  by  ConComp 

for  Apple  II  Computers 


Personal 
Computer 

Color  ■  Sound  '  Graphics 
<^all  or  write  for  more  info. 
Disk  drives  avoilable  soon! 


S-100 

California    Computer 
Systems 

Floppy  Disk  Controller  $369 

64K  Dyn«iBic  Ram  Board,  200ns     $499 

Z-80  CPU  board  w/  monitor  ROM    S269 

16K  Static  memory  board.  200ns 369 

32K  Static  itiemorv  board,  200ns 599 

S- 100  12  Slot  Mainframe 47S 

4Port  Serial  Inici/ace 499 

2Port  Serlal/2Pon  Parallel  Interface 299 

4*Poit  Parallel  Interface ..,.,,,...... 229 

Printers 

Silentype 

w/ Apple  11  interface 

$349 

Epson 
MX-80  or 
MX-80  FT 

CALL 

Anadex  9501  W/2K  Buffer 1349 

C.  Itoh  Staiwrlter  25  CPS  dalaywheel ...,.,,'.'.'.'  I449 

C.  Iioh  Stanivuter  45  CPS  dalsywheel ,  1649 

Epson  MX-70 CALL 

Epson  MX.80&  MX-80  F/T .CALL 

Epson  MX- 100 , ,  '  'cjU_L 

NEC  8023  Impact  Dot  Matrix '. .'.'.'.'.'.'.'.'.'.'.  .695 

NEC  Spinwrlters  ILatest  models) ..........     " '  CALL 

Paper  Tiger  1DS-445G  u-Zsraphles '.'  ','     (99 

Paper  Tiger  1DS-460G  w/graphlcs '. .  ..9^9 

Paper  Tiger  1DS-S60G  w/sraphics ,,  !  1249 

SHentype  Printer  w/Apple  Interface .'.  . !  .349 

Qume  Sprint  Dalsyivheels  (Latest  modela) CALL 

ORDER  TOLL  FREE 

800-854-6654 

In  California  and 
outside  continental  U.S. 

(714)  698-8088 

Telex  695-000  Beta  CCMO 


Send  Orders  To: 


Ordering  mformaiion  Phone  ojiien  u^ing  VISA.  MASTERCARD 
AMERICAN  EXPRESS,  DINER  S  CLUB,  CARTE  BLANCHE,  bank 
A^ifsr  lian^fei.  cashier's  oi  certllied  theck.  monev  mti<?!.  Ol  ptfltonal 
chngck  laWow  len  days  to  ciear)  Unlew  pufpihd  wiih  caih ,  pWw  fldd 
Si%  for  shipping,  handling  apid  insuMnrc  (mmifMum  5  OOt  Caldor 
Tiijr*-sidenlsaddt>%  saWMflx  Wt  acctrpt  CODi  OEM  vJniHtuhons 
jnd  corpor^iions  p(i;aM>  wild  (o!  a  wrJit^n  {ijuotaDon  AD  i-qwpmenl 
;i  iubjtti  !o  pTK*  change  and  availabtliiv  vwiihour  notKit  AH  eqjip 
m^nt  i  new  and  complete  u/jih  manulfatluis'is  wwanantv  (liiuatly  90 
dai,fl    ShoutOOrn  pntes  may  diUt  Uom  mail  older  ppcei 


5)m§oa 

g   Mailorder 

8314  Parkway  Drive 
La  Mesa.  Calif.  92041 
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Encyclopedia  lo  cooperate  in 
developing  tlie  on-line,  electronic 
version  ofllie  encyclopeclia. 

Robeil  King,  cliainnan  ol 
the  board  of  directors  at  World 
Book,  a  subsidiary  of  Scott  8c 
Fetzer  Company,  said,  "We  ex- 
pect to  develop  significant  new 
services  utilizing  our  existing 
database,  both  for  the  lionic  and 
btisiness  markets.  This  service 
will  add  a  new  dimension  to  the 
printed  edition  of  World  Btxtk." 

CompuServe  subscribers  can 
access  the  Woi'ld  Book  service 
for  the  standard  fee  of  $5  per 
hour  weekday  evenings,  all  day 
weekends  and  holidays.  Weekday 
daytime  access  is  also  available. 
To  use  the  service,  a  subscriber 
needs  a  personal  computer  or 
terminal,  a  icleplione  and  a 
modem. 

CkMupuServe  also  offers  the 
latest  news  from  major  newspa- 
pers and  a  national  wire  service, 


corporate  stock  and  coiumodities 
information,  home  banking, 
electronic  mail  and  real-time 
commiuiicalioris,  coin|)uicr 
games,  family  information  and 
computing  power  fbi  program- 
ming activities. 

CompuServe  is  available 
through  a  local  telephone  call  in 
more  than  2(i0  f'.S  cities.  Compu- 
Serve is  an  H&R  Block  Company. 

K-BYTE™  Introduces 
K-RAZY  SHOOT-OUT  " 
Between  Space 
Commanders  And 
Alien  Droids 

It's  a  battle  of  wits  and  fast  action, 
this  game  in  ROM  form  for 
Atari*  400'"  or  Atari®  800'" 
Personal  Computer  Svstcms.  K- 
B\'TE's  K-RAZV  SHOO  T-OUT 
is  available  in  a  solid-state  car- 


CBM/PET?  SEE  SKYLES  ...  CBM/PET? 


PET  owners  everywhere  sing 

Jj  Thanks  for  the  Memories  J  J 
to  good  old  Bob  Skyles 

...they  should... because  Bob  Skyles  is  the  only  complete 
source  for  memory  boards  for  any  PET  ever  sold.  Old  Bob 
won't  forget  you. 

And  the  Skyles  memory  sysiems  have  ihe  highest  quality  comro!  of  any  computer  prod- 
uct e\er.  Over  100  million  bits  of  Skyles  memory  boards  are  already  in  the  field;  you  can 
count  the  total  number  of  failures  on  the  fingers  of  one  hand.  First  quality  static  and 
dynamic  RAMS,  solid  soldered  on  first  quality  glass  epoxy.  That  is  why  they  are  guaran- 
lied  —  in  spile  of  ihe  neK  lower  prices— for  ■  full  Iwo  years. 

The  boards  connect  directly  to  the  data  bus  on  your  board  whh  ribbon  cable  and  50  pin 
connectors  that  keep  the  data  bus  open  lo  the  outside  world.  Installs  in  minutes  wnhoul 
special  tools  or  equipment . .  .just  a  screwdriver. 

Because  of  our  new  dynamic  memory  design,  and  to  celebrate  the  Skyles'  Thrnl  Annual 
Survival  Anniversary,  iicre  are  the  smashing  new  prices: 

The  SK  Memory  Svstem        originally  S2S0.OO      non- $200.00       Save  S  50.00 
The  16K  Memory  Sy!.iem      originally  $450.00       now  $300.00      Save  $150.00 
The  24K  Memory  System      originally  $650.00      now  $400.00       Save  $250.00 
For  any  PET  ever  made.  When  ordering,  just  describe  your  PET  by  motiel  number 
and  indicate  the  amount  and  type  (or  brand)  of  memory  currently  in  the  unit. 

Shipping  and Har,dlmg fUSA/Canada/  S3.50     (Europe.'As.a)  SIS.OO 

California  residents  must  add  6Va/6'/i%  sales  lax.  as  required. 


Skyles  Electric  Works 

231K  South  Whisman  Road 
Mountain  View,  taiifornia  94M1 

(415)  965-1735 


Visa/Maslercard  orders;  call  toUfree 
(800)  in-Wti  (except  California). 
California  orders:  please  call  (415) 
965-1735. 


triclge  (ROM  pack),  individually 
tested  to  assure  reliability  and 
euslomer  satisfaction. 

K-liYIK's  K-RAZ\'  SHOOT- 
OUT is  destined  to  be  a  favorite 
of  Atari  enthusiasts  across  the 
country. 


/lAiaO  ■■•  S3nA>IS  33S  6l3d/IAiaO 


For  details  on  K-RAZY 
SHOOT-OUT'",  contact  Chuck 
Miller  at  K-BYTE '".Division  of 
Kay  Enterprises  C^o..  170,^  Austin. 
Trov,  Michigan  48009.  Phone: 
{3l3).524-9878. 

The  Stock  Market 
Goes  Home 

Marketscan,  a  new  personal 
online  slock  inaiket  service  was 
formally  announced  today  by 
Barbara  Hyland,  Manaf>er  of 
Info  Globe. 

"We're  introducing  Market- 
scan  to  meet  the  demands  for 
online  information  bv  j^crsonal 
computer  users,"  says  Hyland. 
With  Marketscan  a  user  can  get 
daily  quotations  for  all  slocks 
listed  on  the  Toronto.  Montreal, 
Alberta,  Vancouver,  New  York 
and  .\merican  Stock  Exchanges. 
The  higli.  low.  close,  and  trading 
\-olume  are  displa)ed  in  faitiiliar 
formats.  Markcl.scan  provides  a 
variety  ol  services.  A  user  can 
analyze  a  specific  slock  on  one  or 
several  exchanges  or  several 
stocks  at  one  time,  monitor  an 


iJ  ^^J  iWlJ  lA^n  ki 

Authorized  Commodore  service  center 
Repair  of  the  complete  line  of  Commodore  products 

In  a  huriy?  Check  our  modular  exchange  program 


Printer 


commodore 


HARDWARE: 

CBM  8032  Computer,  80  Column  S 1 095 
CBM  8050  Disk  Drive  )  340 

CBM  4032  Computer,  40  Column  995 
CBM  4040  Disk  Drive  995 

CBM  4022  Printer  649 

CBM  VIC  20  Computer  263 

CBM  VS 100  Cassette  68 

PET  to  /EEE  Cable  33 

IEEE  to  IEEE  Cable  39 

BASF  Diskette,  Box  of  1 0  30 


Order  TOLL  FREE  T +800-527-3 135 

10  AM  to  4  PM  CDT  Monday  through  Friday 

Texas  residents  call  I  +2 1 4-66 1  - 1 370 

VISA,  MASTER  CHARGE,  MONEY  ORDERS,  AND  C.O.D.  "Certified  Check"  accepted. 

Units  in  stock  shipped  within  24  hours,  F.O.B.  Dallas,  Texas. 

Ad  equipment  shipped  vwth  manufeaurer's  warranty. 

Residents  of  Texas.  Louisiana,  Oklahoma  City  and  Tulsa,  Oklahoma  must  add  applicable  taxes. 


SORWARE: 

OZ2 

S299 

Wordcraft  80 

299 

Tax  Preparation  System 

380 

IRMA 

380 

Dow  Jones  Portfolio 

Management  System 

115 

Personal  Tax 

55 

Pascal 

229 

Assembler  Development  Package  77 

Wordpro  4+ 

329 

Eclectic  shortly  will  be  announcing  products  that  are  designed  to  work  with  CBiVI  systems. 

1 .  ROMIO;  two  RS232  ports -three  parallel  ports -26K  EPROM  memofA^managed 
alternate  character  set  software  controlled  -  ECOS  (extended  DOS). 

2.  Terminal  program  (options  with  ROMIO)       4.  Front-end  processor 

3.  EPROM  programmer  5.  Additional  firmware  to  be  announced 
Be  sure  to  write  the  address  below  for  more  information;  dealer  inquiries  welcome. 


P.O.  Box  1 166  .  16260  Midway  Road  -  Addison,  Texas  75001  .  (214/  661-1370 


Now  with  added  words.'  ^ 

ELECTRIC  MOUTH 


for  s  100,  E!f  II,  Apple     ,^     it^nnnt;.. 

Now —  teach  your  computer  to  talk, 
increasing  interaction  between  you 
and  your  machine. 

Thdl  5  nfih!:  th*r  ELE(.TK!C  MOlfTH  ailually  Iks  your  oomputpr  lnik'.  InjtaflH 
nntl  iin-line  in  jusl  miciuie^.  i!  s  n-ady  for  spcikm-lanKUOHc  uif.  iti  ofRce  busi- 
ness, irndusirial  and  (smmerctj]  appiicaiions.  dixi  Ln  xdmrs.  sprdal  proin:t!( 
RAD.ediicaliion,  security  dcvicps — thPW'Lnoenri  In  ihc  KliiCTKJC  MOUTH'5 
u!i^riil[icss.  Look  at  thiTH;  fralum: 

•  Stipplird  wilh  143  leiiersfwordi/plKHKinra/numhEn.  (upabln  uf  pmdu;.inR 
hiind7pri5ofword*.if>d  plirfl-ws 

•  KiphirKJahV  fm-Kierd  up  lu  ihiiuvinds  n!  HTirdi  and  phrAw*«  w<ih  dddilKtndl 
iptrch  ROMs  <»«■  flrw  ipntJi  RCJMI  dtscribrd  Iwkiw) 

•  VwE  modfttv  thai  jAna  dirw:'(ly  mut  SIOO.  Appk ,  Elf  II  and  TRS-aO  U:v\'\  II 
aimpiilrri. 

•  tier  ELECTRJC  MOIJTH  U^  Ulk  wiih  Mlher  Basic  ur  nwthirw  UnpiaE*  (wr^ 
f.t*yln  use,  cAmplere  mslruaiuni  MJlh  exampl»  int]iidrd) 

•  Uses  National  SemimralLiilnrf  "Digilalker  " 

•  lnc;1udirsoli-boa.ri]duclbrimpliftc;rdndspcal:rr.  wUh  proviiions  for  external 
speakers. 

•  In^lAJt^  in  JLi^l:  [nintili!s 

IMnclpte  of  Opwilion:  Th<'  ELECTRIC  MOUTH  sfort'ii  ihc  dlKildl  rt)iiiidltni5 
(if  n.'(in|ii  in  RUMs  Wht-n  ururtli  phnivps  and  pKnocrrM-i  jire  licjirrd,  Ihcy 
MmpJy  arr  csllml  for  by  ymir  pniKram  and  then  iynltw^iml  inloi  spew^  Thf 
KLECTRIC  MOirrH  \jsiim  rvquirc^  none  ol  >-nur  v.iJujhl*-  m-Tntrf  %paa:  ex- 
fcpi  ftir  J  few.'  jildr»v^  (dmil  tn  fwfwifytrwppifl  civnilr  In  mu»<  cw*.  ouipui 
fyitls  (uwr  soled ahlr(  arr  uwtl 
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ConilnenlBl  II.S.A.  Credll  Card  Buyeis  Oulsldc  tonncctlcul 

!  TO  ORDER 

■     Call  Toll  Free:  800-243-7428 

t     To  Order  From  Connecticut,  or  For  Tbctinical 
;     Assistance,  call  (203)  354-9375 

.NETRONICS  R&D  LTD. 

331  UtChdiUd  Road, NBWMiltDrU.CT 06776 

,,    ,        DeptPE 
;  f'Imsc  send  Ihc.  ilBms  checked  bv.hw: 

•  D  SlOO  "Eleclric  Moulh"  kit  w/Vox  I S  99.85 

;  D   Elfn"E!i!CliicMoiHh"kilwA'oxl S  99.95 

i  D   Apple'-Elcctric  Mnulh"  kit  wA/ox  I S119.95 

■  G  TRSJ0UvtllI"ElM:1ricM<nilh"kilwrt'oxl ilW.SS 

;  G   VOXIl(S«;ijndlVindSel| *  39-95 

'   .■\,li1saicll[,iri*ir»li..%r,.l„nLi.  ,nMi>«lf]!ki'-n  VII X  lliMi^rjsr-A  Ln4,iMnr,. 
'  Slim  .,li„!bi-r-.iinil|i,H!,,i(,*jrwl  iiwiiranij.  Cinn  n-.  .iHil  ..il'-^  lat 

!  Total  Enclosed  S 

■n  Personal  check  D  Casliler's  Ctieck/Mone)' Order 

Sn  Visa  □  MaslerCliarBe  (Bank Ho.  ) 

•Accl.Na.  Ejp.Dite 


■  Slgnatuie  

:  Prlni 

J  Name 

•Addifiss  — 

Icily 


;  Slale 
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entire  exchange,  or  compare  a 
stock's  activity  within  a  specific 
range  ofdalc.s.  Marketscan  re- 
quires iKJ  specialized  training. 

For  more  information  contact: 
Barbara  Hyland  416-598-5250. 


CUE  Fall 
Conference 
Proceedings 
Available 


Over  1400  people  attended  the 
Second  Annual  Fall  Coiirerence 
of  Computer-Using  Educators 
(CUE)  in  San  Jose,  California  on 
October  2  and  3,  1981. 

The  conference  led  off  on 
Friday,  October  2  with  3  I  hands- 
on  worksliops  at  schools  through- 
out the  San  Francisco  Bay  area 
and  19  field  trips  to  local  com- 
puter related  companies.  Over 
650  people  paiticipated  in  these 
activities.  Friday  evening  the 
keynote  speaker  was  John  D'.\n- 
geloof'Iexas  Instruments,  who 
discussed  the  language  LOGO 
and  displayed  on  a  projection 
TV  screen  his  company's  imple- 
mentation of  that  language. 

On  Saturday  attendees  heard 
Steve  Jobs,  Ciiairman  ot  the 
Board  of  Apple  Computer,  Inc. 
and  one  of  the  inventors  of  that 
machine,  discuss  his  image  of  the 
future  of  computers  in  education. 
For  the  remainder  of  tiie  day 
conference-goers  chose  from  85 
curriculum  sessions,  50  commei- 
( ial  presentations,  and  45  cotn- 
inercial  e\bil)its. 

The  Proceedings  for  this 
conference  will  contain  contribu- 
tions from  most  of  the  speakers, 
and  will  be  a  valuable  reierence 
for  those  unable  to  attend,  or 
those  who  mi.ssed  particular 
sessions.  To  receive  a  copy  of  the 
Proceedings  of  the  1981  Fall 
Conference,  send  a  check  for  $10 
(no  purchase  orders,  please)  to: 

Don  McKcll 

Conference  Proceedings 
Independence  High  .School 


1776  EducaticHi  Pi:rk  Drive 
San  Jose,  C  A  95 133 

Proceedings  from  past  con- 
ferences are  still  available  in 
limited  quantities:  Fall  1980  — 
.¥10;  Spring  1981  -|  10,  Send 
requests  to  ihe  same  address. 

Computer- Using  Educators 
is  a  non-profit  California  corpo- 
ration founded  in  1978  to  pro- 
mote the  educational  uses  of 
computers  in  schools  and  col- 
leges. Il  sponsors  4  ma^or  confer- 
ences per  year,  issues  a  bi-monthly 
newsletter,  and  maintains  a 
library  of  non-commercial, 
teacher-developed  educational 
software  for  5  popular  micro- 
computers. Dues  are  $6  per  year, 
payable  to  CUE,  c/o  Don  McKell, 
Independence  High  School, 
1 776  Education  Park  Drive.  San 
Jose,  CA  95133. 

Commodore  Enters 
Into  Memory  Disc 
And  Tape  Drive 
Manufacturing 

Mr.  Irving  (iotild,  Chairman  of 
the  Board  otC'ommodore  Inter- 
national Limited  (\VSE:CBU) 
announced  Commodore's  entry 
into  the  microcomputer  memory 
disc  and  tape  drive  manufac- 
turing business  with  the  intro- 
duction of  (bur  new  nuilti- 
inegabyle  storage  devices. 

Mr.  Gould  stated  that  the 
"first  two  stoiage  devices  will  be 
5'/i-inch  Wliulicster  f)  4  meg- 
alntc  and  9.6  megabyte  magnetic 
rigid  disc  drives  capable  of  storing, 
respectively,  up  to  6.4  million 
and  9.6  million  bytes  cf  informa- 
tion. These  two  mcmorv  sttnagc 
devices,  which  will  be  biiill  and 
l>ackaged  to  Commodore  specif- 
ications, will  Ije  introduced  at 
COMDEX  '8 1 .  4"he  exact  price  of 
these  two  microccimputer  mcmo- 
rv storage  devices  will  be  an- 
nounced at  that  lime,"  noted  Mr. 
Gould,  "but  they  will  be  priced 
consideral)lv  lower  than  anv  com- 


3l        Computers 
ATARI        for  people: 


800,„  ^699 


A\Q  Recorder 
BIO  Disc  Drive 
822  Printer 
B25  Prinler 
B30  Modem 
820  Piinier 
B50  Inlerlace 
New  DOS  2  System 
CX70Ligm  Pen 
CX30  Paadie 
CX40  Joy  such 
0X853  16K  RAM 
Microlek  16K  RAM 
Microtek  32K  RAM 


.  S59  00 
.  SaJtOO 
.  $359.00 

S629  00 
,   $15900 

S269.00 

Si  59  00 
.  $21  00 
S6100 
SIS  00 
SI  8  00 

sasQO 

$7500 
$169  00 


One  year  extended  warranty , , . SSO.OO 


ATARI  400 
16K. . . .  $329 
32K. . . .  $478 


48K. 


$555 


Intec  4aK  Board S249 

ATARI  SOFTWARE 

CX404  Word  Processor 

CXJOa  PILOT 

CX413  Microsoll  Basic 

CX4101  Invitation  To  Programtng  I 

CX4102  Kingdom 

CX4103  Statistics 

CX4t04  Mialing  Lisl 

CX4105  Blaciiiach  

CXdlOB  Invitation  to  Programing  2 

CX4107  Biorylhm  _ 

CX4108  Hangrnan 

CX410a  Graohll 

CX4n0Toucri  Typing  . 

CXitlt  SPACE  INVADEftS  .    . 

CX4n2  stales  a  Capitals 

CX4m  European  Countries  &  Capitals 

CX41 15  Mortgage  &  Loari  Analysis 

CX41 16  Personal  Fitness  Program 

CX41t7  Invitation  To  Programing  3 

CX4 1 18-20  Conversational  Languages  (ea  j 

CX4I21  Energy  Ciar    

CXL40ai  EOi/cahonal  Master 

CX600 11 7  Talk  &  Teacti  Series  (eai 

CXatOe  Bond  Analysis  . 

CX8107  stock  Analysis 

Cxeioi  Sloch  cnaiting 

CXLd002  Basic  Computing  Language 

CXL4003  Assembler  Editor 

CXL4004  Basketbatl 

CXL4005  Video  Easel 

CXL4006  Super  Breakout 

CXL4007  Music  Composer  ..    . 

CXL4009  Chess 

CXL4010  3-DTiC-Tac-Toe 

CLS4011  STAR  RAIDERS 

CXL4012  MISSLE  COMMAND 

CXL4013  ASTEROIDS 

CXL4015  TeieLiiik 

Visicalc 

LeIIer  Perfect  (Word  Processor)        

Source 


$119  00 
$68  00 
$68,00 
$17  00 
$13  00 
SI  7  00 
SI  7  00 
,  SI300 
.  $20  00 
S 1 3  00 
S13  00 
S17  00 
$20  00 
$17  00 
ST300 
S13  00 
S13  00 
S69  00 
S20  0Q 
S45  0Q 
$13.00 
J21  00 
$23  00 
S20  00 
S20  00 
$20  00 
$46.00 
S46.Q0 
524,00 
$24.00 
S33.00 
545  00 
S30  00 
$24  00 
$39.00 
532.00 
$32,00 
$2000 
$149  00 
$109  00 
S89.00 


^commodore 


CBM  8032  $1149 

4016                                       .  .         $799.00 

4032  $999  99 

8096  $1795  00 

CBM4022  Punter  $629  00 

Tally  8024  S1699  00 

CBM  C2N  Cassette  Drive  $69  00 

CBM4040  Dual  Disk  Drive  .       $1039  00 

CBM8050  Dual  Disk  Drive    .  ..    .$1349  00 

CBM  2031  Single  Disc  Drive $525.00 

CBM  8300  Leiier  Quality  Pnnler $1799.00 

CBM8023P132Column  Printer $799 

SOFTWARE 

V;ordPro3  Plus  $229  00 

WordPro4  Plus  $32900 

Commodore  T3J  Package  $399  00 

Visicaic  $149  00 

BPI  General  Ledger         ...  $329  00 

OZZ  Information  System  $329  00 

Dow  Jones  Portfolio  5129  00 

Pascal  5239  00 

Legal  Time  Accounting  $449,00 

Word  Craft  80               '          .  . .        $289.00 

CreateA-Base  $249  00 

Power  $8900 

Socket  2Me  $20  00 

Jinsam  SCall 

MAGIC  SCall 


il'i'i'i'i'i'i'i'i'i^B  B  \ 


VIC  20   $259 

VicTV  Moduai  $19  00 

Vic  Cassette  $69,00 

Vic  6  Pack  Program  $44,00 

VIC1530  Commodore  Datassette  $6900 

VIC"t540  Disk  Drive  .    .  S499  00 

VIC  ISIS  VIC  Graphic  Printer  5399  00 

VIC1210  3K  Memory  Enpander  S32  00 

VIC1 1 10  8K  Memory  E«pander  $53.00 

VICIOII  RS232C  Terminal  Interlace    ,  $43  00 

VICl  112  VIC  IEEE  488  InteilacB $86  00 

VIC1211  VlCJOSuocr  Eipander $53  00 

VIC1212  Programmers  Aid  Cartridge  .        $1500 

VIC1213  VICMON  Macnine  Language  Monitor     $4500 

VIC1901  VIC  AVENGERS $23  00 

VIC1904SUPEHSLOT  S23  00 

VIC1906  SUPER  ALIEM  .    .  $1900 

VIC1907  SUPER  LANDER  $23  00 

VIC1908  DRAW  POKER  .  $23  00 

VIC1909  MIDNIGHT  DRIVE  .     $23.00 

VT106A  Recreation  Pack  A    .  $44  00 

VT107A  Home  Calculation  Pack  A       $44.00 

VT164  ProgiammabieCharacterrGramegraptiics. .  $12.00 
VT232VICTerm  I  Terminal  Emulator $9.00 


m 


HEWLETT 
PACKARD 


HP*85$2595 

NEW'  HP-125 $3295.00 

HP>83  .                                  $1795.00 

HP>85  16K  Memory  Module  ,..$249.00 

5' .  ■■  Dual  Master  Disc  Drive                           .  S2129  00 

GraptMCsPloller  (7225B)  $2079  00 
Call  lor  HP  Software  Prices  &  Information 
Call  tor  Calculator  prices 


Hin^  Texas  Instruments 


TI-99/4A  $379 


PHC  004  TI-99(4  Home  Computer 

$399.00 

PHP  1600  Telephone  Coupler 

516900 

PHP  1700  RS-232  Accessories  interlace   . 

..  $169,00 

PHP  1800  Disk  Drive  Controller . 

,   $239,00 

PHP  1850  Disk  Memory  Drive 

$389,00 

PHP  2200  Memory  Enpansion  |32K  RAMI 

$239  00 

PHA2100R  F   Modulator 

$43.00 

PHP  1100  Wired  Remole  ControllersIPaul 

.  $31,00 

PHM  3006  Home  Financial  Decisions 

$26,00 

PHM  3013  Personal  Record  Keeping 

$4300 

PHD  6001  Mailing  Lisl 

S6OO0 

PHD  5021  Checkbook  Manager  . . 

-   sieoo 

PHM  3008  Video  Chess 

S6000 

PHM  3010  Physical  Filriess    . 

$26  00 

PHM  3009  Football 

$26  00 

PH M  30 18  Video  Games  1 

526  00 

PHM  3024  Indoor  Soccei 

$26  00 

PHM  3025  Mind  Challengers  . 

S2200 

PHM  3031  The  Attack 

S35.00 

PHM  3032  BlaslO 

$22.00 

PHM  3033  Blackjack  and  Poker 

.  S22.0O 

PHM  3034  Hustle 

$22  00 

PHM.3036  Zero  Zap 

S1800 

PHM  3037  Hangman 

sieoo 

PHM  3038  Connect  Foui 

$18  00 

PHM  3039  Vani2ee 

$22  00 

PHM  3017  Terminal  Emulator  1 

$39-00 

PHM  3026  Emended  Basic 

S88  00 

PHM  3035  Tepm.nnl  Enii.i^rn,  il 

$45.00 

Call  for  Ihe  best  prices  on 

PRINTERS 

by  Epson,  Diablo,  TEC  and  Tally. 

DISCS 

by  Atari  and  Maxell. 


NO  RISK  *  NO  DEPOSITON  PHONE,  C.O.D.  OR  CREDIT  CARD  ORDERS. 


computGr  mail  order 

nUCD  Jn  VCADC   Evnt-nii-i,.^.-    ... 


east 
800-233-8950 

501  East  Third  Street 

Willlamsport,  PA  17701 
(717)327-9575 


OVER  40  YEARS  EXPERIENCE  IN  SOPHISITtCATED  ELECTRONICS 


HOWTO  ORDER: 

Phone  orders  Invited  or  send  check  or  money  order  and  receive 
free  shipping  In  the  continental  United  States,  PA  residents  add 
6%  sales  tai.  Add  3=/)  1or  VISA  or  MC.  Equipment  subject  to  price 
change  and  availability  without  notice 


west 
800- 648-3351 

P.O.  Box  6689 
State  Line,  Nevada  89449 


BOOKS  and 
SOFTWARE 


For  ATARI  -  PET/CBM  -  OSI  -  6502 


SK     Microsoft    BASIC    Rate- 

""lual 

/Vulhufirativfyfere-ice  for  ihe 
origin^!  ^1lcro^ufI  ^K  *  HK 
BASIC  developed  fut  Ahotr 
^ihI  I'ltor  {:i)Eiipiimf!>  iri{:ludii!4 
OSI,  PET  .intl  1RS80 
-  -   I.  141  E9.95 

-„^ m      H«ndbook      for 

6502  and  B802 


■  b  X  6*1  dfl.pm  S44 

.._        -icI       5th«miilit:^       A 

MUST   (Of  everv  KIM.,  SYM- 
and  AIM  owner. 
Ordar-Na.  152  &9.95 

tr        AppI 

Ruprint    qI     InltStS    ftiUil    il 
'—-•   -- ipiicaiiofi   iioHfs  i 
ciLjdirg     27QS,     8085.    B25b. 
6261  ciiips,  Very  n^xessarv  ^or 
[liu  hafdwar«huff 
Ordar-Ma.  153  S9.95 

ComplAX  Sound  G«n«rattc 
Ni;w  levisi^  .ipplkiititm^ 
matiLidl  lor  the  Tcx.n  Ik^uu 
menis  SN  70^77  Cun.pt«» 
Sound  GenuftllOf  Circuil 
B«j.(fddvailaijI(.'(fiHybl 
Order-No.  154  K6.95 

Smalt  Business  ^ogrgms 
Cumplct«  lislings  (or  lli«  hu^i- 
nus^  user.  Ir^veniorv.  Invoice 
Wri  tir^,  Mailing  Lisl  hKh  I  much 
rrifjii^  IrtlrixJucliar*  lo  Elu^- 
iH.-is  ApplicJItons. 
Order  No.  156  BUJSO 

The  Fini  Book  ol  Ohio 
SciBniific 

Inlriiduclion  to  OSI  com- 
pult-rs.  Diagrams.  Hardw^tre 
.tniJ  su'twdre  intujrridlion  nut 
|)rirvpi>uSly  avall^>li.'  m  orw^ 
iLumsjjtt  wuiCH,  102  DjgtfS 
Order-Mo.  157  S7.35 

Thfr  Second  Book  of  Ohio 
"-entKic 

IV  voiuiibit;  irttiKrn.irioii 
Jut  OSI  rTilcmi,unipulHr  $v- 
..^ms,  Inlrtxiuclion  lo  OS65 
D  .ind  OS65U  NutrnKking. 
Hardware  ond  SfiHvKJu^  hinrs 
,ind  lips.  Sv-lems  ^pw:ifi 
[.itini>i  Busini.-^5  .ippfiLMiioti>i 
OfderNo.  158  S7.9S 

The  Fourth  Book  ol  OHIO 
Vury  im[Hjrt.|iii  PnK|iijriis 
Mjny  intenririri9  progi.im-.  lor 
OSI  Lonipiiiers.  Staling  (Bi 
ri.ifV  Trfiel,  DifferwriUjI  Etjiii- 
tiiiiun,  Siiilistin.  AiUiilugv, 
Cj,!-,  Cniisuiri;itron,  G.inn-.  .J.s  o 
OrdBf- No.  iGd  £9^5 

VIP  PKksge  -  AtHive  bfjcjk 

pliiv  .1  Gi<.S!:il(t  wilti    H"i  pfn 


I    Vfriling   Progr 

JPMF.C4P,     D. 

C.is^!irf:,BK  RAM. 

-    ■     "      629-1 

,^«iUng    Lrtl    lot    C1PMF 
C4PMF  Z4K  RAM 

?'jn      Mitifvvt!^     inci       phtj 


Ordef-No.  0240 


Pfogrami   for   th«  Ch#ll*noer 

C1/C2aK 

OidirNo.2004    'B.ifi;  Bontii" 

WfKdptocessor  S9.95 

Order- No.  20O5.  -Bii.^  Bon«*' 


C»re  aid  Feedins  of  ihe  Com- 

r 

ters  »i«.ploring  PET 

^4  rippair  and 

.,..,    ....„    -lalton     PfO- 

,jro......(i>g     iricks     and     sche- 


Importani  Software  for  CBM 
1BK/32K 

Must  .pwwrirfiJ  Edilof/Aa 
i^iublur  tuf  Contrnodore  C0M 
ie/3?K  (jii  c*»«:lie. 
t.iM  be  ^wntsJ  dtrt;^,.,  .■^-... 
nlitur  iir  rrijin  ihirTIMMo- 
(limr.  Tr-ir^sl.Uws  in  Ihf 
fidsi^.   II  dti  ctmt  is  eituoti 

wrL-d^dUfumfilic  Ti^rurn  U\  ifis? 
clilur.  CA-j^ttv  *t\\t-<  DEMO 
Onfof-No.  3276  B39.00 

MONJANA/1  Mattes  Machine 
Language  Programming  Easy!^ 
In  Kv^^(Y  Coiii'ni^dore  C8M 
1h^«  i;  .1  i^xiii:  ROM  vxkm 
jiliiig  fur  its  MON-IANA/l 
nL-AT  MONJANA/I  Md 
Won  i  lor     in 


ROM        (Jfters       rnuiti       uS 

gufH. ^n,l     ,l..l«*n 


available    toiJjv     Cympr.    _ 
■  sivi!  nuiniiit  iiiuliiilril 
OfdtrNo.2a01 
SPECIAL  PR  ICE  E49,Q0 

JANA-IMonilor  un  ChIs^MI^:  tnr 
Ihu    PET.    Similar    to    MON 
JANA/t,  V.^vpowuflul 
Ordti'No.2002  £19.95 

Piograniming  in  W»c^^ne 
Linguage  with  the  Commo 
dor»PET 

This  Hook  irchidt-'i  EDITOR/ 
ASSEMBLER.  MONJANA. 
JANA.  EDITOR,  ASSEM- 
BLER. LINKER  ond  DISAS 
SEMBLER.  HEXDUMP  anil 
compFeic  dt^scnpiiuns  q(  thu 
program^- 

Ordef-No.  165  £13.95 

BLANK  CASSETTES 
Hii|t.(;viQualiIv  C  10  Cftsieltcs 
Bljnl:   C.i-.swHr^  [Q.i.miiiy  1EH 
Order-r4o.  Bog5G  £4.99 

ATARI  OWNERS  TAKE 
NOTE: 
EPROMBURNER  liir  ATARI 
400/800.     a.if:     imards    orviv 
ivud    d.-'SCf-piifin.  stlwtnrflU'C.    * 
wliwa>*-l?71fi.  ?73?l 
Onter-Na.  7041  £99.00 


Order-No.  7022,  e«u.  £29,85 
Otdor  No.  72O0.diK.  £39.99 
ATARI-BASIC  -  Lterning  by 
Uling 


itftfk  ISci«rfi  Di.twirtgs.  Spc 
ci.il  SuLfKls.  Kirvh.  PfK>dlB5  • 
Joy^lluk!..  SpHtitllitTttl  Scrctin 
Ri)ij1  irw-i.-Ct Jphitik  .jikJ  SuuiuI  . 
f'Lirfcs  .iFiiJ  P[iki:s  and  vprsrT.il  i 
SlLhlM. 

Order  No.  164  S9.9S       ' 

ATM0NA1  r-"-^-- 

L*f*gua9e  Moniiof  for  m 
ATARI  400/800 
Ini-i  pOA-t-rlul  nnjfliri<r  pio 
viijt'5  ytJii  with  Ih*.*  lirtnw.i'- 
iupDOi't  1(1,11  you  Pw.inJ  lu  g... 
U\ti  mosi  r,ui  tif  V'JU'  IMliwrful 
%vsn-fn.  ATMONA  1  (mi 
,1  iKJolrfbV  ujy^Klti;  ^ 
lii(jg«is  r«fquiftfJ.  Ois 
Mt^moty  Dump  HEX  *  ASCII. 
jChdnge  Mpmorv  Localion^. 
Blocklransltrr,  Fill  muniorv 
block.  Sav*'-  Jnd  Load  Ma 
chtne  L,ifi9Ujg<?  _  P'oflf 
Si. 

ttM  Oplionvl) 

Order  No.  7022  S  19-95 

ATMONA.2  SupidWPP*' 
A^ 

plore  iiie  ATAfil  ROH^/«AM 
area    Stop  m  pr^'vitmslv  selW' 
ttHl       addrw^.      Oprade      o* 
uperanrt    (ca^^l  ItO 
Order-No.  7049  llntludei  AT- 
MONA-It  '       £49.95 
EOITOB/ASSEMBLER        lor 
ATARI  800.  32K  RAM 
E*uwT=elv    tail  'i"^  pcJsweflul 
Editor/AssHinbkf,  IB>t  Source 
tt;de    in    about     5    «cond%l 
includes  ATMONA-Mcass-I 
Onlef'No.709B  £49.95 
MACPO-AsMMTibl 
ATARI  800.  4aK  HAM  Ica^s  ' 
Order-No.  7099  £89.00 


parable  products  now  a\ailable."" 

The  first  storage  device  to  be 
inaiiufactLirecl  by  C>)miri()(Iote 
will  be  a  5'/!-incb  Wincbesler  5 
niegaljyte  magnetic  rigid  disc 
drive  capable  of  storing  up  to  5 
million  bytes  ol  iniormation. 
This  device  is  sclieduled  for 
imioduction  in  April.  It  loo,  vvill 
be  priced  considerably  below 
any  comparable  product  now 
availal:)le. 

"I'he  lourtli  and  Imal  niicro- 
computer  memory  storage  device 
is  based  upon  Commodore  tech- 
nology and  is  a  state-of-the-art 
development.  It  is  a  '/_>-inch  wide 
magnetic  tape  mu It i- megabyte 
drive  ca})able  oi  storing  up  to  4!^ 
million  bytes  of  information. 
The  5  megabyte  and  43 
megabyte  Commodore  manufac- 
tured microcomputer  memory 
storage  devices  are  in  a  2.2-inch 
low  profile  format,  meaning  they 
are  only  2.2  inches  tall,  or  ap- 
pi-oximalely  two-thirds  tiie  size  of 
a  l)ox  oi  cigarettes. 

More  Powerful 
Apple  III  Features 
Mass  Storage, 
New  Software 

Cupertino,  CA  —  A  more  power- 
ful version  of  the  Apple  III  per- 
sonal (ompuler.  with  greatly 


expanded  mass-storage  capabilitv 
and  professiojial  application 
programs,  will  be  delivered  be- 
ginning in  mid-December  by 
Apple  Computer  Inc. 

The  new  Apple  III  features 
an  improved  operating  system, 
more  reliable  hardware,  seven 
new  or  enhanced  software  pack- 
ages and  lower  prices  than  the 
earlier  product.  In  addition, 
-Apple  III  supports  u[)  .o  256K 
bytes  of  internal  memory. 

The  expanded  storage  capa- 
bility is  [provided  by  the  new 
Apple  III/ProFile  Personal  Mass- 
Storage  System.  Designed  to  be 
integrated  into  Apple  1 1 1  systems, 
ProFile  is  a  five-miilitjr  -byte, 
Winchester-type,  hard -disk  .sys- 
tem which  gives  Apple  users 
nearly  35  limes  the  mass-storage 
capacity  of  a  single  floppy  disk. 

The  usefulness  of  tiie  Apple 
ill  is  further  expandeil  by  a  total 
of  seven  new  or  enhanced  appli- 
cation progiams.  One  such  pro- 
gram, Access  III,  allows  Ap])le 
III  computers  to  comiaunicate 
with  large  mainframe  compiUers. 
Apple  Ills  for  the  Ihsi  time  can 
be  used  as  remote  data  processing 
work  stations,  accessing  informa- 
tion from  the  larger  data  base 
and  returning  compleled  work  (o 
the  central  computer. 

Other  new  or  enhanced 
programs  introduced  today 
include  .'\p]ile  Writer  III  for 


ELCONIP  Publishing,  Inc. 

53  Redrock  Lane,  Pomona,  CA  91766 

Phone:  (714)  623-8314 

C.tment  Check.  Money  Oraei.  VISA.  Masle.chaigo.  EuroKheck 
POSTPAID  O'  PREPAID  pn  USA.  i  500  handling  fee  lor  COO. 
All  o.Dets  oulsidB  USA  ADD  15  %  *iD0i"9^  CA  add  6  %  ales  ia» 
ArARIisori^islerMl'adcmaitol  ATARI  INC  ,i„h,„„. 


LTICBlXUrV^^ 


Li;co  Computer  Marketing  &  Consultants 

We  Specialize  in  Quality,  Knowledge,  Service,  and  Microcomputers 

717-435-51 97  


SPECIALS 


ATARI 

Computers  for  people: 


800  16K 
400  16K 


$744.00 
$329.00 


*»*♦»*# 


ATARI  HARDWARE 

410  CASSETTE  RECORDER S   57.00 

810  DISK  DRIVE S444.00 

850  INTERFACE SI  59.00 

825  PRINTER S525.00 

830  PHONE  MODEM S135.00 


PROGRAMMING  SOFTWARE 

CX4101  INVITATION  TO  PROG S  17.00 

CX4106  INVITATION  TO  PROG.  2 S  19.00 

CX41  17  INVITATION  TO  PROG.  3 S  19.00 

CXL4003  ASSEMBLER  EDITOR S  42,00 

CXL4002  ATARI  BASIC  CART S  42.00 

CXL4015  TELELINK S  19.00 


EDUCATIONAL  SOFTWARE 

CXL4001  EDUCATIONAL  SYSTEM S    1  9.00 

CX6001  U.S.  HISTORY S    22.00 

CX6002  U.S.  GOVERNMENT S    22.00 

CX6003  SUPERVISORY  SKILLS $   22.00 

CX6004  WORLD  HISTORY S   22.00 

CX6005  BASIC  SOCIOLOGY S   22.00 

CX6006  COUNSELING  PROCED S   22.00 

CX6007  PRINCIPLES  OF  ACCT S   22,00 

CX6008  PHYSICS S   22.00 

CX6009  GREAT  CLASSICS S   22.00 

CX6010  BUS.  COMMUNCIATION S    22.00 

CX6011  BASIC  PSYCHOLOGY S   22.00 

CX6012  EFFECTIVE  WRITING S   22.00 

CX6014  PRINCIPLES  OF  ECON S   22.00 

CX6015  SPELLING  -,., S   22.00 

CX6016  BASIC  ELECTRICITY S   22.00 

CX6017  BASIC  ALGEBRA S   22.00 

CXd  1  08  HANGMAN S    1  2.00 

CX4112  STATES  a  CAPITALS S    12.00 

CX4114  EUROPE  COUNT  &  CAP S    12,00 

CX4121  ENERGY  CZAR S    12.00 

CX4123  SCRAM S    12.00 

CX4102  KINGDOM S    12.00 


ENTERTAINMENT 

CXL4004  BASKETBALL S   29.00 

CXL4005  VIDEO  EASEL  S   29,00 

CXL4006  SUPER  BREAKOUT S  29,00 

CXL4009  CHESS S   29.00 

CXL4010  3-DTIC-TAC-TOE S   29.00 

CXL401 1  STAR  RAIDERS S  30.00 

CXL4012  MISSILE  COMMAND S  30.00 

CXL401 3  ASTEROIDS S  30.00 

CX4015  BLACKJACK S    12.00 

CX41  1  1  SPACE  INVADERS $    1  6.00 

ACCESSORIES 

CX30  PADDLES S    1  7.00 

CX40  JOYSTICKS $    1 7.00 

CX853  1 6K  RAM $  85.00 

32K  RAM  by  MICROTEK $1 69,00 


WE  CARRY  MANY  OTHER  LINES  OF 

MICROCOMPUTERS  YOU  CAN 

CALL  FOR  PRICES  ON: 


CPU'S 

COMMODORE 

ALTOS 

TEXAS  INSTRUMENT 

ZENITH 

INTERTEC  DATA 

AND  OTHERS 


PRINTERS 

TEC 

DIABLO 

NEC 

EPSON 

ANADEX 

AND  OTHERS 


At  Lyco  Computers  we  offer  our  expert  services  to  help  customers  make  their  first  computer  purchase, 
schools  establish  a  computer  program,  or  evaluate  multitermjnal  systems. 

to  help  evaluate  your  needs,  or  if  you  wish  to  make  a  purchase. 

~  ORDERS  SHIPPED  SAME  DAY 

CALLUS       AT     717-435-5197  " 

LYCO  COMPUTERS  I  ^°  ^^^  CHARGES 

P.O.  BOX  10 
COGAN  STATION,  PA  1 7728  I     ^^  ''^Y  FREIGHT  ON  PRE-PAID  ORDERS 


word  processing;  VisiCaic'"  HI 
and  Business  Graphics  III  for 
l^reparing  and  analyzing  cfetaileci 
business  infornialion;  Rusiness 
BASIC  and  Pascal  III  for  devel- 
oping advanced  application 
programs;  and  Script  III  for 
formatting  Pascal  text  into  iayoul- 
perfect  printouts.  In  addition,  an 
updated  version  of  Mail  List 
Manager  will  soon  be  available 
for  maintaining  mailing  lists  and 
printing  labels  using  an  Apple 
Ill/Profile  system. 

Numeric  Keypad 
With  Calculator 
AndVisiCalc' 
Commands  For 
Apple  II  " 

The  Keyboard  (x)mpany's  Nu- 
meric Keypad  lets  hard-working 
professionals  enter  numbers, 
carry  out  arithmetic  operations 
and  input  VisiCalc'"  commands 
quickly  and  easily. 

The  keypad,  clearly  coordi- 
nated with  the  Apple  computer 
in  both  color  and  design,  in- 
creases operator  efficiency  by 
concentrating  essential  keys  in  a 
familiar  format,  and  allowing  the 
operator  to  place  the  keypad  in  a 
comfortable  position. 

In  addition  to  the  standard 
keypad  with  double  zero  and 
decimal  point.  The  Keyboard 
Company's  product  has  a  full  set 
of  operator  keys,  complete  with 
parenthesis,  print,  return  and 
four  basic  arithmetic  functions. 

The  VisiCalc  .section  of  the 
keypad  uses  three  keys  to  control 
cursor  movement.  Two  keys 
control  the  directional  move- 
ment, and  depressing  the  third 


^^ 


key  will  change  the  cursor  horiz- 
ontal movement  to  verUcal. 
Holding  down  either  directional 
movement  key  initiates  the  auto- 
repeat  mode,  which  moves  the 
cursor  across  the  screen  until  the 
key  is  released.  A  fourth  key 
deletes  entries. 

The  keypad,  complete  with 
interface  board,  cord  and  direc- 
tions, is  available  in  Apple  deal- 
erships nationwide  for  $149.95. 

PET  TINY  BASIC 
COMPILER 

Abacus  Software's  TINY  BASIC 
COMPILER  (TBC)  supports  a 
floating  point  subset  of  the  PET 
BASIC]  programming  language. 
The  compiler  reads  your  pro- 
gram and  writes  out  a  file  con- 
taining 6502  object  code  that  you 
then  load  and  execute. 

The  TBC  supports  all  floating 
point  arithmetic  and  functions 
that  are  available  in  the  fidl  PET 
BASIC  language.  You  can  write, 
test  and  debug  your  program 
using  the  built-in  interpreter  be- 
fore using  the  TBC  to  compile  it. 

The  TBC  package  will  run 
on  ail  40-column  model  PET/ 
CBMs  with  a  minimum  of  8K  of 
memory.  If  you  have  at  least  16K 
of  memory,  then  there  is  also  a 
version  (included  in  package) 
which  will  give  you  a  full  assetTibly 
listing  of  the  compiled  code. 

Price  is  $25.00  on  cas.sette  or 
diskette  in  US  and  Canada,  and 
$30.00  foreign.  For  further  infor- 
mation contact  Abacus  Software, 
P.O.  Box  721 1,  Grand  Rapids,  MI 
49510(616)241-5510. 


Nni'  Product  releases  fire  sehrti'd  jrom 
submissions  for  reasons  oj  limeluirss, 
available  sjmee,  and  general  interest  to 
our  renders.  We  regret  that  we  are  unable 
to  select  all  new  product  submissions  for 
pubriintion.  Readers  should  be  aware 
that  we  present  here  some  edited  version 
of  material  submitted  by  vendors  and  are 
unable  to  vouch  for  its  accuracy  at  time 
of  fuhlication. 


*VIC  -  20 


EXPANDOR  MODULE 

add  24k  without 

additional  power  supply 

plug-in  open  air  board 

S295.00 


*VIC  -  20 


S299.00 


"COMBINATION  SPECIAL" 

Expander  &  *VIC-20 

S550.00 

send  check  or  money  order  tO' 

QUAISITUM  DATA  IIMC. 

3001  Red  Hill  Ave. 

Bid.  4,  Suite  105 

Costa  Mesa,  CA  92626 

(714J  754-1945 

•  .1  liAH-mjUt  o(  COMMODORE 


EPSON 


DOT  MATRIX  PRINTERS 

SUPER 
DISCOUNTS 

ON 
MX-80F/T 
MX-80 
MX- 100 

NOW  IN  STOCK 


LOWER! 


LOWER  I 


We  also  stock  cables  and  interface  cards 
for  TRS  SO,  Apple,  Atari,  Pet,  and  serial. 


GRAPHIC  ROMS 
AVAILABLE 


TO  ORDER  TOLL  FREE 
1-800-344-7493 

In  CA  and  for  service 
(209)  667-2888/634-8888 


'^ 


/iMCROTRONICS,  inc. 

1125  N.  Golden  Stale  Blvd. 
Turloct.  Calitornia  96380 


commodore 

SPECTACULAR 


8032-32K  80  COL  CRT 


REG  S1495 


$1095 


64K  ADD-ON  MEMORY 


REG  $500 


$395 


9000  134K  SUPER  PET 


REG  $1995 


$1795 


4032  32K  40  COL  CRT 


REG  SI  295 


$995 


4016  16K  40  COL  CRT 


REG  $995 


$795 


8050-DUAL  DISK  950K 


REG  $1795 


$1395 


4040-DUAL  DISK  343K 


REG  SI 295 


$995 


2031-SINGLE  DISK  170K 

''''''''     $555 


C2N-CASSETTE  DRIVE 


REG  $75 


$65 


4022-80  COL  PRINTER 


REG  $795 


$649 


8023P-136  COL  PRINTER 


REG  $995 


$849 


830QP-40CPS  LTR  QLTY 


REG  S2250 


$1995 


8024-MANNESMAN  TALLEY 
^E<^  51995       5^1595 

8024L-LETTER  TALLEY 


REG  $2495 


$1995 


25CPS-STARWRITER 


REG  $1895 


$1445 


REG  S279 


CBM-IEEE  MODEM 


$229 


VOICE  SYNTHESIZER 
REG  $395         5329 


PET  TO  IEEE  CABLE 


REG  $39.95 


$34 


IEEE  TO  IEEE  CABLE 


REG  $49.95 


$39 


VIC  20 


REG  S299 


$269 


VIC  1540  DISK  170K 


REG  $599 


$499 


REG  $395 


VIC  1515  30CPS  PRINTER 

$349 

VIC  ^011  RS  232  INTER 

REG  $49.95      *«q 

VIC  1112  IEEE  INTER 

REG  S99.95      a^q 


SOFTWARE 


YOU 


LIST 

PAY 

OZZ-  The  Information  WIzord 

$395 

$299 

Wordcraft  80 

$395 

$299 

IRMA-lnfo 

Retrieval  &  Mgmt  Aid 

S495 

$399 

Dow  Jones  Porttoiio  Mgmt. 

$149 

$119 

Pascol  Development  Pkg. 

S295 

$229 

EBS-Recelvables,  Inventory 

S75G 

$579 

BPI-Genercl  Ledger 

S395 

$299 

Word  Pro  3-40  Column 

5250 

$179 

Word  Pro  4-80  Column 

S375 

$269 

Word  Pro  4  Plus 

5450 

$329 

PHILADELPHIA  COMPUTER  DISCOUNT^ 


© 


P.O.  Box  170   St.  Davids,  PA   19087  (215)687-8540 

MAIL  ORDER  PHONE  1-800-345-8112 

IN  PA  CALL  1-800-345-1269 


PREPAID  ORDERS  SHIPPED  FREE 

VISA  &  MASTERCARD  ADD  3% 

COD  ■  UPS 

HiiaiA     PA  RESIDENTS  ADD  6%  SALES  TAX 


BRING  IN  THE 
NEW  YEARI 


LOOK  CLOSELY  AT 
THESE  SUPER 
SAVINCSI! 


•  Wb 

Accept 

CO  D/s»  Slock 

Shipments  Same  Day 

or  Next  •  No  Surcharge 

'"For  Credit  Cards  ■  All  Equipmer^t 

'  Factory  Fresti  w/MFT  Warranty  •  We 

Carry  iha  Complete  Line  o(  Personal 

Software 


EPSON  MX-60 


$   469 


if 


e 


aggmmmn 


ATARI  800  ieK 


$  749 


EAST  COAST 
1-81X1-556-7586 


a 


WEST  COAST 
1-800-235-3581 

PRICES  4 RE  SUBJECT  TO  CHANGE 
W/0  NOTICE. 


NEC  color  Monitor 

JC  1201  $319 

iNTERTEC  SUPERBRAIN  64K  RAM 

$2799 

QDSUPERBRAIN 

$2999 

NEC  5510  SPINWRITER  (7710) 

$2345 

NEC  5520  SPINWRITER  (7720) 

$2695 

NEC  5530  SPINWRITER  (7730) 

$2345 

NEC12"  MONITOR 

$  189 

NEC  COLOR  12"  MONITOR 

$  339 

NEC  PC  8023  Printer 

100  CPS  Tractor  &  Friction 

$  639 

OKIDATA  MICROLINE-80 

$  379 

OKIDATA  MICROLINE-82A 

$  529 

OKIDATA  MICROLINE-83A 

$  749 

DIABLO  630 

$1995 

APPLE  II  PLUS  48K 

$1139 

APPLE  DISK  w/3.3  DOS  Controller 

$  525 

APPLE  DISK  w/o  Controller 

$  449 

EPSON  MX-80 

$  469 

Interfaces: 

IEEE   $55,  TRS-80  CABLE  $35. 

APPLE  INTERFACE  &  CABLE  $90, 

RS-232  $70 

HAZELTINE  1420 

$  799 

NORTHSTAR  HORIZON  11  32K  QD 

$2925 

ANADEX  DP-9500/9501 

$1199 

TELEVIDEO  912C 

$  699 

TELEVIDEO  920C 

$  729 

TELEVIDEO  950 

$  929 

WE  CARRY  THE  COMPLETE  LINE  OF  ATARI  SOFTWARE, 
PERIPHERALS  AND  ACCESSORIES. 


NEC  Green  12  incii  Monitor 

JB  1201  $179 

NEC  Friction  Tractor  Printer 
100  CPS  (Graphics,  Bi-directional)  $635 


CBM  8032  COMPUTER 
CBM  8050  DISK  DRIVE 
CBM  4032  COMPUTER 
CBM  4040  DISK  DRIVE 
CBM  4022 
CBM  VIC-20 
LEEDEX/AMDEK  100 
LEEDEX/AMDEK  100G 
LEEDEX/AMDEK  COLOR-1 

13"  Color  Monitor 
MICROTEK  16K  RAM  BOARD  for  Atari 
MICROTEK  32K 
ATARI  800  16K 
ATARI  400  16K 
ATARI  810  DISK  DRIVE 
ATARI  820  40  Column  Printer 
ATARI  822  40  Column  Thermal  Printer 
ATARI  825  80  Column  Printer 


$1149 
$1349 
$1029 
$1029 
$  649 
$  269 
$  139 
$  169 

$  329 
$  79 
$  149 
$  749 
$  349 
$  449 
$  299 
$  349 
$  599 


OMEGA  SALES  CO. 


EAST  COAST 
1-800-556-7586 

OMEGA  SALES  CO. 

12  Meeting  St. 

Cumberland,  Rl  02864 

1-401-722-1027 


WEST  COAST 
1-800-255-S581 

OMEGA  SALES  CO. 

3533  Old  Conejo  Rd.  #102 

Newbury  Park,  CA  91320 

1-805-499-3678 

CA.  TOLL  FREE  1-800-322-1873 


OMEGA  SALES  CO. 


DIABLO  630 


$1995 


CBM  8032  COMPUTER  $1149 


OKIDATAMICROLINE-63A  $749 


ANADEX  DP-9500/95ai  S11 99 
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Pretzelland  Software  141 

Professional  Software 1,9 

Program  Design,  Inc 126,131 

The  Program  Store 194 

The  Programmer's  Institute 33 

Protronics   67 

Quality  Software 121 

Quantum  Data  Inc 204 

Questar  International  Inc 147 

Santa  Cruz  Educotional  Software 105 

Sebree's  Computing  126 

Skyles  Electric  Works  145,198 

The  Software  Connection  188 

Software  by  Sasso 173 

Software  Street  131 

Spectrum  Computers 111 

Starbound  Software 117 
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Synergistic  Software  107 

T'Alde  Software  Company 12 
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Elephant™  floppies. 

They're  guaranteed  to  meet  or  beat  every  indus- 
try standard  for  quality.  They  come  standard  with 
reinforced  hub  rings  at  no  extra  cost.  They  come 
In  every  popular  5i/a"model,  in  both  hard  and 


soft  sector.  And  they  sell  of  some  of  the  lowest 

prices  in  the  business. 

Elephant  Flexible  Disks. 

They're  heavy  duty.  They  work  for  peanuts. 

They  never  forget.  Get  yourself  a  trunkful. 


HEAVY  DUTY  DISKS. 

Distributed  Exclusively  by  Leadfng  Edge  Products,  Inc. ,  225  Turnpike  Street,  Conton,  Massachusetts  02021 
Call;  toll-free  1-800-343-6833;  or  in  Massachusetts  call  collect  (617)  828-8150.  Telex  951-624. 


THE  COMMODORE  COMPUTERS 

"FROM  300  TO  1995,  THEY  COST  LESS  AND  GIVE 
YOU  MORE  FOR  YOUR  MONEY.  READ  OUR  CHART. " 

— William  Shatner 


The  idea  of  a  computer  in  even-  office  and  home  used  to  be 
science  fiction.  Now  it's  becoming  a  reality.  The  question  is, 
Willi  so  many  to  choose  from,  which  computer  should  you 
buy?  When  you  consider  the  facts,  the  clear  choice  is 
Commodore. 

COMPARE  OUR  $995  COMPUTER 


l-E,VrL!KKS 

COMMODORE 

4(116 

.\!'PLK 
II 

IliM 

Hast  Price 
12"  Green  Screen 
IEEE  Interface 
lOTAL 

$995 
Standard 
Standard 

$995 

$1,330 
299 
300 

$1,929 

$1,565 
345 
NO 

$1,910 

Upper  &  Lower 
Case  Letters 

Standard 

NO 

Standard 

Separate  Numeric 
Kev  Pad 

Standard 

NO 

Standard 

IntclliKenI 
Peripherals 
Real  Time  Clock 

Standard 
Standard 

NO 
NO 

NO 
NO 

^^^ 

Maxinnini  5' i"  l>isk 
Capacity  per  Drive 

500  K 

1-43  K 

160K 

Pp^:c^  are  a^  oUUs  mou  rccenl  pyblishtM  piiCL'  liits.  Sepieii 
capahililiC!,  ol  Ihc  1 I6KI  I'SiT-  4016  Di^i.  Diiies  and  Prime 
vhowTi  varv  in  Ihoir  Jc^ircc  nl'  i:\pjmljbilily. 

ber.  I9S1  und  appri 
rs  ar£  not  mcluded 

mniaic  the 
np^iclT^.  Moulds 

Many  experts  rate  Commodore  Computers  as  the  best 
desk-lop  computers  in  iheir  class.  They  provide  more  storage 
power-up  to  1,000,000 characters  on  S'/i"  dual  disks^than 
any  systems  in  their  price  range.  Most  come  with  a  built-in 
green  display  screen.  With  comparable  systems,  the  screen  is 
an  added  expense.  Our  systems  are  more  affordable.  One 
reason:  we  make  our  own  microprocessors.  Many 
competitors  use  ours.  And  the  compatibility  of  peripherals 
and  basic  programs  lets  you  easily  expand  your  system  as 
your  requirentents  grow.  Which  helps  explain  why 
Commodore  is  already  the  No.  1  desk-top  computer  in 
Europe  with  more  than  a  quarierof  a  million  computers  .sold 
worldwide. 

WE  WROTE  THE  BOOK  ON  SOFTWARE. 
The  Commodore  Software  Encyclopedia  is  a  com 
prehensive  directory  of  over  500  programs  for 
business,  education,  recreation  and  personal  use. 
Pick  up  a  copy  at  your  local  Commodore  dealer. 


FULL  SERVICE,  FULL  SUPPORT. 

Commodore  dealers  throughout  the  country  offer 
you  prompt  local  service.  In  addition,  our  new 
national  service  contract  with  TRW  provides 
nationwide  support.  Visit  your  Commodore 
dealer  today  for  a  hands-on  demonstration. 


P  Commodore  Computer  Systems    Cunadiiin  Residents: 

6S I  Miiore  Road  Commodore  Computer  Systems 

King  of  Pru.ssia.  PA  19406  3370  Pharmuey  Avenue 

Agineourt.  Ontario,  Canada,  MIW  2K4 

CBM-CO 


Please  send  me  more  information. 
Natiie  _ 


Title- 


ft  commodore 

^  COMPUTER 


